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

  • 问题

  • 已引用 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

        
    • 已移动 Carl Cai 2014年8月5日 2:17
    2014年8月4日 8:39

全部回复

  • 已引用 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

        

    Hi,

    欢迎来到msdn。

    很抱歉,关于VB6.0 的问题, MSDN不做相关技术支持,你可以尝试去其他论坛需求帮助。

    谢谢你的理解和支持。

    Regards


    We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
    Click HERE to participate the survey.

    2014年8月5日 2:17