Sub FindSectionSymbol()
    Dim rng As Word.Range
    Set rng = ActiveDocument.Content
    With rng.Find
        .ClearFormatting
        .Format = False
        .Forward = True
        .Text = "§"
        .Wrap = wdFindStop
        .Execute
        Do While .Found
            rng.Collapse Word.wdCollapseEnd
            rng.MoveEnd Word.wdCharacter, Count:=1
            If Asc(rng.Text) = 32 And rng.Font.Spacing = 0 Then
                rng.Font.Spacing = rng.Font.Spacing - 2
            ElseIf Asc(rng.Text) > 47 And Asc(rng.Text) < 58 Then
                rng.Collapse Word.wdCollapseStart
                rng.Text = " "
                rng.Font.Spacing = rng.Font.Spacing - 2
            End If
            rng.Collapse Word.wdCollapseEnd
            .Execute
        Loop
    End With
End Sub