宏 word 批量根据表格内容调整宽度

最新推荐文章于 2025-04-19 17:18:08 发布

tang1jun

最新推荐文章于 2025-04-19 17:18:08 发布

阅读量1.4k

点赞数

CC 4.0 BY-SA版权

分类专栏：解决方案

本文为博主原创文章，未经博主允许不得(商用)转载。

本文链接：https://blog.youkuaiyun.com/tang1jun/article/details/109646730

解决方案专栏收录该内容

16 篇文章

订阅专栏

本文介绍了一段使用VBA编写的代码，该代码能够批量打开并调整Word文档中表格的大小，使其能适应窗口大小显示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub www()
Dim oDoc As Document
Dim oTable As Table
Set oDoc = Documents.Open("D:\test1012.doc") '指定文件路径
For Each oTable In oDoc.Tables
oTable.AutoFitBehavior (wdAutoFitWindow) '根据窗口调整内容
Next
MsgBox "完成！"
End Sub

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

tang1jun

关注关注

0
点赞
踩
2

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

专栏目录

WPS Office JS宏实现批量处理Word中的表格样式

觉醒法师的专栏

11-27

1万+

WPS Office JS宏，实现Word表格样式批量修改。由于本职工作原因，经常会用到office办公软件，经常很多内容审批后，需要统一修改内容或样式，如果Word文档中有上百页或上千页，则一个一个修改太麻烦了。在接触到WPSJS宏后，发现工作效率大大提升；如果你会前端开发，有JS基础上手会非常快；如果有VBA基础，就更得心应手了，因为对象和函数定义，基础是沿用office的VBA。其他不多说了，先和大家分享下如果统一修改表格样式。

word 解放双手，使用宏批量添加word中表格边框以及自适应

q939059425的博客

10-13

1736

Sub 宏2() ' ' 宏2 宏 ' ' For Each aTable In ActiveDocument.Tables With aTable aTable.Select With .Borders(wdBorderLeft) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomatic .

参与评论您还未登录，请先登录后发表或查看评论

Word使用宏自动调整表格

10-29

Word文档中自动调整所有表格，省去一个一个的调整。使用方便

word高阶操作-用宏代码批量修改Word表格的宽度

秋不溜秋的博客

02-23

4412

VBA是office软件中强大的自动化语言，可以实现很多自动化的处理。

用宏批量更改表格的宽度

weixin_33691817的博客

09-30

431

用宏批量更改表格的宽度 'Alt+F11,插入模块 Sub BatchChangeTableStyle() Dim oTable As Table For Each oTable In ActiveDocument.Tables oTable.Columns(2).Width = CentimetersToPoints(15) Next Set oTabl...

Word VBA设置所有图表宽度并居中

qq_45805912的博客

10-26

1014

VBA word设置所有图表宽度并居中设置word当前文档所有图表宽度为14cm并居中设置word当前文档所有图表宽度为14cm并居中 alt+f11，新建模块粘贴进去就能用 Sub ChangeChartWidthto14() Dim aktDocument As Document Dim shp As Shape Dim oInLineSp As InlineShape Set aktDocument = Word.ActiveDocument Wit

Word基础（二十二）改变单元格行高和列宽

浮生流年的博客

01-09

625

在Word中，如何改变单元格的行高和列宽呢？方法：点击单元格点击表格工具-布局选项卡，单元格大小分类中调整高度和宽度在Word中，如上图蓝色箭头所示，如何单独调整单元格的列宽呢？方法：鼠标停靠在上图红色方框出，鼠标变为45度黑色箭头，此时点击即可选中该单元格接着鼠标拖动蓝色箭头指向的那根竖线移动即可（选中哪个单元格，就移动它的右边框竖线） ...

word批量插入excel表格内容，word批量插入图片，xls与xlsx批量互转，doc与docx批量互转

10-14

word批量插入excel表格内容：可按excel表格每一行生成word文档，excel内容插入word指定位置； word批量插入图片：可批量将图片插入word文档指定位置，自定义设置插入图片的宽度和高度。可同时将excel表格内容和图片...

用（JS）宏批量调整Word文档中的表格格式

weixin_42278285的博客

03-05

1918

