Word 2013 で VBA スクリプト (以下を参照) を使用して、.rtf ファイルのフォルダーを .docx ファイルに変換します。ほとんどの場合は機能しますが、2 つの小さな問題があります。
- 元のファイルはそれぞれ .rtf ファイルであることを認めなければなりません。Word が各 .rtf ファイルを開くと、各ファイルが .rtf ファイルであることを確認するダイアログが表示されます。
- 変換された .docx ファイルを Word で表示すると、正しく変換されていないことを示す「互換モード」ヘッダーが表示されます。
これらの問題に対する修正はありますか? 最初の 1 つは、スクリプト作成の要点全体を損なうものであり、2 番目のものは予期しない問題を引き起こすのではないかと心配しています。
Sub ConvertRtfToDocx()
Set oWord = CreateObject("Word.Application")
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Select folder..."
.Show
myFolder = .SelectedItems.Item(1)
End With
myWildCard = InputBox(prompt:="Enter wild card...")
myDocs = Dir(myFolder & "\" & myWildCard)
While myDocs <> ""
Debug.Print myDocs
Set oDoc = oWord.Documents.Open(myFolder & "\" & myDocs)
oDoc.SaveAs myFolder & "\" & Left(myDocs, Len(myDocs) - 4) & ".docx", _
wdFormatXMLDocument
myDocs = Dir()
Wend
oWord.Quit
End Sub