Fix: Special Tags for Logo, Signature, or Stamp Not Inserting Images

Sub CheckSpecialImageWorkflow()
    Dim doc As Document
    Dim tags As Variant
    Dim files As Variant
    Dim photosFolder As String
    Dim i As Long
    Dim rng As Range
    Dim report As String

    Set doc = ActiveDocument
    photosFolder = InputBox("Enter the photos folder used by this workflow:", "Photos folder")
    If Len(Trim$(photosFolder)) = 0 Then Exit Sub
    If Right$(photosFolder, 1) <> "\" Then photosFolder = photosFolder & "\"

    tags = Array("{{photo_logo}}", "{{photo_signature}}", "{{photo_stamp}}")
    files = Array("logo.png", "signature.png", "stamp.png")

    report = "Special image preflight" & vbCrLf & String(28, "-") & vbCrLf

    For i = LBound(tags) To UBound(tags)
        Set rng = doc.Content
        With rng.Find
            .ClearFormatting
            .Text = tags(i)
            .Forward = True
            .Wrap = wdFindStop
            .Execute
        End With

        If rng.Find.Found Then
            report = report & tags(i) & " -> tag found"
        Else
            report = report & tags(i) & " -> tag not found in template"
        End If

        If Dir$(photosFolder & files(i)) <> "" Then
            report = report & " | file found: " & files(i)
        Else
            report = report & " | file missing: " & files(i)
        End If

        report = report & vbCrLf
    Next i

    MsgBox report, vbInformation, "Special image check"
End Sub