丽贝卡(Rebecca)正在寻找一种用“和”(and)替换句子中最后一个逗号的方法。她显然需要执行大量这种类型的编辑,并认为可能有一种快速简便的方法来进行编辑,而不需要手动进行。

没有内置的方法可以在Word中进行此特定的编辑,但是您可以创建一个简单的宏,该宏将搜索最后一个逗号,将其删除,然后键入所需的单词。下面是这种宏的一个示例。

Sub ReplaceLastComma()

Dim J As Integer     Dim bRep As Boolean     Dim sRaw As String

Selection.Sentences(1).Select     sRaw = Selection.Text     bRep = False     For J = Len(sRaw) To 1 Step -1         If Mid(sRaw, J, 1) = "," Then             Selection.Collapse Direction:=wdCollapseStart             Selection.MoveRight Unit:=wdCharacter, Count:=J - 1             Selection.Delete Unit:=wdCharacter, Count:=1             Selection.TypeText Text:=" and"

J = 1             bRep = True         End If     Next J     If Not bRep Then Selection.Collapse Direction:=wdCollapseStart End Sub

宏选择当前句子(插入点位于该句子中,然后向后浏览该句子的文本。(该文本被分配给变量sRaw为便于处理。)如果找到逗号,则

||逗号,您可以进行快速更改以删除要删除的行(并更改之前的行,以使移动是“ J + 1”而不是“ J-1”),或者您可以在逗号之前简单地添加逗号

|| 注:

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

link:/ wordribbon-WordTipsMacros [Click此处以在新的浏览器标签中打开该特殊页面]

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

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

链接:/ word-Replacing_the_Last_Comma [替换最后一个逗号]。