Msの単語の太字の前後にasterikを追加するVBAコード

Question

Msの段落全体にいくつかのBOld文字が含まれています。追加するVBAコードを探しています**前後に太字手紙を送り、次のへ移動する。大胆な手紙が始まる前と後にダブルアステリックが成立するまで。

Answer 1

これを試してください。あなただけのこのアクションは、あなたがあなたの代わりにこれを使用することができます強調表示するテキスト上で実行する場合は代わり

Sub InsertAsteriks() 
    Dim doc As Document 
    Set doc = ActiveDocument 

    Dim prev As Boolean: prev = False 

    For i = doc.Range.Characters.Count - 1 To 1 Step -1 
    If doc.Range.Characters(i).Bold Then 
     doc.Range.Characters(i).InsertAfter "**" 
     prev = True 
    Else 
     If prev Then 
     doc.Range.Characters(i).InsertAfter "**" 
     prev = False 
     End If 
    End If 
    Next 

    If prev Then 
    doc.Range.Characters(1).InsertBefore "**" 
    End If 

End Sub 

：それは前と文書全体のために、各太字の後、二重アスタリスクのセットを配置します

Sub InsertAsteriks2() 
    Dim prev As Boolean: prev = False 

    With Selection 
    For i = .Characters.Count - 1 To 1 Step -1 
     If .Characters(i).Bold Then 
     .Characters(i).InsertAfter "**" 
     prev = True 
     Else 
     If prev Then 
      .Characters(i).InsertAfter "**" 
      prev = False 
     End If 
     End If 
    Next 

    If prev Then 
     .InsertBefore "**" 
    End If 

    End With 
End Sub