VSTO Word 2007:如何以编程方式将控件移动到现有控件的范围之上/之下?

我在richtextcontrol中添加了一个书签,只需从操作窗格中的两个按钮将其移动到另一个按钮的上方/下方。如果下面的“bm”等于所选书签,则向上移动:

Dim pageBookmark As Microsoft.Office.Tools.Word.Bookmark
pageBookmark = Globals.ThisDocument.Controls.Item(bm)
pageBookmark.Range.Relocate(Direction:=Word.WdRelocate.wdRelocateUp)

对于树视图,它会更复杂,但我可以看到您希望所有的richtext控件都被索引(可能使用“tag”属性),然后在树视图中移动它们时,使用索引从其他索引中添加/减去,然后在一个循环中使用“relocate”方法多次将其转到新位置。然后可以循环并重新创建索引。 Application.ScreenUpdating = False 在循环开始时,将其设置回 = True 在循环结束时,也会停止闪烁。