Word не удается сохранить документ в PDF - PullRequest
Новая
       42

Word не удается сохранить документ в PDF

0 голосов
/ 15 сентября 2010

Я программирую плагин Microsoft Word в VB.Net, и у меня есть код, который вызывает функцию для сохранения документа в формате PDF (Office 2007).

Я использую две функции: 

Public Sub SaveLandscape_CallBack(ByVal Control As Office.IRibbonControl)
    SaveEbook(True)
End Sub

И 

Public Sub SaveEbook(ByVal ForceLandscape As Boolean)
    Try
        Dim FilePath As String = Globals.ThisAddIn.Application.ActiveDocument.Path & "\" & Globals.ThisAddIn.Application.ActiveDocument.Name & ".ebook.pdf"
        Try
            Globals.ThisAddIn.Application.ActiveDocument.ExportAsFixedFormat(OutputFileName:=FilePath, ExportFormat:=Word.WdExportFormat.wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=Word.WdExportOptimizeFor.wdExportOptimizeForPrint, Range:=Word.WdExportRange.wdExportAllDocument, Item:=Word.WdExportItem.wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:=Word.WdExportCreateBookmarks.wdExportCreateHeadingBookmarks, DocStructureTags:=True, BitmapMissingFonts:=True, UseISO19005_1:=True)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    Catch Ex As Exception
        MsgBox(Ex.ToString)
    End Try

Я много обрезал второй, поэтому есть этот неиспользуемый параметр.
Первая функция связана с кнопкой ленты.Каждый раз, когда я запускаю его, ExportAsFixedFormat возвращает сообщение о том, что файл используется, какое бы имя я ни использовал.

Есть идеи?

Спасибо,
CFP.

РЕДАКТИРОВАТЬ : я идентифицировал проблему точно так же, как http://social.msdn.microsoft.com/Forums/en-US/worddev/thread/95c5b101-0d98-49f8-a92b-7b444e61cca8/.Любые идеи кто-нибудь?

1 Ответ

1 голос
/ 16 сентября 2010

Попробуйте поставить Globals.ThisAddIn.Application.ActiveDocument.Saved = True перед строкой Globals....

...