系統地注釋PDF

Question

我有一個包含數百頁的大型PDF文件。 PDF的每個頁面都包含一個圖表，還包含一個唯一標識符（圖表編號）。

我對每個圖表都有個別評論，並希望在相應的PDF頁面中插入這些評論，例如圖表評論34在包含圖表34的PDF頁面中。

我目前的方法是使用Adobe Acrobat Pro中的注釋工具逐個手動插入這些注釋。 這需要時間，你可以想象。

有沒有辦法加快這個過程？ 理想情況下，我會將所有注釋放在電子表格（不太理想，Python）中，旁邊有圖表代碼。 然后，評論將被寫入PDF。

有什么想法可以做到這一點？

Answer 1

您可以將PDF轉換為文本文件，保存，導入並搜索“評論”嗎？ 我不確定邏輯是什么，你沒有在這里發布任何代碼，但是下面的代碼將迭代一個文本文件並查找字符串的所有事件，假設它被稱為'test'和'application ”。

Sub ReadFile()
Open "C:\Users\rshuell001\Desktop\sample.txt" For Input As #1
lRow = 1

Do While Not EOF(1)
    Line Input #1, Data
    Data = Application.WorksheetFunction.Trim(Data)
sData = Split(Data, " ")

    With Sheet1
        lColumn = 1
        For intCount = LBound(sData) To UBound(sData)
            .Cells(lRow, lColumn) = sData(intCount)
            lColumn = lColumn + 1
        Next intCount
    End With
    lRow = lRow + 1

Loop

Close #1

Call CopyOver

End Sub

Sub CopyOver()

Dim Rng As Range, cell As Range
Dim rw As Long
Set Rng = Worksheets("Sheet1").Range("B1:B20")
rw = 1
For Each cell In Rng

If Left(cell.Value, 4) = "test" Then
    If Left(cell.Value, 4) = "test" And cell.Offset(0, -1) = "application:" Then
    GoTo ExitPoint
    Else
    Worksheets("Sheet2").Cells(rw, "A") = cell.Value
    Worksheets("Sheet2").Cells(rw + 1, "A") = cell.Offset(1, 0)
    Worksheets("Sheet2").Cells(rw + 2, "A") = cell.Offset(3, 0)
    Worksheets("Sheet2").Cells(rw + 2, "B") = cell.Offset(3, 1)
ExitPoint:
    rw = rw + 2
    End If
End If
Next


End Sub

之前：

后：