llevo intentando hacer una macro para un encabezado y pie de pagina pero me sale error 5941 ya google pero no encuentro una solucion a este error
Cita:
Sub Datos()
'
' Datos Macro
'
'
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
ActiveDocument.AttachedTemplate.BuildingBlockEntri es(" En blanco").Insert _
Where:=Selection.Range, RichText:=True
Selection.TypeText Text:="asdasdad"
WordBasic.GoToFooter
Selection.TypeText Text:="asdasdad"
End Sub
|