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

番茄西紅柿發布于2021-10-14 09:42 / 3323人閱讀

摘要：一最近做的產品規格書每個文檔里面一堆的表格每個表格寬度都有些許差異逐個修改著實讓人抓狂。另外附件我已經上傳手懶有積分的小伙伴支持一下代碼未加密

一最近做的產品規格書，每個文檔里面一堆的表格，每個表格寬度都有些許差異，逐個修改著實讓人抓狂。了解宏功能的小伙伴估計有了想法，怎么操作呢，來吧||~展示
新建一個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 表格寬度

文章版權歸作者所有，未經允許請勿轉載,若此文章存在違規行為，您可以聯系管理員刪除。

轉載請注明本文地址：http://specialneedsforspecialkids.com/yun/122489.html

Java基于Freemarker模板導出Word

摘要：單元格合并時可在里寫相應判斷，同上行內容使用或者來表示合并，否則，使用來另起新行。這里注意的是都是小寫，學習過程中在網上看到是，合并不起作用，排查了半天錯。準備下載Freemarker jar； wps/office創建.doc文件；編輯模板內容后另存為.xml(注意wps存在兩種.xml結尾的文件，請按下圖選擇);showImg(https://segmentfault.co...

wangbinke 2019-08-16 10:51 評論0 收藏0
WPS通過宏工具批量修改圖片尺寸

摘要：從版本開始正式支持使用作為宏語言官方稱報錯時用得就是這個名稱亦即的縮寫。批量修改圖片尺寸的宏程序宏宏批量修改圖片尺寸的宏程序的請參考宏編輯器在的開發工具的菜單欄參考圖如下認識的博客認識的博客開發開發從 WPS 2021 版本開始，WPS 正式支持使用 JS 作為宏語言...

番茄西紅柿 2021-10-11 10:57 評論0 收藏2637
使用 <wbr> 解決長 URL 的換行問題

摘要：開發中，屏幕寬度有限，超長文字必須換行。嘗試原生方法無法解決問題，只好摸索手動斷行的做法。用解決這個問題困擾了我很久，直到前兩天，我突然發現原來有軟換行的存在。本案例中，使用實際上是想借用瀏覽器計算表格各列寬度的機制。問題我們知道，世界上文字主要有兩種：一種是以中文為代表的象形文字；另一種是以英法俄等為代表的拼音語系。前者的換行很簡單，每個單字都有自己的意義，所以每個字后面都可以換...

104828720 2019-08-30 11:02 評論0 收藏0
使用 <wbr> 解決長 URL 的換行問題

摘要：開發中，屏幕寬度有限，超長文字必須換行。嘗試原生方法無法解決問題，只好摸索手動斷行的做法。用解決這個問題困擾了我很久，直到前兩天，我突然發現原來有軟換行的存在。本案例中，使用實際上是想借用瀏覽器計算表格各列寬度的機制。問題我們知道，世界上文字主要有兩種：一種是以中文為代表的象形文字；另一種是以英法俄等為代表的拼音語系。前者的換行很簡單，每個單字都有自己的意義，所以每個字后面都可以換...

lily_wang 2019-08-02 15:12 評論0 收藏0
PHPWord中文手冊整理

摘要：修正中文支持的問題，使用前如果發現亂碼，需要進行一些修正解決編碼問題，會對輸入的文字進行編碼轉化，如果你使用或者編碼的話就會出現亂碼，如果你用編碼，就查找類庫中所有方法中的轉碼將其刪除，如果你采用或者編碼，使用進行編碼轉換。修正中文支持的問題，使用前如果發現亂碼，需要進行一些修正：解決編碼問題，PHPword?會對輸入的文字進行utf8_encode編碼轉化，如果你使用GBK、...

wangdai 2019-07-01 13:58 評論0 收藏0