**指定你的word文档(包含完整路径)
strFilePath="g:\1.docx"
objUDC = CREATEOBJECT("UDC.APIWrapper")
itfPrinter = objUDC.Printers("Universal Document Converter")
itfProfile = itfPrinter.Profile
itfProfile.PageSetup.ResolutionX = 300
itfProfile.PageSetup.ResolutionY = 300
itfProfile.FileFormat.ActualFormat = 2 &&FMT_JPG
itfProfile.FileFormat.PDF.ColorSpace = 24 &&CS_TRUECOLOR
itfProfile.FileFormat.PDF.Multipage = 2 &&MM_MULTI
itfProfile.OutputLocation.Mode = 1 &&LM_PREDEFINED
itfProfile.OutputLocation.FolderPath = "C:\Out"
itfProfile.OutputLocation.FileName = "&[DocName(0)] -- &[Date(0)] -- &[Time(0)].&[ImageType]"
itfProfile.OutputLocation.OverwriteExistingFile = .F.
WordApp = CreateObject("Word.Application")
WordDoc = WordApp.Documents.Open(strFilePath, , 1)
WordApp.ActivePrinter = "Universal Document Converter"
WordApp.PrintOut()
WordDoc.Close
WordDoc = null
WordApp.Quit
WordApp = Null