word、ppt转pdf是办公常见需求,
在线免费转换担心泄露信息,买一个又不想花钱?
方案看这里:
众多pdf文档转换平台的核心技术-开源解决方案
PowerShell脚本:
https://github.com/escottj/Doc2PDF
转换服务器方案:
https://github.com/0000sir/Doc2PDF-Server
单个文件,在powershell下执行:
./Doc2PDF.ps1 C:\Users\sanqinyouzi\test.docx
生成同目录下的PDF文件
VisualBasic实用脚本:批量选中word中的表格
Attribute VB_Name = "模块1"
Sub 批量修改表格()
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