What is your office version?
Only Office 2007 and newer versions supported "Save file as PDF".
============
For Office 2016:
Set wrd = CreateObject("Word.Application")
wrd.Visible = True
wrd.Documents.Add
wrd.Selection.TypeText "Sample text"
Call wrd.ActiveDocument.ExportAsFixedFormat("c:\temp\test.pfd", 17)