空格函数

Sub 空格输入和选择试验()

Set docNew = Documents.Add

ActiveWindow.Panes(1).View.ShowAll = True

    With docNew.Content

        .InsertAfter " " & "粘贴到代码窗口的半角空格" & vbCr

        .InsertAfter "　" & "粘贴到代码窗口的全角空格" & vbCr

        .InsertAfter Space(1) & "Space函数得到的半角空格" & vbCr

        .InsertAfter Chr(32) & "ASCII码得到的半角空格" & vbCr

        .InsertAfter ChrW(160) & "Unicode码得到的半角空格" & vbCr

        .InsertAfter ChrW(12288) & "Unicode码得到的全角空格" & vbCr

        .InsertAfter "   " & "粘贴到代码窗口的3个连续半角空格" & vbCr

        .InsertAfter "　　　" & "粘贴到代码窗口的3个连续全角空格" & vbCr

        .InsertAfter Space(3) & "Space函数得到的3个连续半角空格" & vbCr

        .InsertAfter String(4, 32) & "ASCII码得到的4个连续半角空格" & vbCr

        .InsertAfter String(5, ChrW(160)) & "Unicode码得到的5个连续半角空格" & vbCr

        .InsertAfter String(6, ChrW(12288)) & "Unicode码得到的6个连续全角空格" & vbCr

        Stop

        .Font.Name = "宋体" '注意观察字体改变后，句号型半角空格的变化

    End With

    With Selection.Find

        .Execute Space(5) '查找5个连续的无论以什么方式获得的半角空格

        .Parent.HomeKey wdStory

        .Execute String(6, ChrW(12288)) '查找6个连续的全角空格

    End With

End Sub