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

vb word文档书签内内容更新的问题
本帖最后由 hdxu8511 于 2011-12-21 15:03:10 编辑    我先描述下：

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

    代码如下：
       
  

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

          wb.Document.Bookmarks("第一个").Range.Text = "ssss"

   End If

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


   急......      


   帮我解决这两个问题话，分不是问题
------最佳解决方案--------------------
http://download.****.net/detail/veron_04/1627134
------其他解决方案--------------------
急... ....
------其他解决方案--------------------
  有没有实际的代码提供  一般网上搜索的都是面向VBA 我想面向控件的  
------其他解决方案--------------------
  成功解决问题的话  分不是问题  
------其他解决方案--------------------
替换后要再加到 Bookmarks 集合中
http://msdn.microsoft.com/en-us/library/ad6ks7k0.aspx#Y5222
------其他解决方案--------------------
结合网上搜索到的方法和楼上提供的方法
测试了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

------其他解决方案--------------------
但是  这样还是把书签删除掉了   求帮助啊   大哥大姐们