Currently I have created a quote package where we enter a series of information pertaining to a project. Within this package there is a 'Job Details' sheet which is where the majority of the customer information is put into. After the 'Job Details' is fully complete a customer sheet is also completed within the same package. Now I wish to get the 'customer sheet' and copy it into Word using a macro for emailing purposes.
My problem is this I used a macro with the help from you, which works; but the information is not centred within Word. Can this macro below be fixed so the margins centre the document ready for print? Also open the "save as" so an employee can save it to whatever he wishes?
Sub Word_File()
'Sub ControlWord()
' You must pick Microsoft Word 8.0 from Tools>References
' in the VB editor to execute Word commands.
' Create a new instance of Word & make it visible
Set appWD = CreateObject("Word.Application.11")
appWD.Visible = True
Sheets("Customer").Select
'Copy the data for the new document to the clipboard
Range("A1:L116").Copy
' Tell Word to create a new document
appWD.Documents.Add
' Tell Word to paste the contents of the clipboard into the new document
appWD.Selection.Paste
' Save the new document with a sequential file name
appWD.ActiveDocument.SaveAs Filename:="File"
End Sub
My problem is this I used a macro with the help from you, which works; but the information is not centred within Word. Can this macro below be fixed so the margins centre the document ready for print? Also open the "save as" so an employee can save it to whatever he wishes?
Sub Word_File()
'Sub ControlWord()
' You must pick Microsoft Word 8.0 from Tools>References
' in the VB editor to execute Word commands.
' Create a new instance of Word & make it visible
Set appWD = CreateObject("Word.Application.11")
appWD.Visible = True
Sheets("Customer").Select
'Copy the data for the new document to the clipboard
Range("A1:L116").Copy
' Tell Word to create a new document
appWD.Documents.Add
' Tell Word to paste the contents of the clipboard into the new document
appWD.Selection.Paste
' Save the new document with a sequential file name
appWD.ActiveDocument.SaveAs Filename:="File"
End Sub