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

Question

Я программирую плагин 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 возвращает ошибку, указывающую, что файл используется, независимо от имени, которое я использую.

Любая идея?

Thanks,
CFP.

EDIT: Я определил проблему точно так же, как http://social.msdn.microsoft.com/Forums/en-US/worddev/thread/95c5b101-0d98-49f8-a92b-7b444e61cca8/. Какие-нибудь идеи?

Answer 1

Попробуйте положить Globals.ThisAddIn.Application.ActiveDocument.Saved = True перед Globals... линия.