word（wps text）批处理更改表宽度更改（如何批处理更改单词表宽度）

摘要：最新产品规格。每个文档中每个文档中都有许多表。每个桌子的宽度略有差异。 一次更改一个真的很奇怪。 此外，我上传了一个附件。我有懒惰，有一点。支持无加密的代码。

每个文档中都有一本最近创建的产品规范书，每个表格中都有许多表格，一次宽度略有不同，一次更改的宽度真的很疯狂。 一个了解宏观功能的朋友可能有一种操纵它的方法吗？它将打开||〜创建一个新的DOCX文件，打开开发工具，添加一个按钮并给它一个名称。名称是否已更改都没关系，因为很酷

我在这里使用WPS 2019专业版。双击按钮并输入代码编辑

Private Sub CommandButton1_Click()Call WordBatchProcessEnd SubSub TablesBatchProcess()'Unify all tables into header width Dim i As Integer, j As IntegerDim tempTable As TableApplication.ScreenUpdating = False'Delete user permissions for all editable regions ActiveDocument.DeleteAllEditableRanges wdEditorEveryone'Add editable region For Each ActiveDocument.TableStempable.Range.Editors.Add wdditorreveryone = i + 1next'select eclectiable activedocument.selectalleditablereranges wdeditorevery'delete user permissions All all editable areas Activedocument.deletearalleditableranages iactivedocument.tables(j).preferredWidth = 485.287445'此宽度是由我录制宏获得的，因此以下Jend subub wordbatchprocess（）doc as document dim mydir as string mydir = docent = doccentthisdocument.path＆“/”'在必要时自行更改文件夹路径，并将需要处理的文件放在文件夹= dir＆“ /* docx”，vbnormal）'仅更改docx。 “/”＆filename）doc.activate call tablesbatchprocess doc.close true filename = dir（）结束如果loopset doc = noweend sub sub

编辑完成后，选择“否”保存此Word文档

选择可以保存创建的代码的DOCM格式。完成后，不要忘记将需要更改为同一文件夹的Word文档。单击按钮，并感受到释放手的乐趣。 附件https://download.csdn.net/download/pwwwqq/32481984已上传。我懒惰并且有积分支持的朋友，但该代码没有加密。