Convertir Word a JPG por macro

Se que me podrán ayudar, tengo una macro en la cual crea un archivo Word y un PDF desde una base de excel, hasta ahí todo bien, solo quisiera saber si hay alguna manera de convertir ese mismo archivo de word en imagen en formato JPG dentro de la misma macro, como referencia, tomé partes de una macro que compartió Dante Amor en una Respuesta.

Sub CorrespondenciaConWord()
'Por.Dante Amor
    '
    patharch = ThisWorkbook.Path & "\" & Cells(1, "M") & ".dotx"
    '
    For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
        Set objWord = CreateObject("Word.Application")
        objWord.Visible = True
        objWord.Documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0
        '
        For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
            textobuscar = Cells(1, j)
            objWord.Selection.Move 6, -1
            objWord.Selection.Find.Execute FindText:=textobuscar
            '
            While objWord.Selection.Find.found = True
                objWord.Selection.Text = Cells(i, j) 'texto a reemplazar
                objWord.Selection.Move 6, -1
                objWord.Selection.Find.Execute FindText:=textobuscar
            Wend
            '
        Next
        '
        ruta = ThisWorkbook.Path & "\" & Cells(1, "M") & "\" & Cells(1, "K") & "\" & Cells(1, "L") & "\"
        nombd = ruta & Cells(i, "B") & ".docx"
        nombp = ruta & Cells(i, "B") & ".pdf"
        objWord.ActiveDocument.SaveAs nombd
        pdf = objWord.ActiveDocument.ExportAsFixedFormat(nombp, _
        17, False, 0, 0, , , 0, False, True, 1)
        objWord.Quit (False)
    Next
End Sub