Wordで自動で書式設定

質問

つぎのようなテキストがあります。

☆あいうえお
★かきくけこ

先頭に☆がついている段落のインデントを１字
先頭に★がついている段落のインデントを２字

と設定して★☆を削除というのを、50個のファイルについて自動でできますか？

回答No.1

TTak · ベストアンサー

マクロを組んでツールボタンに登録しておき、ファイルを開いてボタンを押すという作業で自動化はできます。

マクロの簡単な例は下記のとおりです。

Sub STAR_FIND()
Dim myText As String
Dim i As Integer
For i = 1 To ActiveDocument.Characters.Count
myText = Selection.Text
Select Case myText
Case Is = "☆"
Selection.ParagraphFormat.CharacterUnitLeftIndent = 1
　If MsgBox("続けますか?", vbYesNo) = vbNo Then Exit Sub
　Selection.Delete Unit:=wdCharacter, Count:=1
Case Is = "★"
　Selection.ParagraphFormat.CharacterUnitLeftIndent = 2
　If MsgBox("続けますか?", vbYesNo) = vbNo Then Exit Sub
　Selection.Delete Unit:=wdCharacter, Count:=1
End Select
Selection.MoveRight
Next i
End Sub

お礼

お答えいただき、ありがとうございました。
マクロ教えていただき、おかげさまで、仕事がはかどりました。
また、officeに関することで、よろしくお願いいたします。