| |
▼Ka-sa さん：
処理したいファイルを、一つのフォルダにまとめておいて
下記マクロを実行します。
Option Explicit
Sub test()
Dim f As String
Dim tmp As String
Dim doc As Document
Dim r As Range
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "ワード文書があるフォルダを選択してください"
If .Show Then
f = .SelectedItems(1) & "\"
Else
MsgBox "操作を中止します"
Exit Sub
End If
End With
'
tmp = Dir(f & "*.docx")
'
Do While tmp <> ""
Set doc = Documents.Open(f & tmp)
Set r = doc.Content
With r.Find
.MatchWildcards = True
.Text = "^13{2,}?"
.Replacement.Text = "^m"
.Execute Replace:=wdReplaceAll
End With
doc.Close True
tmp = Dir()
Loop
End Sub
最終的には、１つずつ開いて確認が必要でしょうから
手作業で、置換操作をしても良い気がします。
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
