在word文檔表格單元格的下一行放置第二個書籤？

Question

我在光標位置的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 

我的書籤也可以字有多條線路的包裹。

書籤後如何將光標移動到下一行？

Answer 1

你的代碼幾乎可以工作。你沒有定義或告訴我們BMRange是什麼，所以我做了一些假設。出於這個原因總是使用'​​Option Explicit'。你想明確定義所有變量。另外，插入文本和光標不相關。深入思考使用範圍思考在文檔中構建，而不是插入點。雖然我的代碼示例不是最好的，但它確實說明了您的問題。

我不能得到你的結果，但這是我認爲你想要的。是對的嗎？

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