成人国产在线小视频_日韩寡妇人妻调教在线播放_色成人www永久在线观看_2018国产精品久久_亚洲欧美高清在线30p_亚洲少妇综合一区_黄色在线播放国产_亚洲另类技巧小说校园_国产主播xx日韩_a级毛片在线免费

資訊專欄INFORMATION COLUMN

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

番茄西紅柿 / 3328人閱讀

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

一最近做的產(chǎn)品規(guī)格書，每個(gè)文檔里面一堆的表格，每個(gè)表格寬度都有些許差異，逐個(gè)修改著實(shí)讓人抓狂。了解宏功能的小伙伴估計(jì)有了想法，怎么操作呢，來(lái)吧||~展示
新建一個(gè)docx文件，打開開發(fā)工具，添加一個(gè)按鈕，命名一下，名字改不改無(wú)所謂，為了好看

我這里使用的是WPS 2019專業(yè)版
雙擊按鈕進(jìn)入代碼編輯

Private Sub CommandButton1_Click()Call WordBatchProcessEnd SubSub TablesBatchProcess()'將所有表格統(tǒng)一為頁(yè)眉寬度Dim i As Integer, j As IntegerDim tempTable As TableApplication.ScreenUpdating = False'刪除所有可編輯的區(qū)域的用戶權(quán)限ActiveDocument.DeleteAllEditableRanges wdEditorEveryone'添加可編輯區(qū)域For Each tempTable In ActiveDocument.TablestempTable.Range.Editors.Add wdEditorEveryonei = i + 1Next'選中所有可編輯區(qū)域ActiveDocument.SelectAllEditableRanges wdEditorEveryone'刪除所有可編輯的區(qū)域的用戶權(quán)限ActiveDocument.DeleteAllEditableRanges wdEditorEveryoneApplication.ScreenUpdating = TrueFor j = 1 To iActiveDocument.Tables(j).PreferredWidth = 485.287445 '這個(gè)寬度是我錄制宏得出來(lái)的，自己根據(jù)需求改就行Next jEnd SubSub WordBatchProcess()   Dim FileName  As String   Dim Doc As Document   Dim MyDir As String   MyDir = ThisDocument.Path & "/"    '文件夾路徑根據(jù)需要自己修改，需要處理的文件都放該文件夾內(nèi)   FileName = Dir(MyDir & "/*.docx", vbNormal)    '只修改docx，doc*這樣會(huì)把自身docm包含進(jìn)去，程序無(wú)響應(yīng)   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

編輯完成后，我們保存這個(gè)word文檔時(shí)，選擇否

選擇docm格式，這個(gè)格式可已保存我們已經(jīng)寫好的代碼
完成后，記得把需要修改的word文檔放在同一個(gè)文件夾，點(diǎn)擊一下按鈕感受一下解放雙手的快感吧。
另外附件我已經(jīng)上傳
https://download.csdn.net/download/Pwwwqq/32481984
手懶有積分的小伙伴支持一下，代碼未加密

文章版權(quán)歸作者所有，未經(jīng)允許請(qǐng)勿轉(zhuǎn)載,若此文章存在違規(guī)行為，您可以聯(lián)系管理員刪除。

轉(zhuǎn)載請(qǐng)注明本文地址：http://systransis.cn/yun/122489.html

相關(guān)文章

  • Java基于Freemarker模板導(dǎo)出Word

    摘要：?jiǎn)卧窈喜r(shí)可在里寫相應(yīng)判斷，同上行內(nèi)容使用或者來(lái)表示合并，否則，使用來(lái)另起新行。這里注意的是都是小寫，學(xué)習(xí)過(guò)程中在網(wǎng)上看到是，合并不起作用，排查了半天錯(cuò)。 準(zhǔn)備 下載Freemarker jar； wps/office創(chuàng)建.doc文件； 編輯模板內(nèi)容后另存為.xml(注意wps存在兩種.xml結(jié)尾的文件，請(qǐng)按下圖選擇);showImg(https://segmentfault.co...

    wangbinke 評(píng)論0 收藏0

  • WPS通過(guò)宏工具批量修改圖片尺寸

    摘要：從版本開始正式支持使用作為宏語(yǔ)言官方稱報(bào)錯(cuò)時(shí)用得就是這個(gè)名稱亦即的縮寫。批量修改圖片尺寸的宏程序宏宏批量修改圖片尺寸的宏程序的請(qǐng)參考宏編輯器在的開發(fā)工具的菜單欄參考圖如下認(rèn)識(shí)的博客認(rèn)識(shí)的博客開發(fā)開發(fā) 從 WPS 2021 版本開始，WPS 正式支持使用 JS 作為宏語(yǔ)言...

    番茄西紅柿 評(píng)論0 收藏2637

  • 使用 <wbr> 解決長(zhǎng) URL 的換行問(wèn)題

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

    104828720 評(píng)論0 收藏0

  • 使用 <wbr> 解決長(zhǎng) URL 的換行問(wèn)題

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

    lily_wang 評(píng)論0 收藏0

  • PHPWord中文手冊(cè)整理

    摘要：修正中文支持的問(wèn)題，使用前如果發(fā)現(xiàn)亂碼，需要進(jìn)行一些修正解決編碼問(wèn)題，會(huì)對(duì)輸入的文字進(jìn)行編碼轉(zhuǎn)化，如果你使用或者編碼的話就會(huì)出現(xiàn)亂碼，如果你用編碼，就查找類庫(kù)中所有方法中的轉(zhuǎn)碼將其刪除，如果你采用或者編碼，使用進(jìn)行編碼轉(zhuǎn)換。 修正 中文支持的問(wèn)題，使用前如果發(fā)現(xiàn)亂碼，需要進(jìn)行一些修正： 解決編碼問(wèn)題，PHPword?會(huì)對(duì)輸入的文字進(jìn)行utf8_encode編碼轉(zhuǎn)化，如果你使用GBK、...

    wangdai 評(píng)論0 收藏0

發(fā)表評(píng)論

0條評(píng)論

最新活動(dòng)
閱讀需要支付1元查看
<