生命於花
一、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就是调用插入-书签这个命令的。
