VB6 将Word保存为PDF动作如何用 VB6语言表述

已引用 office 15.0 ，exportasfiedformat语局是从WORD VBA中录制的，但是在VB6中无法使用。求助！！！！！

Dim appword, wordbook As Object

Set appword = CreateObject("word.application")
Set wordbook = appword.Documents.Open("C:\Users\Desktop\新建 Microsoft Word 文档.docx")

wordbook.ExportAsFixedFormat OutputFileName:="C:\Users\Desktop\新建 Microsoft Word 文档.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