Jump to content
Fórum Script Brasil
  • 0

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


Alessandro Petrone

Question

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?
 
 
Edited by Alessandro Petrone
Resumi a pergunta para ver se obtenho alguma resposta.
Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      651.9k
×
×
  • Create New...