高效办公技巧

批量处理脚本

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

快捷键定制

{
    "keybindings": {
        "doc": {
            "Alt+Q": "InsertQuickPart",
            "Ctrl+Shift+S": "SaveToCloud"
        },
        "ppt": {
            "F5": "StartRehearsal",
            "Ctrl+Alt+V": "PasteSpecial"
        }
    }
}

数据自动化分析

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