加密PDF转文字

加密PDF转文字

PDF解密：在线将PDF解密

Adobe Acrobat Pro DC：将解密的PDF导出成Word

天若OCR：

• 将含表格的图片识别成Excel表格，配合百度智慧云接口使用
• 专业版 59元

百度智慧云 ：获取文字识别的API接口

Word表格格式修改

• 一次性选中WORD文档中的所有表格，统一修改格式

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
  

• 根据窗口调整内容

  Sub 根据窗口调整内容()
  Dim oDoc As Document
  Dim oTable As Table
  Set oDoc = Documents.Open(“E:\123\Doc\数据库结构7.25-1.docx”) ‘指定文件路径
  For Each oTable In oDoc.Tables
  oTable.AutoFitBehavior (wdAutoFitWindow) ‘根据窗口调整内容
  Next
  MsgBox “完成！”
  End Sub