Vba 从选择文本中排除空格和标点符号

我想知道在MS Word VBA脚本中，是否有任何方法可以从选择文本中排除空格和提示

例如，此脚本：

Sub MakeBoldViolet()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Replacement.Font.Bold = True
    .Replacement.Font.ColorIndex = wdPink
    .Replacement.Font.Size = 14
    .Text = Selection.Text
    .Replacement.Text = "^&"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .Execute Replace:=wdReplaceAll
  End With
End With
Application.ScreenUpdating = True
End Sub

顺便说一句，谢谢你的时间和努力

您可以添加：

.IgnorePunct = True
.IgnoreSpace = True

修改代码，使其忽略所查找内容中的空格和标点符号（即，如果查找表达式用于“Nunc viverra imperdiet enim.”，则“Nunc viverra.imperdiet enim.”等表达式也将匹配

对于选择本身，您可以使用：

.Text = Trim(Selection.Text)

---

要消除前/后空格，但如果您的选择跨越多个单词、句子、逗号等，会发生什么情况？

.MatchWholeWord=True？感谢您的回答。这实际上非常有用！我可以为偶尔需要exra字符的情况创建一个不同的脚本——我想。