Bruce正在编写一个宏,需要在文档中进行选择。他知道如何定位插入点,但是在定位之后,他需要选择从此处到下一个标点符号的所有内容,包括标点符号之后的所有可能的引号或撇号。布鲁斯想知道是否存在执行此操作的实际命令,或者是否需要某种涉及的代码来进行选择。

首先要尝试的是使用VBA的内置功能来一次移动一个句子。放置插入点后,请使用以下命令:

Selection.MoveRight Unit:=wdSentence, Count:=1, Extend:=wdExtend

该命令将任何单词作为句子的视图向右扩展选择,因此它应该满足您的需求。如果不是(可能会丢失您选择中包含的某些字符),则可以尝试创建自己的选择代码。这是开发此类代码的一种方法的示例:

With Selection     .Extend     .Find.Text = "[,.'" & Chr(146) & Chr(148) & Chr(34) & "]"

.Find.MatchWildcards = True     .Find.Execute     .Find.Text = "[!,.'" & Chr(146) & Chr(148) + Chr(34) & "]"

.Find.Execute End With

Extend属性使Word从插入点的位置开始选择所有内容,而通配符搜索会找到所有标点符号。要搜索的文本基本上是所有标点符号,包括撇号和引号。

(可以根据需要修改这些内容以适合您的需求。)第二个查找操作(以感叹号开头的操作)在执行初始查找之后查找第一个非标点字符。这样,它将连续处理多个标点符号。

注意:

如果您想知道如何使用此页面(或_WordTips_网站上的任何其他页面)中描述的宏,我准备了一个包含有用信息的特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

(Microsoft Word是世界上最流行的文字处理软件。)本技巧(12341)适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里: