Consegui pessoal, pra quem precisar esta ai o codigo, isso é possivel pra varios arquivos juntei com outro codigo e deu certo, eu nao sei nada de VBA mas deu certo kkkkk
se puderem adptar pra copiar cabeçalho e rodape de uma vez seria bom!
Sub CommandButton1_Click()
Dim MyDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
On Error Resume Next
Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
With MyDialog
.Filters.Clear
.Filters.Add "All WORD File ", "*.docx", 1
.AllowMultiSelect = True
i = 1
If .Show = -1 Then
For Each stiSelectedItem In .SelectedItems
GetStr(i) = stiSelectedItem
i = i + 1
Next
i = i - 1
End If
Application.ScreenUpdating = False
For j = 1 To i Step 1
Dim docTemplate As Document
Dim strTemplate As String
Dim hdr1 As HeaderFooter
Dim hdr2 As HeaderFooter
Dim doc As Document
Set doc = Documents.Open(FileName:=GetStr(j), Visible:=True)
Windows(GetStr(j)).Activate
strTemplate = "C:\ModuloVBA\papeltimbrado.dot"
Set docTemplate = Documents.Open(strTemplate)
Set hdr1 = docTemplate.Sections(1).Footers(wdHeaderFooterPrimary)
Set hdr2 = doc.Sections(1).Footers(wdHeaderFooterPrimary)
hdr1.Range.Copy
hdr2.Range.Paste
docTemplate.Close False
Next
Application.ScreenUpdating = True
End With
If Documents.Count > 0 Then
Documents.Close SaveChanges:=wdPromptToSaveChanges
End If
End Sub