Trying to get my excel macro to work in Word

[graduate106]

Hi i have a good macro designated to a keyboard shortcut which saves my excel worksheet as a PDF to a particular folder on my hard drive (see below).

I know this is not strictly a "Word" forum, but womndered if anyone else could point me in the direction of tweaking this so that it worked in Word. I have done a few google searches but i'm struggling to get anything to work. I have never written a macro in Word before.

Any help appreciated, thanks

Sub SAVE_AS_PDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"V:\" & (ActiveSheet.Name) & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox ("PDF successfully saved to V: drive!")
End Sub

 

[graduate106]

Dont worry - nailed it!

For those interested:

Sub SAVE_AS_PDF()

ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"V:\" & ActiveDocument.Name & ".pdf", ExportFormat:= _
wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False


MsgBox ("PDF successfully saved to V:drive!")
End Sub

 

[Macropod]

Rather simpler is:

Sub SAVE_AS_PDF()
With ActiveDocument
  .SaveAs2 FileName:="V:\" & Left(.Name, InStrRev(.Name, ".")) & "pdf", Format:=wdFormatPDF
End With
MsgBox ("PDF successfully saved to V:drive!")
End Sub

Note: Your Excel and Word subs both leave the .xlsx & .docx extensions in the PDF filenames - mine doesn't.