Public Sub imageInsert(imgPath As String, txt As String, bD As Word.Document)
    Dim ksSel As Selection
    Set ksSel = Word.Application.Selection
    With ksSel
        .EndKey Unit:=wdStory
        .InlineShapes.AddPicture fileName:=imgPath, LinkToFile:=False, SaveWithDocument:=True
        .MoveRight Unit:=wdCharacter, Count:=1
        .TypeParagraph
        .TypeText Text:=txt
        .TypeParagraph
        .MoveUp Unit:=wdLine, Count:=2, Extend:=wdExtend
        .ParagraphFormat.Alignment = wdAlignParagraphCenter
        .EndKey Unit:=wdStory
    End With
    Set ksSel = Nothing
End Sub