怎样在Word中用VBA操作表格
点WORD左上角OFFICE图标,在弹出来的框右下角有一个"WORD选项",弹出WORD选项框,在页面上有几个复选框,勾选“在功能区显示“开发工具”选项卡”,然后确认。
回到WORD 界面,在菜单栏上面多了一个“开发工具”,点击“开发工具”就可以看到visual basic 也就是VBA代码编辑的地方了。
如何使用vba在word中插入表格
获取标题与正文使用style。
试验一下如下代码。
Sub Test()Dim i As SingleFor i = 1 To ActiveDocument.BuiltInDocumentProperties(wdPropertyLines).ValueWith Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=i.HomeKey Unit:=wdLine.EndKey Unit:=wdLine, Extend:=wdExtendEnd WithIf Selection.Style = "正文" ThenMsgBox i &; "行是正文"End IfIf Selection.Style = "标题 1" ThenMsgBox i &; "行是标题 1"End IfNextEnd Sub
excel用vba自动生成word
Sub GenDocfromExcel()'excel控制word,生成新文件,插入图片和文件名,保存'office 2003, VBA工具/引用中要勾选Microsoft Word 11.0 Object Library'office 2007, VBA工具/引用中要勾选Microsoft Word 12.0 Object Library'...Range("A1:B13").Copy '复制当前内容Dim WordApp As Word.Application '定义变量Set WordApp = CreateObject("Word.Application") '生成WORD对象WordApp.Documents.Add '新建文件WordApp.Selection.Paste '粘贴fn$ = "D:\" & Range("b1") '生成文件名WordApp.ActiveDocument.SaveAs fn$ '保存文件WordApp.Quit '退出Set WordApp = Nothing '取消变量End Sub...
在WORD中如何用vba宏语言,表示删除一行,或选定一行?谢谢
Sub abc()Dim App, WrdDoc, MyPath, MyFile, BM, StrMypath = "文件实际路径\*.doc" '请修改实际储存路径!Set App = CreateObject("Word.Application") '用Set关键字创建Word应用成序对象!MyFile = Dir(Mypath) ' 获得第一个WORD文档do while MyFile "" ' 遍历Mypath下面的所有WORD文档 App.Visible = True Set WrdDoc = App.Documents.Open(MyFile) '打开这个Word文件! for each BM in WrdDoc.Bookmarks ' 遍历文档中的所有书签 Str = BM.Range ' 读取书签内容 next BM WrdDoc.Close ' 关闭文件 MyFile = Dir ' 下一个WORD文档LoopSet App = NothingEnd Sub...
转载请注明出处51数据库 » 怎么在word2007中使用vba