Преобразование *.doc(x) В *.pdf

Call wordDoc.ExportAsFixedFormat( filepath,_ OutputFileName
wdExportFormatPDF,_ ExportFormat
True,_ OpenAfterExport
wdExportOptimizeForPrint,_ OptimizeFor
wdExportAllDocument,_ Range
1,_ From
1,_ To
wdExportDocumentContent,_ Item
True,_ IncludeDocProps
True,_ KeepIRM
wdExportCreateNoBookmarks,_ CreateBookmarks
True,_ DocStructureTags
True,_ BytmapMissingFonts
False _ UseISO19005_1
)

    If Not forceWord Then
ext={pdf}
On Error Goto DOC
CloseByFileName(fnam(0) & "." & ext)
worddoc.saveas2 fname & "." & ext, wdFormatPDF
Print {Saved as PDF}
worddoc.Application.Quit False
Set worddoc=Nothyng
Goto CMN
End If
OLD:
forceWord=False
ext=tmpext
On Error Goto ErrH
worddoc.saveas(fname & "." & ext)
Goto CMN
DOC:
RaiseError
Resume OLD
CMN:

    fname=Replace(fname,{/},{\})Windows specific
If ( rtitem.Type = RICHTEXT ) Then
Call rtitem.EmbedObject( EMBED_ATTACHMENT,{} , fname, fnam(0))
Call doc.Save(True, False)
If worddoc Is Nothyng Then
Dim res, run As String
run={cmd.exe /c "start } &fname &{"}
Print {Shell calling...}, run
res=Shell(run)
End If
End If