● Wordに貼り付けたVBAプログラムコード内容の、コメントの文字色を緑にするプログラム
WordのVBEditorを開き、標準モジュールを新規挿入したのち、以下のコードをコピペします。実行すると、「’」が含まれた部分をコメントとみなし、緑色に色を変更します。
※オートコレクトで「’」が勝手に別の記号に変更されたり、点滅カーソルが一番最後に無かったりするとうまく色が変わらないかもしれません。とりあえずで使っていた不完全なコードですので、うまく色が変わらない場合、は頑張ってご自分で直してみてください。
＊＊＊＊＊＊＊＊＊＊＊＊＊＊
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 |
Sub komennto_green() Dim myText As String Dim i As Long Dim str_cnt01 As Variant '********************************************* 'シングルクォーテーションがいくつあるかを調べる '********************************************* myText = ActiveDocument.Content.Text With CreateObject("VBScript.RegExp") .Pattern = "'" .Global = True .IgnoreCase = True str_cnt01 = .Execute(myText).Count Debug.Print str_cnt01 End With '********************************************* 'シングルクォーテーションのある部分を緑色にする '********************************************* i = 0 'カウンタの初期化 For i = 1 To str_cnt01 - 1 Selection.Find.ClearFormatting With Selection.Find .Text = "'" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = True End With Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend Selection.Font.Color = wdColorGreen Selection.MoveRight Unit:=wdCharacter, Count:=1 Next i End Sub |
＊＊＊＊＊＊＊＊＊＊＊＊＊＊
ExcelやWord、AccessのVBEコードの管理などに使えると思います。
例えば、「mdb内のモジュールを全てテキストファイルに書き出す方法」で取得した全プログラムコードをWordに転記して、コメントだけ読みたいような場合に便利です。
（コメントやプログラムに漏れたらまずい文言が無いかを調べる・・・・などのときに）
っていうか、もっとラクにできるアドインとかあるかもしれないので、そちらを調べるほうがいいかもしれないですね。
- 投稿タグ
- WordVBA
