我有一个包含各种标题的文档（因此不一定是标题 1 或标题 2 - 而是所有类型的标题）。
我想做的是编写一个宏，例如，删除每个标题末尾的 2 个空格。
例如，我们有
这是一个标题
在标题的最后，我会这样做：
Selection.Delete Unit:=wdCharacters, Count:=2
我需要将其应用在每个标题的末尾。
有谁知道如何做到这一点？
转到第一个标题：
Selection.GoTo What:=wdGoToHeading,Which:=wdGoToFirst
转到下一个标题
Selection.GoTo What:=wdGoToHeading,Which:=wdGoToNext
检查您所在的位置，看看您是否已到达最后一个标题：
x=Selection.Start
Selection.GoTo What:=wdGoToHeading,Which:=wdGoToNext
if x = Selection.Start then '... last heading reachd
转到当前标题的结尾（例如，删除字符：
Selection.EndKey Unit:=wdLine
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
