如何更改书签的内容？

Question

doc2中定义的有一个书签"主要事迹"，该书签在程序运行之前是空的。
这是我目前的程序：
 with wordapp
   .Documents.Open (App.Path + "\doc2.doc")
   .Selection.GoTo wdGoToBook, , , "主要事迹"
   .Selection.TypeText "事迹1"
 end
当程序执行到此处时，书签处的内容为“事迹1”。
但现在我的需求是，接下来再写一段代码将书签内容“事迹1”改为“事迹2”。请问接下来的代码应该怎么写。谢谢。

Answer 1

with wordapp
   .Documents.Open (App.Path + "\doc2.doc")
   .Selection.GoTo wdGoToBook, , , "主要事迹"
   .Selection.TypeText "事迹1"
   .Selection.TypeText "事迹2"
 end哈哈，是这样吗？不好意思我没试过。你信 誉 值也够低的

Answer 2

lazygod(Use any item)：
1：这样做显然不行，最终书签处出现的是：事迹1事迹2。而不是事迹2。
2：你信 誉 值也够低的。 我也不知道为什么会这样，我所有的问题都结帐了啊呵呵，再怎么说我也是5年的csdn的网友了，不知道为什么这么不给面子。呵

Answer 3

.Selection.GoTo wdGoToBook, , , "主要事迹"
   .Selection.TypeText "事迹1"
   For I = 2 To 10
        str1 = "事迹" & Trim(Str(I))
        .Selection.GoTo wdGoToBook, , , str1
        .Selection.TypeText "事迹" & Trim(Str(I + 1))
   Next

Answer 4

henrryzhang(North Wolf) :
多谢。但可能我没有说明白，我的意思是，针对“主要事迹”这一个书签，在赋了“事迹1”的值后，在下面的程序里面想更改这个书签的值。即将“事迹1”改为“事迹2”。
而不是重新赋值给另外一个书签。

Answer 5

你是指书签名是“主要事迹”，而书签内容是空的吗？
现在想把书签赋内容“事迹1”？
Look:For i = 1 To ActiveDocument.Books.Count
    If ActiveDocument.Books(i).Name = "主要事迹" Then
        ActiveDocument.Books(i).Range = "事迹1"
    End If
Next

Answer 6

我也想知道！这种需求是不是要用word的域啊？对域是什么概念还没有弄清楚。

Answer 7

天啊！你都在CSDN混了五年了，怎么还是一个小角角？不解。

Answer 8

删除 事迹1 然后 重新 selection.typetext “事迹2”