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

Question

我想知道在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

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

Answer 1

您可以添加：

.IgnorePunct = True
.IgnoreSpace = True

以使其忽略空格&找到的内容中的标点符号(即，如果Find表达式用于"Nunc viverra impreciate enim.'"，则也将匹配"Nunc viverra imperciate enim."等表达式。

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

.Text = Trim(Selection.Text)

删除前后空格，但如果您的选择跨越多个单词、句子、逗号等，该怎么办。？