我有這個代碼：
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é 粘貼一個表格。現在我的表格正在擦除我現有的頁腳，我知道如何將這個表格粘貼到我的頁腳的開頭。有什么建議嗎？
謝謝
uj5u.com熱心網友回復：
With word_fichier.Sections(1).Footers(wdHeaderFooterPrimary).Range
.Collapse wdCollapseStart
.Paste
End With
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/487660.html