Zapisz jako PDF && Znak wodny

Witam,
mam pytanie odnośnie zapisu do pliku pdf z excela i worda - w jaki sposób można umieścić znak wodny
w exportowanym pliku pdf. Mam formularz, który exportuje wybrane pliki do pdf:


If ListView1.ListItems.Count = 0 Then Exit Sub
If Label2.Caption = "Brak" Or Label3.Caption = "Brak" Then Exit Sub
Dim i As Integer, wybrano As Boolean
wybrano = False
Dim Xdokument As Workbook
Dim Wdokument As Object
Dim AppWord As Object
If OptionButton1.Value = True Then
    Set AppWord = CreateObject("Word.Application")
End If
For i = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(i).Checked = True Then
        wybrano = True
        If OptionButton1.Value = True Then
            Application.DisplayAlerts = False
            Set Wdokument = AppWord.Documents.Open((Label2.Caption & "\" & ListView1.ListItems(i)))
            Wdokument.ExportAsFixedFormat OutputFileName:= _
            Label3.Caption & "\" & Left(ListView1.ListItems(i), Len(ListView1.ListItems(i)) - 3) & "pdf", ExportFormat:= _
            wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
            wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
            Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
            CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
            BitmapMissingFonts:=True, UseISO19005_1:=False
            Wdokument.Close False
            Set Wdokument = Nothing
            Application.DisplayAlerts = True
        Else
            Application.DisplayAlerts = False
            Set Xdokument = Workbooks.Open((Label2.Caption & "\" & ListView1.ListItems(i)))
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            Label3.Caption & "\" & Left(ListView1.ListItems(i), Len(ListView1.ListItems(i)) - 3) & "pdf", Quality:= _
            xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
            Xdokument.Close False
            Set Xdokument = Nothing
            Application.DisplayAlerts = True
        End If
    End If
Next
Set AppWord = Nothing
If wybrano = False Then
    MsgBox "Zaznacz pliki do konwersji!"
Else
    MsgBox "konwersja przebiegła pomyślnie!"
End If

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

katkaras.opx.pl