如何在页脚中复制/粘贴表格 vba

Question

我有这段代码：

    Dim word_fichier, word_fichier_sensiblité As Document
    Dim fichier As String
    Dim fichier_sensibilite As String
    Dim word_app As Word.Application

'On récupère le template
    fichier = ActiveWorkbook.Path & "\" & "fsm_template_balises_test.docx"
    fichier_sensibilite = ActiveWorkbook.Path & "\" & "templates_sensibilité.docx"
    
'Ouverture de word
    Set word_app = CreateObject("Word.Application")
    With word_app
        .Visible = True
        .WindowState = 1
    End With
    
'Définition de l'objet fichier word
    Set word_fichier = word_app.Documents.Open(fichier)
    Set word_fichier_sensiblité = word_app.Documents.Open(fichier_sensibilite)

'Copie du tableau
    word_fichier_sensiblité.Tables(1).Range.Copy

    
'Collage du tableau
    With word_fichier.Sections(1).Footers(wdHeaderFooterPrimary)
        .Range.Paste
    End With

我的 word_fichier 中已有一个页脚，我想粘贴 word_fichier_sensiblité 中的表格。 现在我的表格正在删除我现有的页脚，我不知道如何将这张表格粘贴到我的页脚的开头。 有什么建议吗？

谢谢

Answer 1

With word_fichier.Sections(1).Footers(wdHeaderFooterPrimary).Range
    .Collapse wdCollapseStart
    .Paste
End With