WPS 使用宏操作 word裡面的所有表

烟雨蒙尘發表於2024-11-06

1、需求： 需要修改word 裡面的所有表格樣式，表格有幾百個

2、wps 不支援批次處理，需要使用到宏，下面這個是從其他頁面找到的獲取所有的表格

測試可以使用。步驟 複製下面的程式碼到： WPS的工具 --》 開發工具 --》VB編輯器

Sub SelectAllTables()
Dim tempTable As Table
 
    Application.ScreenUpdating = False
    '判斷文件是否被保護
    If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
        MsgBox "文件已保護，此時不能選中多個表格！"
        Exit Sub
    End If
    '刪除所有可編輯的區域
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    '新增可編輯區域
    For Each tempTable In ActiveDocument.Tables
        tempTable.Range.Editors.Add wdEditorEveryone
    Next
    '選中所有可編輯區域
    ActiveDocument.SelectAllEditableRanges wdEditorEveryone
    '刪除所有可編輯的區域
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    
    Application.ScreenUpdating = True
   
End Sub

3

如果WPS之前沒有裝過宏相關的工具就需要先去下載

下載地址:: https://pan.baidu.com/s/1vpq51bAKQPhfbKpC2GzwjA?pwd=1ace 提取碼: 1ace

相關文章