word2007 マクロ

質問

下記マクロは蛍光ペンの箇所を括弧と空欄で書き換え、穴あき問題にするマクロです。
これを、文字数の分だけ、空欄をつくるにはどうすればいいのか？
また、蛍光ペンではなく、赤文字を括弧と空欄で書き換えるにはどうすればいいのか、
教えて頂けたら幸いです。

Sub Macro7()
Selection.HomeKey wdStory '文章の最初をカーソル移動
p1:
Selection.Find.ClearFormatting
Selection.Find.Highlight = True '蛍光ペンを問題にする
With Selection.Find
.Text = "" '文字は問題にしない
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = True
End With
Selection.Find.Execute '検索実行
If Selection = m Then Exit Sub '同じところを繰り返し見つけ出したら終わる
x = "（　　　　　　　　）" 'カッコで囲む語句を作成（蛍光ペンなし）
m = x '終わり判定のため保存
Selection.Delete '一旦消して
Selection.InsertAfter x 'カッコつきを挿入。いわば置換
GoTo p1
End Sub

回答No.2

jcctaira · ベストアンサー

abcdefg_1234567さん　こんにちは。

> 文字数の分だけ、空欄をつくるにはどうすればいいのか
以下のように一行変更すればできます。
x = "（　　　　　　　　）" 'カッコで囲む語句を作成（蛍光ペンなし）
　　　　　　　　　↓
x = "（" & String(Len(Selection.Text), "　") & "）"

> 蛍光ペンではなく、赤文字を括弧と空欄で書き換えるには
.Font.Color = wdColorRed　を追加すれば良いかと思います。

　Selection.Find.ClearFormatting
　Selection.Find.Highlight = True '蛍光ペンを問題にする
　With Selection.Find
　　　.Text = "" '文字は問題にしない
　　　　　　　　↓
　Selection.Find.ClearFormatting
　Selection.Find.Highlight = False
　With Selection.Find
　　　.Font.Color = wdColorRed
　　　.Text = ""

お礼

丁寧なご回答頂きありがとうございました＾＾

回答No.1

xls88

文字色を背景と同じ色にすればどうでしょうか。

Selection.Font.ColorIndex = wdWhite

お礼

ありがとうございます＾＾参考になりました。