Word Vba技巧总结

确定文本是否被选定：If Selection.Type = wdSelectionIP Then MsgBox "Nothing is selected"

word中选择单元格：Selection.SelectCell

移动到选定内容之后：Selection.Collapse Direction:=wdCollapseEnd
定位到Word中最后一行：Selection.EndKey unit:=wdStory　或sendkeys "^{end}"　
移到文档最后ctrl+end 最前ctrl+home 下页ctrl+pagedown 上页ctrl+pageup
移动到WORD最前：Selection.HomeKey Unit:=wdStory
移动到WORD最后：Selection.EndKey Unit:=wdStory

是否在表格中：Selection.Information(wdWithInTable) = True

判断是否是系统本身的样式(自己创建的样式为false)：Style.BuiltIn如果该属性值为 True，则指定对象是Word的内置样式

圆圈中的字符：{eq /o/ac(●,2)}   ‘插入域快捷键ctrl+f9
分子分母：{eq /f(a,b)}
开方：{eq /r(a,b)}

分栏页码：左边{={page}*2-1} 右边{={page}*2}

保护页眉页脚不被修改：插入页眉页脚-插入'连续分节符'-保护文档(窗体保护、任何人)
首页的页眉页脚不同：页面设置-版式-页眉页脚-首页不同 '也有奇偶页不同选项

总页数的设置：总页数的域代码为：共 { NUMPAGES } 页，但如果是分节后，则本节中的总页数为{ SECTIONPAGES }

判断对象是否可用：IsObjectValid

主模板中不能有自定义的工具栏(office2000出现问题)