资讯专栏INFORMATION COLUMN

上云采购季！| 2核2G4M爆款云服务器低至59元/年，更有多台、长期优惠，快来选购！

立即前往
首页/文章专栏/Word（WPS文字）批量修改表格宽度

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

番茄西红柿 / 3293人阅读

摘要：一最近做的产品规格书每个文档里面一堆的表格每个表格宽度都有些许差异逐个修改着实让人抓狂。另外附件我已经上传手懒有积分的小伙伴支持一下代码未加密

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

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

Private Sub CommandButton1_Click()Call WordBatchProcessEnd SubSub TablesBatchProcess()'将所有表格统一为页眉宽度Dim i As Integer, j As IntegerDim tempTable As TableApplication.ScreenUpdating = False'删除所有可编辑的区域的用户权限ActiveDocument.DeleteAllEditableRanges wdEditorEveryone'添加可编辑区域For Each tempTable In ActiveDocument.TablestempTable.Range.Editors.Add wdEditorEveryonei = i + 1Next'选中所有可编辑区域ActiveDocument.SelectAllEditableRanges wdEditorEveryone'删除所有可编辑的区域的用户权限ActiveDocument.DeleteAllEditableRanges wdEditorEveryoneApplication.ScreenUpdating = TrueFor j = 1 To iActiveDocument.Tables(j).PreferredWidth = 485.287445 '这个宽度是我录制宏得出来的，自己根据需求改就行Next jEnd SubSub 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   LoopSet Doc = NothingEnd Sub

编辑完成后，我们保存这个word文档时，选择否

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

云服务器 GPU云服务器 文字宽度 wps怎么做表格 word图像识别文字 html 表格宽度

文章版权归作者所有，未经允许请勿转载,若此文章存在违规行为，您可以联系管理员删除。

转载请注明本文地址：https://www.ucloud.cn/yun/122489.html

相关文章

  • Java基于Freemarker模板导出Word

    摘要：单元格合并时可在里写相应判断，同上行内容使用或者来表示合并，否则，使用来另起新行。这里注意的是都是小写，学习过程中在网上看到是，合并不起作用，排查了半天错。 准备 下载Freemarker jar； wps/office创建.doc文件； 编辑模板内容后另存为.xml(注意wps存在两种.xml结尾的文件，请按下图选择);showImg(https://segmentfault.co...

    wangbinke 评论0 收藏0

  • WPS通过宏工具批量修改图片尺寸

    摘要：从版本开始正式支持使用作为宏语言官方称报错时用得就是这个名称亦即的缩写。批量修改图片尺寸的宏程序宏宏批量修改图片尺寸的宏程序的请参考宏编辑器在的开发工具的菜单栏参考图如下认识的博客认识的博客开发开发 从 WPS 2021 版本开始，WPS 正式支持使用 JS 作为宏语言...

    番茄西红柿 评论0 收藏2637

  • 使用 <wbr> 解决长 URL 的换行问题

    摘要：开发中，屏幕宽度有限，超长文字必须换行。尝试原生方法无法解决问题，只好摸索手动断行的做法。用解决这个问题困扰了我很久，直到前两天，我突然发现原来有软换行的存在。本案例中，使用实际上是想借用浏览器计算表格各列宽度的机制。 问题 我们知道，世界上文字主要有两种：一种是以中文为代表的象形文字；另一种是以英法俄等为代表的拼音语系。前者的换行很简单，每个单字都有自己的意义，所以每个字后面都可以换...

    104828720 评论0 收藏0

  • 使用 <wbr> 解决长 URL 的换行问题

    摘要：开发中，屏幕宽度有限，超长文字必须换行。尝试原生方法无法解决问题，只好摸索手动断行的做法。用解决这个问题困扰了我很久，直到前两天，我突然发现原来有软换行的存在。本案例中，使用实际上是想借用浏览器计算表格各列宽度的机制。 问题 我们知道，世界上文字主要有两种：一种是以中文为代表的象形文字；另一种是以英法俄等为代表的拼音语系。前者的换行很简单，每个单字都有自己的意义，所以每个字后面都可以换...

    lily_wang 评论0 收藏0

  • PHPWord中文手册整理

    摘要：修正中文支持的问题，使用前如果发现乱码，需要进行一些修正解决编码问题，会对输入的文字进行编码转化，如果你使用或者编码的话就会出现乱码，如果你用编码，就查找类库中所有方法中的转码将其删除，如果你采用或者编码，使用进行编码转换。 修正 中文支持的问题，使用前如果发现乱码，需要进行一些修正： 解决编码问题，PHPword 会对输入的文字进行utf8_encode编码转化，如果你使用GBK、...

    wangdai 评论0 收藏0

发表评论

登陆后可评论

0条评论

番茄西红柿

男|高级讲师
我要私信

TA的文章

阅读更多
最新活动
阅读需要支付1元查看
<