Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

90 / 886

←次へ　｜　前へ→


	【821】Re:初心者です

マナ - 17/3/2(木) 20:11 -


	引用なし

	パスワード

▼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

最終的には、１つずつ開いて確認が必要でしょうから
手作業で、置換操作をしても良い気がします。

210 hits

▼

【818】初心者です Ka-sa 17/2/28(火) 10:16