Word(WPS文本)批量修改表格宽度(如何批量调整WPS表格的大小)

摘要:最近的一个产品说明书，每个文档里都有一堆表格，而且每个表格的宽度都略有不同，真是让人抓狂。另外，我已经把附件上传给有积分支持代码不加密的懒朋友了。

最近制定的产品规格：每个文档中的一堆表格& xf0c；每个表的宽度略有不同。一个一个修改，真的很疯狂。了解宏函数的小伙伴可能有个想法\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\怎么操作呢& xf0c；加油||~演示一下如何新建一个docx文件& # xff0c打开开发工具& # xff0c添加按钮& # xff0c给它起个名字& # xff0c名字改不改都没关系& xff0c；为了好看。

我在用WPS 2019专业版双击按钮进入代码编辑。

Private Sub CommandButton1_Click()调用WordBatchProcessEnd SubSub tables batchprocess()& # 39；将所有表格统一为表头宽度dim I为整数，j为整数dim模板作为表格应用。屏幕更新& # 61；假& # 39；删除用户权限活动文档。所有可编辑区域的deletealleditableranges wdeditorevery one & # 39；为活动文档中的每个模板添加可编辑区域。表格模板。范围。编辑。添加wdeditoreveryonei & # 61我& # 43；1下一步& # 39；选择所有可编辑区域活动文档。selectalleditableranges wdeditorevery one & # 39；删除所有可编辑区域的用户权限。deletealleditableranges wdeditoreveryoneapplication。屏幕更新& # 61；对j & # 611到iActiveDocument。表格(j)。PreferredWidth & # 61485.287445 '这个宽度是通过记录一个宏：根据自己的需求去改就好了。next jend sub wordbatchprocess()dim filename as string dim doc as document dim mydir as string mydir & # 61；这份文件。路径& "/" & # 39；根据需要修改文件夹路径。所有需要处理的文件都放在这个文件夹FileName & # 61Dir(MyDir & "/*。docx "，VB normal)& # 39；仅修改docx \ff0c；Doc*这将包括它自己的docm：程序没有响应。直到文件名& # 61；" " If FileName ThisDocument。然后设置Doc & # 61文件。打开(我的目录& "/" &文件名)文档。激活呼叫表批处理文档。关闭真实文件名& # 61；dir()End If LoopSet Doc & # 61；编辑完NothingEnd Sub后：当我们保存这个word文档时。选择否

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