使い方によっては、もう少し踏み込んだ方がいいのかもしれません。
蛍光ペンで着色する場合には、その範囲選択が必要です。
その手間を少しでも省くことがこのマクロの目的です。
▼このマクロでできること
カーソルがある部分の単語、文、段落を自動で選択して、その部分に蛍光ペンで着色します。
マーキングの際に、選択範囲を広げる手間が減りますね。
![イケてる](https://emoji.ameba.jp/img/user/sa/santos100/170197.gif)
![みんなのワードマクロ](https://stat.ameba.jp/user_images/20121008/08/gidgeerock/05/e9/p/t02200054_0567013812226098622.png?caw=800)
![イケてる](https://emoji.ameba.jp/img/user/sa/santos100/170197.gif)
![みんなのワードマクロ](https://stat.ameba.jp/user_images/20121008/08/gidgeerock/75/dc/p/t02200055_0570014212226098626.png?caw=800)
![イケてる](https://emoji.ameba.jp/img/user/sa/santos100/170197.gif)
![みんなのワードマクロ](https://stat.ameba.jp/user_images/20121008/08/gidgeerock/5d/23/p/t02200056_0569014512226098623.png?caw=800)
![イケてる](https://emoji.ameba.jp/img/user/sa/santos100/170197.gif)
![みんなのワードマクロ](https://stat.ameba.jp/user_images/20121008/08/gidgeerock/b1/a6/p/t02200057_0567014612226098694.png?caw=800)
▼マクロの解説
Expandメソッドを用いています。
オプションのUnitにて、拡大する範囲の単位を設定できます。
選択範囲を広げてから、旋回の記事「【Wordマクロ】選択範囲を蛍光ペンで着色 」で紹介したように蛍光ペンで選択範囲を着色します。
▼マクロ
Sub 蛍光ペンで着色_単語_黄()
Selection.Expand unit:=wdWord
Selection.Range.HighlightColorIndex = wdYellow
End Sub
Sub 蛍光ペンで着色_文_黄()
Selection.Expand unit:=wdSentence
Selection.Range.HighlightColorIndex = wdYellow
End Sub
Sub 蛍光ペンで着色_段落_黄()
Selection.Expand unit:=wdParagraph
Selection.Range.HighlightColorIndex = wdYellow
End Sub
▼関連記事
プログラミング文を登録して使う方法
【Wordマクロ】選択範囲を蛍光ペンで着色
【Wordマクロ】選択範囲を蛍光ペンで好きな色で着色
【Wordマクロ】範囲を自動選択して蛍光ペンで着色 (現在の記事)
書類の蛍光ペンをすべて解除するマクロ
特定の色の蛍光ペンを検索することはできるのか?
蛍光ペンの色を判定する
特定の蛍光ペンを消すマクロ
Word 蛍光ペンの色を入れ替えるマクロ
カーソル位置の段落の蛍光ペンをすべて解除するマクロ
Wordの蛍光ペンと強調表示のマクロ(アドイン紹介)
選択範囲を蛍光ペンで着色
Wordマクロの便利な使い方一覧(1)
Wordマクロの便利な使い方一覧(2)
Wordマクロの便利な機能一覧(1)
Wordマクロの便利な機能一覧(2)