在一個文件夾中打開Publisher文件並保存爲Word文檔

我需要打開當前保存在Publisher（2003,2007和2010）中的大量文檔並將它們轉換爲Word文檔。這些只是簡單的一頁文本文件，但我有大約1000個要轉換。這裏是我的代碼：在一個文件夾中打開Publisher文件並保存爲Word文檔

Public Sub Pub_To_Word() 

Dim FS As New FileSystemObject 
Dim pubApp As Publisher.Application 
' Reference Library pointing to: 
' Microsoft Scripting Runtime 
' Microsoft Word 14.0 Object Library 
Dim FSfolder As Folder 
Dim MyFile As File 
Dim mydoc As Document 
Dim sFolderPath As String 
Dim Table As Table 


sFolderPath = "I:\My Documents\Publisher Test" 
Set FSfolder = FS.GetFolder(sFolderPath) 

For Each MyFile In FSfolder.Files 

      Set mydoc = pubApp.Open(MyFile) 
       Application.DisplayAlerts = False 
       mydoc.SaveAs Filename:MyFile & ".docx", FileFormat:=wdFormatXMLDocument 
       mydoc.Close savechanges:=True 
      pubApp.DisplayAlerts = True 

     End If 

    Next 

    End 
End Sub

代碼調試在

FileFormat:=wdFormatXMLDocument

我似乎無法讓過去這一點。

來源

2014-10-20 Mike Marshall

不知道爲什麼你在Excel中做，但是：

你好像在Filename:MyFile & ".docx"缺少冒號。
這些是Document.SaveAs的有效文件格式：https://msdn.microsoft.com/EN-US/library/office/ff940508.aspx。我想你可能必須保存爲RTF（pbFileRTF = 6）或HTML並通過Word的互操作將其轉換爲.docx。這個，誠然不推薦使用，文章也指出了這個方向：https://support.microsoft.com/en-us/kb/302939。（也許你將不得不使用6號，而不是定義的常量的，因爲你在Excel這樣做）

編輯： wdFormatXMLDocument可能無法定義，因爲您從發佈的宏，所以最簡單的將取代它12

來源

2015-09-22 21:45:38 Jbjstam

在一個文件夾中打開Publisher文件並保存爲Word文檔

回答

相關問題