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
格式居中吗
activedocument。Bookmarks(1)。Range。Paragraphs(1)。Alignment = wdAlignParagraphCenter
以上只考虑书签只有一行的情况
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 ”