vbaword书签

一、excel vba操作word书签内容

你好twtytei,Sub abc()

Dim App, WrdDoc, Mypath As String, StrA As String, StrB As String

Mypath = "文件实际路径\TEXT1.doc" '请修改实际储存路径！

Set App = CreateObject("Word.Application") '用Set关键字创建Word应用成序对象！

App.Visible = True

Set WrdDoc = App.Documents.Open(Mypath) '打开这个Word文件！

StrA = WrdDoc.Bookmarks("aa").Range ' 读取书签aa内容

StrB = WrdDoc.Bookmarks("bb").Range ' 读取书签bb内容

WrdDoc.Close ' 关闭文件

Set App = Nothing

End Sub

二、有VBA高手吗 求一段代码 word 根据光标位置插入书签,打开此文档自

1、可以定义一个书签 “课程辅助”，值是一个无意义的东东，比如 AAAAA

在需要的地方插入书签

2、定义书签 “课程" ，值是 数学

3、按下alt+F9,ctrl+H，输入”课程辅助“， “课程"，全部替换

4、按下alt+F9,F9

代码：

ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="xx"

ThisDocument.Save

Selection.GoTo What:=wdGoToBookmark, Name:="mingzi "

三、excel VBA修改word书签后,书签自动删除了,请问怎样保留

添加书签步骤：①.选择要为其指定书签的对象，或单击要插入书签的位置。

②.执行“插入”→“书签”。③.在“书签名”框中，键入书签名，也可以在下面的列表中选择一个已有的书签名。

注意：书签名必须以字母、汉字、中文标点等开头，可以包含数字但中间不能有空格。④.单击“添加”按钮，新的书签名将出现在下面的列表中。

注意：a.如果新插入位置或新对象采用的是已有的书签名，原有的书签将自动取消。b.为一项内容指定书签，该书签会以灰色括号 （[…]） 的形式出现（括号仅显示在屏幕上，不会打印出来）；为一个位置指定的书签，则该书签会显示为灰色I形标记。

ctrl+shift+F5就是调用插入-书签这个命令的。

转载请注明出处51数据库 » vbaword书签