我有一个宏,我用它来突出显示待办事项列表的行,以查看我在哪一步。这很简单。它取消突出显示当前行并突出显示下一行。
Sub Highlight_Next_Row_Down()
Selection.EndKey Unit:=wdLine
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.Range.HighlightColorIndex = wdNoHighlight
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.EndKey Unit:=wdLine
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.Range.HighlightColorIndex = wdYellow
End Sub
现在,我希望它在我位于文档的最后一行时取消突出显示当前行,因为这样我就完成了。我会通过在整个事情周围插入一个 if 语句(减去 sub 语句)来做到这一点,该语句首先检查它是否是最后一行。但是,我不知道如何检查一行是否是最后一行。我用谷歌搜索并没有找到任何东西。
同样,我有一个“Highlight_Next_Row_Up”,我想知道当我到达顶线时如何做同样的事情。
谢谢你的帮助