怎么在word2007中使用vba word中使用vba

发布日期：2020-08-03

怎样在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 &amp； ＂行是正文＂End IfIf Selection.Style = ＂标题 1＂ ThenMsgBox i &amp； ＂行是标题 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...