No.3ベストアンサー
- 回答日時:
マクロ記録ではフォント書式は記録できないので、その部分は追記してください。
一例として
Sub test01()
'
' 検索条件で二重下線、置換条件で蛍光ペン
'
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
'検索で二重下線
.Font.Underline = wdUnderlineDouble
.Text = ""
'置換で蛍光ペン
.Replacement.Highlight = True
.Replacement.Text = "^&"
'その他の条件
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.CorrectHangulEndings = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
No.2
- 回答日時:
マクロの記録から編集してみました。
とりあえず動きました。
Do Loopを抜ける条件を変数iで設定しています。
もう少し正確な方法を見つけたいです。
Dim i As Long
Selection.HomeKey Unit:=wdStory
With Selection.Find
.ClearFormatting
.Font.Underline = wdUnderlineDouble
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = True
End With
Do
i = i + 1
Selection.Find.Execute
Options.DefaultHighlightColorIndex = wdYellow
Selection.Range.HighlightColorIndex = wdYellow
Loop Until i = 100
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードの表の中の値の表示形式...
-
同じ文字
-
Word文書、取り消し線部分の一...
-
ワードで赤字のみを削除する方法
-
Wordデータから,特定の単語を...
-
ワードの表への入力について
-
「WORD」での作業 日本語・英...
-
エクセル 住所録の中に登録して...
-
画像にあるように句読点「、」...
-
word文書内のピンク色の文字を...
-
ワードで太字になっているとこ...
-
word置換で改行は置換できますか?
-
英数字のフォント「Century」に...
-
{0>と<0}ではさまれた文字列の置換
-
ワードで特定の文字列だけを太...
-
エクセル内の文字列をワードで...
-
Wordで漢字とひらがなのフォン...
-
エクセルで、コンマをピリオド...
-
Wordでカッコで括った文字を一...
-
ページ内の文字や記号の数え方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Word文書、取り消し線部分の一...
-
エクセルでシートにある赤文字...
-
「WORD」での作業 日本語・英...
-
ワードで赤字のみを削除する方法
-
Excelの表中,数字の「1」をす...
-
箇条書きのアタマに一括で「・...
-
Wordでカッコで括った文字を一...
-
Word相互参照の文字を一括で変...
-
ワードで太字になっているとこ...
-
ワードで半角英数の文字だけ選...
-
エクセルで、コンマをピリオド...
-
ワードの表への入力について
-
excelマクロ ボタンを押して文...
-
Wordデータから,特定の単語を...
-
wordで特定の色だけ印刷しない方法
-
word文書内のピンク色の文字を...
-
word 2003で、赤い文字(あるい...
-
ワードの表の中の値の表示形式...
-
同じ文字
-
Word(2010)の差込印刷時に特定...
おすすめ情報