An Excel VBA file which able to open .dotm change it and save as an pdf for e-mail. Possible??

[veyselk]

Hi everyone I am trying to make a excel file with vba codes. Plan is that file save datas, choose information daily, open an existed word object (.dotm) change bookmarks I create and save it. All is fine till save as a .pdf and send e-mail via outlook app. I already do this in excel with active sheet but I want excel do this with a word file. Is there any examples like that to help me?

 

[Macropod]

Here's some basic code to get you started:

Sub ExportToWord()
'Note: A reference to the Word library must be set, via Tools|References
Dim wApp As New Word.Application, wDoc As Word.Document
Dim xlwkBk As Workbook, xlSht As Worksheet
Dim sPath As String, sName As String
Set xlwkBk = ActiveWorkbook: Set xlSht = xlwkBk.ActiveSheet
'Set the save path to the workbook's folder and the save name to the value of A1 in the active sheet
sPath = xlwkBk.Path & "\": sName = xlSht.Range("$A$1").Value
With wApp
  .Visible = True
  'Create a new Word document from a suitable template
  Set wDoc = .Documents.Add(Template:="Template path & name", Visible:=True)
  xlSht.Range("$A$1:$J$10").Copy
  With wDoc
    'Paste some Excel data at the designated bookmark
    .Bookmarks("My Bookmark").Range.Paste
    ' Save & close the output document
    .SaveAs Filename:=sPath & sName & ".docx", FileFormat:=wdFormatXMLDocument, AddToRecentFiles:=False
    ' and/or:
    .SaveAs Filename:=sPath & sName & ".pdf", FileFormat:=wdFormatPDF, AddToRecentFiles:=False
    .Close SaveChanges:=False
  End With
End With
Set wDoc = Nothing: Set wApp = Nothing: Set xlSht = Nothing: Set xlwkBk = Nothing
End Sub