| |
わからないなりに書いてみました。（全然自信なし）
DOCと同じフォルダにXMLで保存します。
時間がかかりすぎて使い物にならないかも。
DOC→XMLに変換する部分はマクロの記録を試してみてください。
私にはわからなかったこともあり、
下の例では、必要な部分も、捨ててしまったかもしれません。
適当に修正して下さい。
Sub test()
Dim i As Long
Const myFld = "C:\Documents and Settings\user\デスクトップ\test" '★実際のフォルダに
With Application.FileSearch
.LookIn = myFld
.FileName = "*.doc"
.SearchSubFolders = True
If .Execute Then
For i = 1 To .FoundFiles.Count
Documents.Open .FoundFiles(i)
'★ここから-----マクロの記録の結果を参考に修正必要
With ActiveDocument
.SaveAs FileName:=Left(.FullName, Len(.FullName) - 3) & "xml", _
FileFormat:=wdFormatXML
.Close
End With
'★ここまで--------------------
Next
End If
End With
End Sub
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
