高效办公技巧

清夏晚风
  2026-01-13 16:48:23 2026-01-13 16:48:23 Created   2026-01-13 16:48:23 2026-01-13 16:48:23 Updated      

批量处理脚本

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub 批量转换PDF()
    Dim fileList As Variant
    fileList = Application.FileDialog(msoFileDialogFilePicker).SelectedItems
    
    For Each file In fileList
        Dim doc As Document
        Set doc = Documents.Open(file)
        doc.ExportAsFixedFormat _
            OutputFileName:=Replace(file, ".docx", ".pdf"), _
            ExportFormat:=wdExportFormatPDF
        doc.Close
    Next
End Sub

快捷键定制

1
2
3
4
5
6
7
8
9
10
11
12
{
    "keybindings": {
        "doc": {
            "Alt+Q": "InsertQuickPart",
            "Ctrl+Shift+S": "SaveToCloud"
        },
        "ppt": {
            "F5": "StartRehearsal",
            "Ctrl+Alt+V": "PasteSpecial"
        }
    }
}

数据自动化分析

1
2
3
4
5
6
7
from wps import Spreadsheets
import pandas as pd

doc = Spreadsheets.open('销售报表.et')
df = pd.DataFrame(doc.active_sheet.used_range.value)
report = df.groupby('大区').agg({'销售额': 'sum', '利润': 'mean'})
doc.add_sheet('分析结果').range('A1').value = report.values
  • Title: 高效办公技巧
  • Author: 清夏晚风
  • Created at : 2026-01-13 16:48:23
  • Updated at : 2026-01-13 16:48:23
  • Link: https://blog.kimikkorow.eu.org/办公设计软件/办公软件相关/WPS/08.高级功能技巧/
  • License: This work is licensed under CC BY-NC-SA 4.0.
On this page
高效办公技巧
  1. 批量处理脚本
  2. 快捷键定制
  3. 数据自动化分析