Code: Select all
Sub Macro2()
'
' Macro2 Macro
'
'
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\Users\Gibbons\Desktop\Automation Project\Tests\Test1\Test1.pdf" _
, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
ActiveDocument.Close
Application.Quit
End Sub
Code: Select all
q::
{
oWord := ComObjActive("Word.Application")
oWord.ActiveDocument.ExportAsFixedFormat("C:\Users\Gibbons\Desktop\Automation Project\Tests\Test1\Test1.pdf","wdExportFormatPDF",True,"wdExportOptimizeForPrint","wdExportAllDocument",1,1,"wdExportDocumentContent",True,True,"wdExportCreateNoBookmarks",True,True,False)
oWord.ActiveDocument.Close
oWord.Application.Quit
return
}
Any ideas on where I went wrong? Is there a better way to do this?
Thanks,
Gibbons