用VBA调用WORD书签

chuhaiou · 发表于 2012-11-24 09:28

本帖最后由 chuhaiou 于 2012-11-24 11:11 编辑

好象书签的调用都是用超链接，好不方便，想用VBA来依次调用、定位书签，请老师帮忙，谢谢

chuhaiou · 发表于 2012-11-24 11:19

Sub 依次查找书签名()
If ActiveDocument.Bookmarks.Count >= 1 Then
      ReDim aMarks(ActiveDocument.Bookmarks.Count - 1)
      i = 0
      Dim label As Control
      Dim box As Control
      For Each aBookmark In ActiveDocument.Bookmarks
            aMarks(i) = aBookmark.Name
            MsgBox (aMarks(i))
            Dim caption As String
            caption = ActiveDocument.Bookmarks(1).Range.Text
            ' Set label = Me.Controls.Add("Forms.Label.1", "Label" & i, True)
            '  MsgBox (label.Name)
            '  label.Left = 10
            ' label.Top = 10
            ' label.caption = caption
            ' Set box = Me.Controls.Add("Forms.TextBox.1", "TextBox1" & i, True)
         ' box.Left = 10
            '  box.Top = 10
            '  box.Left = 50
            '  i = i + 1
      Next aBookmark
End If
End Sub

chuhaiou · 发表于 2012-11-24 11:20

本帖最后由 chuhaiou 于 2012-11-24 11:21 编辑

查到了书签名，但不知光标怎么定位到查到的书签处哟

chuhaiou · 发表于 2012-11-24 17:10

本帖最后由 chuhaiou 于 2012-11-24 17:14 编辑

在WORD中原来就这一句就行了：
Selection.GoTo What:=wdGoToBookmark, Name:="书签名"
但单个网页中的书签在WebBrowser1控件中就不行了，求用WebBrowser1控件显示的单个网页定位VBA

lhj1861 · 发表于 2017-12-7 16:03

chuhaiou 发表于 2012-11-24 11:19
Sub 依次查找书签名()
If ActiveDocument.Bookmarks.Count >= 1 Then
ReDim aMarks(ActiveDocume ...

请问下，如何给书签清空？我有个文档运行过一次，书签内有了内容，第二次在运行的时候，想先清空下，可是我这么写不起作用
d2.Bookmarks("bookmark1").Range.Text = ""
d2.Bookmarks("bookmark2").Range.Text = ""
不知道为什么？请教下

		自动登录	找回密码
密码			免费注册