【ワードマクロ】傍点をつける(文字の上に点をつける)

ワードマクロ 傍点ぼうてんをつけるアイキャッチ ワードマクロで効率化する

ワードマクロで、傍点(ぼうてん)をつけるVBAコードをご紹介します。

以下のような作業でお困りはありませんか?

・文字の上に点をつけて強調させたい
・特定の文字を傍点(ぼうてん)で強調させたい

このページのマクロコードは、コピペで使えます。
ぜひお試しください!

傍点をつける(文字の上に点をつける)

以下のWordVBAを実行すると、指定したキーワードに傍点をつけます。

Sub 傍点をつける()
    
    Dim Target As String
    Dim Myrange As Range
    Dim GetStart As Long
    Dim GetEnd As Long
       
    Set Myrange = ActiveDocument.Range(0, 0)
    
    Target = "忘年会"
    
    With Myrange.Find
    
       .Text = Target
       
       '検索実行
        Do While .Execute
       
          '検索文字の開始位置と終了位置を取得
           If .Found = True Then
             GetStart = Myrange.Start
             GetEnd = Myrange.End
           End If
           
           '傍点をつける
           Myrange.Font.EmphasisMark = wdEmphasisMarkOverSolidCircle
               
        Loop
    
    End With
    
End Sub

マクロ実行前

「忘年会」の文字列に傍点をつける前

マクロ実行後

「忘年会」の文字列に、丸い傍点をつけました。

 
 

VBAコードの解説

[Target] は、
傍点をつけたいキーワードを入力します。
 
 

カンマの傍点(ぼうてん)を打ちたい場合

[Myrange.Font.EmphasisMark = wdEmphasisMarkOverSolidCircle] を、
[Myrange.Font.EmphasisMark = wdEmphasisMarkOverComma] に変えてください。
 

 

【ワードマクロ】文字色を一括で変更:4つの使用例を紹介するよ
「文字色を変更する」WordVBAコードの組み方を記載しています。複数パターンを図解付きで説明しています。[Color]プロパティで対象文字を赤・青・緑など好きな色に一括で変更できます。[Select Case ]を使用し、指定した文字列によって色分けすることもできます。スキルシートをチェックするツールとして組み込んでいたマクロです。