当前位置：首页 → 问答吧 → 关于word中在书签处插入文本的问题

关于word中在书签处插入文本的问题

时间：2011-02-22

来源：互联网

我用想用vb.net 2010开发一个word批量编辑程序减轻工作压力。
我想在第三行的书签a3处插入一个文本，但这个文本却被插入至第一行的文字前面，然后在书签b3处插入文本时程序报错告诉第二个书签不存在。

请高手给指点一下，word文档如下：

a.rar (2.38 KB)
代码如下：

复制内容到剪贴板

代码:

      Dim wordApp As New Word.Application
      Dim wordDoc As New Word.Document

      wordDoc = wordApp.Documents.Open("d:\a.doc")
      If Err.Number = 462 Then
         wordApp = CreateObject("Word.Application") '建立WORD实例
         wordDoc = wordApp.Documents.Open("d:\a.doc")
      End If

      wordApp.Selection.GoTo(What:=wdGoToBookmark, Which:=wdGoToPrevious, Name:="a3")
      wordApp.Selection.TypeText(Text:="-hjkjhkj-")
      wordApp.Selection.GoTo(What:=wdGoToBookmark, Which:=wdGoToAbsolute, Name:="b3")
      wordApp.Selection.TypeText(Text:="hello")

      wordDoc.Close() '关闭文档实例
      wordApp.Quit()
      wordDoc = Nothing
      wordApp = Nothing
End Sub

作者: myriceme 发布时间: 2011-02-22

问题已解决.
      If (wordDoc.Bookmarks.Exists("书签1")) Then
         Dim b1 As Object = "书签1"
         Dim bk1 As Word.Bookmark = wordDoc.Bookmarks.Item(b1)
         bk1.Range.Text = "插入文本"
      End If

作者: myriceme 发布时间: 2011-02-22

关于word中在书签处插入文本的问题

代码:

热门阅读

热门下载