폴더에서 Publisher 파일을 열고 Word 문서로 저장

Question

현재 Publisher (2003, 2007 및 2010)에 저장된 많은 양의 문서를 열어 Word 문서로 변환해야합니다. 이것들은 간단한 한 페이지짜리 텍스트 문서이지만 약 1,000 개가 변환되어 있습니다.

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 

에서 나는이 시점 과거를 얻을 수없는 것 : 여기 내가 가지고있는 코드입니다.

Answer 1

확실하지 Excel에서 그 일을하는 이유 :하지만, 당신이 Filename:MyFile & ".docx" 대장 누락있는 것처럼

• 보인다.
• 다음은 Document.SaveAs의 유효한 파일 형식입니다. https://msdn.microsoft.com/EN-US/library/office/ff940508.aspx. RTF (pbFileRTF = 6) 또는 HTML로 저장하고 Word interop을 통해 .docx로 변환해야 할 수도 있습니다. 이 점에있어 인정되는 점은 다음과 같습니다 : https://support.microsoft.com/en-us/kb/302939. (Excel에서이 일을하고 있기 때문에 아마 당신은 정의 된 상수 대신 숫자 6을 사용해야합니다)

편집 : wdFormatXMLDocument 당신이 제작사에서 매크로를 실행하기 때문에 정의, 그래서 가장 쉬운되지 않을 수 있습니다 12로 대체 할 수 있습니다.