Vba 是否将第二个书签放在word文档表格单元格的下一行?

Vba 是否将第二个书签放在word文档表格单元格的下一行?,vba,ms-word,bookmarks,Vba,Ms Word,Bookmarks,我将书签放在游标位置的word文档表单元格中。现在,我想在同一个表格单元格中向下移动书签后的一行,然后放置另一个书签。我尝试在书签后添加回车符,但光标仍保留在书签的第一行 ActiveDocument.Bookmarks.Add Name:=bmItemNo, Range:=BMRange 'Adds carriage return after bookmark BMRange.InsertAfter (Chr(13)) 我还尝试将光标移动到行尾并向下移动1行,但它跳出了表格单元格: Acti

我将书签放在游标位置的word文档表单元格中。现在,我想在同一个表格单元格中向下移动书签后的一行,然后放置另一个书签。我尝试在书签后添加回车符,但光标仍保留在书签的第一行

ActiveDocument.Bookmarks.Add Name:=bmItemNo, Range:=BMRange
'Adds carriage return after bookmark
BMRange.InsertAfter (Chr(13))
我还尝试将光标移动到行尾并向下移动1行,但它跳出了表格单元格:

ActiveDocument.Bookmarks.Add Name:=bmItemNo, Range:=BMRange
'Adds carriage return after bookmark
BMRange.InsertAfter (Chr(13))
Selection.EndKey unit:=wdLine, Extend:=wdMove
Selection.MoveDown unit:=wdLine, Count:=1, Extend:=wdMove
我的书签也可以用多行文字换行


如何将光标移动到书签后的下一行?

您的代码几乎可以正常工作。你没有定义或告诉我们BMRange是什么,所以我做了一些假设。因此,请始终使用“选项显式”。您希望显式定义所有变量。此外,插入文本和光标不相关。练习在文档中构建范围,而不是插入点。虽然我的代码示例不是最好的,但它确实说明了您的问题

我不能得到你的结果,但我认为这是你想要的。是这样吗

Option Explicit
Public Sub Test()
    Dim BMRange As Range
    Set BMRange = Selection.Range

    ActiveDocument.Bookmarks.Add Name:="One", Range:=BMRange

    'Adds carriage return after bookmark
    BMRange.InsertAfter (Chr(13))

    Selection.EndKey unit:=wdLine, Extend:=wdMove
    Selection.MoveDown unit:=wdLine, Count:=1, Extend:=wdMove

    Set BMRange = Selection.Range
    ActiveDocument.Bookmarks.Add Name:="Two", Range:=BMRange
End Sub