Word（WPS文字）批量修改表格宽度

最新推荐文章于 2025-04-19 10:49:51 发布

VB6 TO NET

最新推荐文章于 2025-04-19 10:49:51 发布

阅读量1w

点赞数 1

分类专栏： VBA 文章标签： vba wps

本文链接：https://blog.csdn.net/Pwwwqq/article/details/120740482

版权

VBA 专栏收录该内容

1 篇文章

订阅专栏

通过宏实现批量修改Word文档中表格宽度的教程，详细介绍了如何使用VBA编写宏代码，一键统一所有表格宽度，提升工作效率。提供完整代码示例及操作步骤，并附带相关资源下载链接。

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

一最近做的产品规格书，每个文档里面一堆的表格，每个表格宽度都有些许差异，逐个修改着实让人抓狂。了解宏功能的小伙伴估计有了想法，怎么操作呢，来吧||~展示
新建一个docx文件，打开开发工具，添加一个按钮，命名一下，名字改不改无所谓，为了好看
在这里插入图片描述

我这里使用的是WPS 2019专业版
双击按钮进入代码编辑

Private Sub CommandButton1_Click()
Call WordBatchProcess
End Sub
Sub TablesBatchProcess()
'将所有表格统一为页眉宽度
Dim i As Integer, j As Integer
Dim tempTable As Table
Application.ScreenUpdating = False
'删除所有可编辑的区域的用户权限
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
'添加可编辑区域
For Each tempTable In ActiveDocument.Tables
tempTable.Range.Editors.Add wdEditorEveryone
i = i + 1
Next
'选中所有可编辑区域
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
'删除所有可编辑的区域的用户权限
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
For j = 1 To i
ActiveDocument.Tables(j).PreferredWidth = 485.287445 
'这个宽度是我录制宏得出来的，自己根据需求改就行
Next j
End Sub
Sub WordBatchProcess()
   Dim FileName  As String
   Dim Doc As Document
   Dim MyDir As String
   MyDir = ThisDocument.Path & "\"
    '文件夹路径根据需要自己修改，需要处理的文件都放该文件夹内
   FileName = Dir(MyDir & "\*.docx", vbNormal) 
   '只修改docx，doc*这样会把自身docm包含进去，程序无响应
   Do Until FileName = ""
   If FileName <> ThisDocument.Name Then
         Set Doc = Documents.Open(MyDir & "\" & FileName)
         Doc.Activate
         Call TablesBatchProcess
         Doc.Close True
         FileName = Dir()
    End If
   Loop
Set Doc = Nothing
End Sub

编辑完成后，我们保存这个word文档时，选择否
在这里插入图片描述

选择docm格式，这个格式可已保存我们已经写好的代码
完成后，记得把需要修改的word文档放在同一个文件夹，点击一下按钮感受一下解放双手的快感吧。
另外附件我已经上传
https://download.csdn.net/download/Pwwwqq/32481984
手懒有积分的小伙伴支持一下，代码未加密