在Word 2010 VBA中，使用查找和替换在符号前后插入空格字符

Sub InsertSpaceBeforeAndAfterSymbol()
    Dim symbol As String
    Dim doc As Document
    Dim rng As Range
    
    ' 设置要查找和替换的符号
    symbol = "符号"
    
    ' 获取当前活动文档
    Set doc = ActiveDocument
    
    ' 设置查找范围为整个文档
    Set rng = doc.Range
    
    ' 开始查找和替换
    With rng.Find
        .ClearFormatting
        .Text = symbol
        .Replacement.Text = " " & symbol & " "
        .Forward = True
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
    End With
End Sub