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?