加密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