()を半角に揃える【素人 Word マクロ】
Microsoft officeのWordVBAでマクロを組みましたので公開します。
インターネットで検索したり、マクロの記録機能を使ったりしたのを組み合わせだけなので、上手くはないですが、一応動くはずです。
office2021です。
必ず、元データのバックアップを取ってから実行してください。
素人の作ったものなので、信用しすぎないでください。
[コード]
Sub カッコを揃える()
Dim rng As Range
' 全文書内のすべてのセクションで検索
For Each rng In ActiveDocument.StoryRanges
Do
' 全角の()を検索して半角の()に置換
rng.Find.ClearFormatting
rng.Find.Replacement.ClearFormatting
rng.Find.Text = "("
rng.Find.Replacement.Text = "("
rng.Find.MatchCase = False
rng.Find.MatchWholeWord = False
rng.Find.MatchByte = True
rng.Find.Execute Replace:=wdReplaceAll
rng.Find.Text = ")"
rng.Find.Replacement.Text = ")"
rng.Find.Execute Replace:=wdReplaceAll
' 次のセクションに移動
Set rng = rng.NextStoryRange
Loop Until rng Is Nothing
Next rng
MsgBox "処理が完了しました。", vbInformation
End Sub
この記事が気に入ったらサポートをしてみませんか?