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

最新推荐文章于 2024-09-26 09:25:07 发布

原创最新推荐文章于 2024-09-26 09:25:07 发布 · 1.5k 阅读

2 ·

CC 4.0 BY-SA版权

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

解决方案专栏收录该内容

16 篇文章

订阅专栏

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

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

1783

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

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

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

qq_54177358的博客

01-25

6680

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

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

秋不溜秋的博客

02-23

4709

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

用宏批量更改表格的宽度

weixin_33691817的博客

09-30

437

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

Word使用宏自动调整表格

10-29

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

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

qq_45805912的博客

10-26

1066

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

694

在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

2098

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

批量修改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的宏_vba统一设置表格宽度

mingover的专栏

12-05

1万+

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

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

wyazyf

06-30

3658

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 ...

WPS（word）中批量设置表格根据窗口居中对齐

qisoft1213的博客

10-08

5158

Attribute VB_Name = "CreateNewMacros" Sub www() Dim oDoc As Document Dim oTable As Table Set oDoc = Documents.Open("C:\Users\测试用例\1.doc") '文档路径 For Each oTable In oDoc.Tables oTable.AutoF...

word中一个表格拆分成两个单独的表格

小透明-溶冰

04-02

3754

将光标停在要分开的行（即下一个表格的首行）使用快捷键ctrl+shif+Enter即可特别方便

word中的表格全部设置宽度100%

xixingzhe2的博客

09-26

2312

我们用工具将数据库或其他的数据导出成word时，表格有的会大于100%，超过了边界。word没有提供全局修改的方法。如果我们想改成100%。