Notifications
Clear all

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

1 Posts
1 Usuários
0 Likes
151 Visualizações
(@ale5506)
Posts: 0
New Member
Topic starter
 
T

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?
Este tópico foi modificado 4 meses atrás 2 vezes by ale5506
 
Postado : 16/02/2024 2:57 am