Replace Text in PDF using VBA

[Ashu2019]

Dear Team,

can some one help me with how to replace text and save, I want to open PDF search for some text example Apple and replace it with Banana save the pdf and exit

Here's my current code, Any help or direction will be appreciated.

Code: Select all

Public Sub CreateDoc()
    Dim PXV As PDFXEdit.PXV_Inst
    Dim pxc As New PDFXEdit.PXC_Inst
    Dim Doc As IPXC_Document
    Dim objdcb As IPXC_DocAuthCallback
    Dim objContent As IPXC_Content
    Dim retv() As Byte
    Dim ar1(20) As String
    Dim retv2 As IPXS_PDFVariant
    Dim ts As IPXC_TState
    Dim pf As PXC_PointF
    
    
Set PXV = New PDFXEdit.PXV_Inst
PXV.Init
Set pxc = PXV.GetExtension("PXC")
pxc.Init ""

Set Doc = pxc.OpenDocumentFromFile("Path\FP101A - Copy.pdf", Nothing)

Set objContent = Doc.Pages.Item(0).GetContent(CAccessMode_FullClone)

For i = 1 To objContent.Items.Count - 1

    If objContent.Items.Item(i).Type = CIT_Text Then

        Dim s() As String

        Call objContent.Items.Item(i).Text_GetDataSA(retv())

        Set retv2 = objContent.Items.Item(i).Text_GetData2()
        
        For ir = LBound(retv) To UBound(retv)

            sText = sText & Chr(retv(ir))
            
            If sText = "SamplText" Then
                
                MsgBox "Found: " & sText
                
                'Replace "d" of "Approved" with the letter "N"
                retv(3) = 65
                Call retv2.Arr_SetInt(ir, 78)
                Set ts = objContent.Items.Item(i).GetTState
               'Set res = objContent.Items.Item(i).Text_SetData(retv2, ts) '<--- this line gives error Function not available in VB
                
            End If

        Next

        Debug.Print sText

        sText = vbNullString

    End If

Next


Doc.WriteToFile "path\macroedited.pdf"
Doc.Close

pxc.Finalize
   
End Sub

[Ashu2019]

Support?

[Tracker Supp-Stefan]

Hello Ashu2019,

Find and replace is not yet possible in our products.

Kind regards,
Stefan

[Ashu2019]

Thanks Stefan,

All i want is to edit the text and save pdf back is it possible i have the content item I am looking for I need to edit that content item text and save the pdf that's it.

Regards,
Ashish.

[Tracker Supp-Stefan]

Hello Ashu2019,

Here are all the methods for an IPXC_ContentItem:
https://sdkhelp.pdf-xchange.com/view/PX ... ontentItem

I am not a developer myself - so I do not know if the methods from the above page would allow you to make the needed changes to that Content Item.

Kind regards,
Stefan

[Ashu2019]

@Vasyl-Tracker Dev Team

any help please

[TrackerSupp-Daniel]

Hello, Ashu2019

Just to clarify, are you using one of our SDK products for this task, or are you just trying to apply VBA actions to the end-user Editor?

If the former (using an SDK product), there may be a way you could develop something on your own to perform this task, but it would not be something our Dev team can build for you. If the latter, and you are using the end user editor, this is very likely not possible at this time, considering we do not yet offer our own Find and Replace function either.

We are looking to add Find and replace in the future, but for the time being, we do not have a solution in house to offer for replacement of base content text.

Kind regards,