WPS的JS宏批量调整表格格式

word宏批量删除含有关键字的表格列

afdlk04406的专栏

01-29

3316

工作中，由于每次修改word文档，都需要进行繁琐的修改，删除多余的列或者调节表格的宽度。使用列word宏编程的方式对word文档进行对应的操作。宏： 1 Sub del_key() 2 Dim str As String 3 Dim table_count, i, j, table_lie As Integer 4 str = "符合程...

word的宏_vba统一设置表格宽度

mingover的专栏

12-05

1万+

近来需要编辑一个文档，其中有一个问题，就是把表格都设置为100宽,因为表格很多，处理很麻烦，于是就打算学下vba,把表格处理好. 把内容存下来用于后续参考。宏的简单操作宏一个实用操作就是录用-> 执行, 比如，设置ctrl+shift+b 就自动插入一个只有一列的表格，具体可参考： https://jingyan.baidu.com/article/ea24bc39ba09dcda62b3

【Office】Word中VBA宏的使用（表格批量操作）

qq_54177358的博客

01-25

5556

对word中的表格进行批量选中修改操作

word表格批量操作——宏

热门推荐

cc0429xy的博客

06-18

3万+

word中利用宏代码，快速统一调整表格

poi设置word表格单元格宽度_xwpftable设置宽度；POI操作Word设置表格宽度

weixin_39605345的博客

12-20

5311

poi 操作word里表格,如设置表格宽度、行高、表格样式等。1.表格或单元格宽度：默认TblW的type属性为STTblWidth.AUTO,即自动伸缩。所以要调整为指定类型：STTblWidth.DXA 1)表格宽：CTTblPr tblPr = xtab2.getCTTbl().getTblPr();tblPr.getTblW().setType(STTblWidth.DXA);tblPr....

表格根据窗口自动调整，word利用宏批量处理表格

wyazyf

06-30

3563

Sub 表格根据窗口自动调整() Dim oDoc As Document Dim oTable As Table Set oDoc = Documents.Open("C:\Users\Administrator\Desktop\安全加固手册.docx") For Each oTable In oDoc.Tables oTable.AutoFitBehavior (wdAutoFitWindow) Next MsgBox "完成！" End Sub ...

批量设置word表格根据窗口自动调整

meylovezn的专栏

07-25

2万+

打开word文档，开发工具 > 代码 > 宏，在弹出的窗口如下宏名填写 www，然后点击创建，弹出窗口如下删除窗口里的内容，直接把下面这段代码复制进去 Sub www() Dim oDoc As Document Dim oTable As Table Set oDoc = Documents.Open(“E:\123\Doc\数据库...

批量修改word表格页面宽度的宏

11-12

批量修改Word表格页面宽度通常需要使用VBA (Visual Basic for Applications) 宏，因为Excel或Word自身不具备直接针对大量表格进行复杂操作的功能。以下是创建一个基本宏来批量调整表格页宽的一个步骤： 1. **打开Visual Basic编辑器**: - 在Word中，点击“开发者”选项卡（如果未显示，可以在"文件" > "选项" > "自定义功能区"中启用它），然后选择"Visual Basic"。 2. **创建新模块**: - 在VB编辑器中，右键点击“VBAProject”，选择“插入” -> “模块”。在这里编写宏代码。 3. **编写宏代码**: ```vba Sub BatchChangeTableWidth() Dim tbl As Table For Each tbl In ActiveDocument.Tables '遍历文档中的所有表格 If tbl.Width = SomeDesiredWidth '检查表格当前宽度是否需调整 tbl.Width = NewDesiredWidth '如果是，设置新的宽度 End If Next tbl End Sub ``` 将`SomeDesiredWidth`和`NewDesiredWidth`替换为你实际想要的宽度值。 4. **运行宏**: - 返回Word文档中，按Alt + F8组合键打开宏对话框，找到你刚创建的`BatchChangeTableWidth`宏，选中并点击“运行”。 5. **保存宏**: - 如果你想以后随时使用这个宏，记得保存它以便随时调用。注意，这个宏假设所有的表格都有相同的处理方式。如果你的表格有多种情况，可能需要添加条件判断进行更复杂的操作。