Open PDF file add text

[arcaidius]

Hello,

I am trying to browse a folder, select the pdf file to open and add a shape from the spreadsheet to every page in the PDF File.
I have the browse folder portion of the code, but I am not very familiar with PDF to finish this code. Can anyone help?

Shape Name: Rectangle: Rounded Corners 2 (Its basically an approval stamp)

Sub Stamp_Click()

    Dim FileToOpen As String
  
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "All Files", "*.*"
        .InitialFileName = ThisWorkbook.Path & "\"
        .Title = "Browse for the file to Import"
        .Show
        If .SelectedItems.Count > 0 Then
            FileToOpen = .SelectedItems(1)
           

        End If
    End With
  
End Sub

 

[John_w]

You can add a shape, as an image, to PDF pages with the Acrobat API library, however that's only available with Acrobat Pro versions, not the free Adobe Reader.