У меня есть файл PDF, который я создал в Bluebeam. В нем есть формы, изображения и текстовые поля.
Используя VBA в Excel, я хочу заменить все вхождения строки. Я испробовал множество предложений разных людей с других страниц, которые успешно заменяют строку, однако, когда я открою файл в bluebeam, многие формы будут смещены или исчезнут. Кодировка файлов - ANSI.
Есть ли какая-нибудь мудрость, чтобы заменить вхождения, не испортив остальное содержимое файла?
Вот код, с которым я играл (отсюда) :
Sub Test()
Dim objFSO
Const ForReading = 1
Const ForWriting = 2
Dim objTS 'define a TextStream object
Dim strContents As String
Dim fileSpec As String
fileSpec = ThisWorkbook.path & "\Template.pdf"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(fileSpec, ForReading, False)
strContents = objTS.ReadAll
strContents = replace(strContents, "PLACEHOLDER", "TOPDOG")
objTS.Close
Set objTS = objFSO.OpenTextFile(fileSpec, ForWriting)
objTS.Write strContents
objTS.Close
End Sub