Inserir cabeçalho e rodapé em um arquivo Word através de VBA no Excel

[Alessandro Petrone]

Tenho um arquivo em excel com dados em uma tab, que através da macro abaixo no excel, consegui criar um arquivo word do zero, copiar o conteúdo da tab do excel e colar no word, porém o cabeçalho e o rodapé não vem pro word e eu não estou conseguindo incluí-los.

Sub ExcelToWord()

    Dim ws As Worksheet
    Set ws = ActiveSheet

    Dim objWd As Object
    Set objWd = CreateObject("word.application")

    Dim myPath As String
    Dim folderPath As String

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    myPath = fso.GetBaseName(ActiveWorkbook.Name)

    folderPath = Application.ActiveWorkbook.Path

    objWd.Visible = True

    Dim objDoc As Object
    Set objDoc = objWd.Documents.Add

    objDoc.PageSetup.Orientation = 0 '  portrait = 0
    Application.ScreenUpdating = False
    ws.UsedRange.Copy
    objDoc.Content.Paste
           
    With objWd
        .ActiveDocument.Tables(1).AutoFitBehavior 2 'wdAutoFitWindow
        .Selection.WholeStory
        .Selection.ParagraphFormat.SpaceAfter = 0
        .Selection.Collapse Direction:=0 'wdCollapseStart
    End With

    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    Application.ScreenUpdating = True

End Sub


Pergunta 1) Após a macro criar o documento em Word, como eu poderia editar a macro acima para que ela insira um cabeçalho com um logo .bmp que está inserido na tab do excel como imagem usando VBA?

 

Pergunta 2) Como faço para inserir no word um rodapé que no canto esquerdo mostre "Página X de Y" mostrando as páginas corretas do arquivo word?

 

É possível?

 

 

Editado Fevereiro 19 por Alessandro Petrone
Resumi a pergunta para ver se obtenho alguma resposta.