word的宏_vba统一设置表格宽度
来源:互联网 发布:枸杞 怎么泡水 知乎 编辑:程序博客网 时间:2024/03/29 01:42
近来需要编辑一个文档,其中有一个问题,就是把表格都设置为100宽,因为表格很多,处理很麻烦,于是就打算学下vba,把表格处理好.
把内容存下来用于后续参考。
宏的简单操作
宏一个实用操作就是 录用-> 执行,
比如,设置ctrl+shift+b 就自动 插入一个只有一列的表格,具体可参考:
https://jingyan.baidu.com/article/ea24bc39ba09dcda62b331fa.html
查看录制宏的vba脚本
视图->宏->查看宏
->编辑
Sub 宏2()'' 宏2 宏'' ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=8, NumColumns:= _ 1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed With Selection.Tables(1) If .Style <> "网格型" Then .Style = "网格型" End If .ApplyStyleHeadingRows = True .ApplyStyleLastRow = False .ApplyStyleFirstColumn = True .ApplyStyleLastColumn = False .ApplyStyleRowBands = True .ApplyStyleColumnBands = False End WithEnd Sub
上面的内容如果没怎么了解语法,可能看不懂,但更多都是table对象的操作,可参考api
可查看word 相关对象的方法(感觉这个网站操作不太便捷,建议在vba的编辑界面,可视图->对象浏览器 查看相关对象.)
https://msdn.microsoft.com/zh-cn/vba/word-vba/articles/table-applystyleheadingrows-property-word
自己写一个vba脚本
设置所有的table为100的脚本
Sub table_100()'' 宏'', Dim tempTable As Table Application.ScreenUpdating = False '判断文档是否被保护 If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then MsgBox "文档已保护,此时不能选中多个表格!" Exit Sub End If '删除所有可编辑的区域 ActiveDocument.DeleteAllEditableRanges wdEditorEveryone '添加可编辑区域 For Each tempTable In ActiveDocument.Tables tempTable.Range.Editors.Add wdEditorEveryone tempTable.PreferredWidthType = wdPreferredWidthPercent tempTable.PreferredWidth = 100 Next '选中所有可编辑区域 ActiveDocument.SelectAllEditableRanges wdEditorEveryone '删除所有可编辑的区域 ActiveDocument.DeleteAllEditableRanges wdEditorEveryone Application.ScreenUpdating = TrueEnd Sub
宏->查看宏->填好名字后,创建
把上面的脚本填上去, 这个脚本 是把表格设置成 100,可把100设置成其它值,然后按 运行,即可把word中的所有表格都设置成 指定宽度.
阅读全文
0 0
- word的宏_vba统一设置表格宽度
- Latex: 设置表格的宽度
- Latex: 设置表格的宽度
- Word表格不能调整宽度的解决方法
- 统一设置word文档中的图片大小的宏。
- 表格Table宽度设置无效的解决方法
- 设置表格的td宽度失效问题
- 表格Table宽度设置无效的解决方法
- 批量设置word中表格的高度
- Word统一图片,表格,文献编号
- word表格线设置
- html 表格单元格的宽度和高度的设置
- [HTML]表格Table宽度设置无效的解决方法
- CSS中设置表格TD宽度的问题
- jQuery设置指定表格每行第一列的宽度
- 表格单元格td设置宽度无效的解决办法
- 如何设置HTML页面自适应宽度的table(表格)
- 如何设置HTML页面自适应宽度的table(表格)
- 打印学生成绩数组(结构体)
- SpringMVC中的拦截器
- 破解安装3DUnity5.1.3
- Postgresql_TCP-IP下监听的配置(listen_addresses)
- https
- word的宏_vba统一设置表格宽度
- xfs 在线扩容,使用xfs_growfs
- ADF修改默认filter查询将%改为%%方式
- synchronized和volatile的一些问题
- RxJava详解
- Jsoup 发送post请求 org.jsoup.HttpStatusException: HTTP error fetching URL. Status=404, URL=https:
- Centos搭建ceph+++三、创建部署CEPH用户
- Threejs 三大组件 -- 场景、相机、渲染器
- Android的五大布局以及常用控件