vb word文档书签内内容更新的问题

[hdxu8511]

我先描述下：

我通过webbrowser控件实现了word文档的加载，能够找到活动文档中书签内容为“某某”的书签，但是替代内容文字就把书签删除了。

代码如下：

 If wb.Document.Bookmarks.Exists("第一个") Then 'wb是webbrowser的名称，第一个是第一个书签的名称
          wb.Document.Bookmarks("第一个").Range.Text = "ssss"
   End If

我还想通过函数操作书签，当函数执行时把书签所在的页面显示出来！！！


急......


帮我解决这两个问题话，分不是问题

[hdxu8511]

急... ....

[贝隆]

http://download.csdn.net/detail/veron_04/1627134

[hdxu8511]

有没有实际的代码提供 一般网上搜索的都是面向VBA 我想面向控件的

[hdxu8511]

成功解决问题的话 分不是问题

[Tiger_Zhao]

替换后要再加到 Bookmarks 集合中
http://msdn.microsoft.com/en-us/library/ad6ks7k0.aspx#Y5222

[hdxu8511]

结合网上搜索到的方法和楼上提供的方法
测试了bookmark内容替换的实现

代码如下：

wb.Document.Bookmarks(sBookMarkName).Select   ' 找到书签的位置
       ' Dim rng As Word.Range
       ' rng = wb.Document.Bookmarks(sBookMarkName).Range
        
       ' Dim bmN As String
        'bmN = wb.Document.Bookmarks(sBookMarkName).Name

       ' wb.Document.Bookmarks(sBookMarkName).Range.Text = newText
        With wb.Document.Application.Selection   ' 更新书签的内容,wb.Document,这是在控件中加载的word文档

            .TypeText Text:=strText
            .MoveLeft Unit:=wdCharacter, Count:=Len(sText)
            .MoveRight Unit:=wdCharacter, Count:=Len(sText), Extend:=wdExtend
            wb.Document.Bookmarks.Add Range:=Selection.Range, Name:=sBookMarkName
            wb.Document.Bookmarks.DefaultSorting = wdSortByName
            wb.Document.Bookmarks.ShowHidden = False
        
        End With

[hdxu8511]

但是 这样还是把书签删除掉了 求帮助啊 大哥大姐们