VBA-替换pdf文件中的字符串

Question

我有一个在Bluebeam中创建的PDF文件。它整个都有形状，图像和文本框。

在Excel中使用VBA，我想替换所有出现的字符串。我尝试了其他页面上许多其他人的建议，这些建议成功地替换了字符串，但是，当我在bluebeam中打开文件时，许多形状将会偏移或消失。文件编码为ANSI。

在不弄乱文件其他内容的情况下替换出现的内容有什么智慧吗？

这是我在玩(from here)的代码：

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