Inserire in DOC immagine e poi PDF

Apre documento doc inserisce immagine e visualizza In PDF immagine creata.

Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.InlineShapes.AddPicture FileName:= _
        "C:\Prova\foto__06.jpg", LinkToFile:=False, SaveWithDocument:=True

End Sub

oppure

On Error GoTo Errore

Dim ObjAccess As Object
Set ObjAccess = CreateObject("Word.Application")
ObjAccess.Visible = False
 
 
 ObjAccess.Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
    ObjAccess.Selection.InlineShapes.AddPicture FileName:= _
        "C:\PROVA\DSC09059.jpg", _
         LinkToFile:=False, SaveWithDocument:=True
         Dim Stringa As String
         
         Stringa = App.Path & "\~" & Hex(Val(Format(Now(), "dhhmmss") & Trim(Str(Int(Rnd() * 10))))) & ".pdf"
         
         
    ObjAccess.ActiveDocument.ExportAsFixedFormat OutputFileName:=Stringa, _
        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False

ChangeFileOpenDirectory App.Path
    ObjAccess.ActiveDocument.SaveAs FileName:="TSO GIORNALIERO.docx", FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False

ObjAccess.ActiveDocument.Close
ObjAccess.quit
Exit Sub

Errore:
MsgBox Err.Description, vbInformation

Apre documento doc inserisce immagine e visualizza In PDF immagine creata.

Sub Macro1()
'

' Macro1 Macro

'

'

Selection.InlineShapes.AddPicture FileName:= _
"C:\Prova\foto__06.jpg", LinkToFile:=False, SaveWithDocument:=True

End Sub

oppure

On Error GoTo Errore

Dim ObjAccess As Object
Set ObjAccess = CreateObject("Word.Application")
ObjAccess.Visible = False

ObjAccess.Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
ObjAccess.Selection.InlineShapes.AddPicture FileName:= _
"C:\PROVA\DSC09059.jpg", _
LinkToFile:=False, SaveWithDocument:=True
Dim Stringa As String

Stringa = App.Path & "\~" & Hex(Val(Format(Now(), "dhhmmss") & Trim(Str(Int(Rnd() * 10))))) & ".pdf"

ObjAccess.ActiveDocument.ExportAsFixedFormat OutputFileName:=Stringa, _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False

ChangeFileOpenDirectory App.Path
ObjAccess.ActiveDocument.SaveAs FileName:="TSO GIORNALIERO.docx", FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False

ObjAccess.ActiveDocument.Close
ObjAccess.quit
Exit Sub

Errore:
MsgBox Err.Description, vbInformation