飛び飛びで色を変えたい

質問

Win 95 word 7.0 です。
word で カラフルな文章を作りたいと思いまして。

「文章例」
ごはん テレビ すいか ねこ くーらー てんぷら
いぬ なすび びでお とんぼ すし

というような文章があった場合、たとえば上の項目で
いえば食べ物の文字だけを「赤色」にしたい場合、
普通だったら一個一個 「ドラッグ→フォント赤」
としなければならないですが、 一気に 「赤色 」にする
方法はありますか。同時に複数ドラッグとでも言いましょうか。

回答No.2

noname#102878

一応VBAで作成してみました。
Word2000ですので97で実行可能かわかりませんし、深くは試してません。

標準モジュールに貼り付けてください。
実行は
[ツール]-[マクロ]-[マクロ]
で「ChangeColor」を実行してください。
--------------------------------------------

Public Sub ChangeColor()
　Dim varSearchWord As Variant
　Dim i As Long

　varSearchWord = Array("ごはん", "すいか", "てんぷら", "なすび", "すし")

　For i = 0 To UBound(varSearchWord)
　　With Selection.Find
　　　.Text = varSearchWord(i)
　　　.Forward = True
　　　.Wrap = wdFindStop
　　　.MatchCase = False
　　　.MatchWholeWord = True
　　End With

　　ThisDocument.Range(0, 0).Select

　　Do Until Selection.Find.Execute = False
　　　Selection.Font.Color = wdColorRed
　　Loop
　Next i
End Sub

--------------------------------------------
検索したい単語はあらかじめコードの中で定義しています。自由に増やしてみてください。

改善点１
様々な文書に対して実行したい。

解決策１－１
マクロをNormal.dotに書いておく。

解決策１－２
マクロを別文書に書いておく。

※いずれの方法も、マクロが書かれているファイル以外の文書を検索するのでDocumentオブジェクトの使い方を覚えなくてはならない。

改善点２

解決策２－１
検索語をもっと自由に定義したければ、別途テキストファイルに検索語のリストを書いておいて、マクロ実行時に読み込む。
→テキストファイルを開く方法を習得

解決策２－２
マクロがWordの別文書に書いてある場合(1-2の場合)、その文書ファイルの本文に検索語を書いておくこともできる。
→本文から文字を取得する方法を習得

回答No.1

nihonjinn

ワードはエクセルと違って離れたところは選択できないみたいですね。
ファンクションキーF4で操作の「繰り返し」をすることができますから、まず始めに「文字を赤色にする」という操作をしておいて次から
右手で文字をマウスで選択→左手でF4キーを押す
という風にやっていけば操作は早くなるとおもいます。