word vba中如何修改书签所在的单元格的右侧的单元格中的内容？代码如下，有什么错误?

Question

Set myrange = mydoc.Bookmarks("xuhao").Range
myrange.Select
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.Range.Text = "234"

Answer 1

Sub test()
ActiveDocument.Bookmarks("xuhao").Range.Cells(1).Next.Range.Text = 1234
End Sub追问

对于这个单元格下面，左面的单元格如何指定？Cells(1).down. 吗？

追答

左边的可以用Previous
下面的你可以获取cells(1)的rowindex和columindex后用cell(r+1,c)来指定相应单元格.

例如

Sub test()
Dim r As Integer, c As Integer
With ActiveDocument.Bookmarks("xuhao").Range
r = .Cells(1).RowIndex
c = .Cells(1).ColumnIndex
.Tables(1).Cell(r + 1, c).Range = 234
End With
End Sub