Gracias Foxi!!!
Hice lo que me dijiste pero la verdad es que sigo bastante liado.
El código resultante de la macro es el siguiente (utilizando office 2007) para poner un encabezado a la izquierda:
Sub Macro2()
'
' Macro2 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:="Nº Página"
Selection.TypeParagraph
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
Selection.MoveUp Unit:=wdLine, Count:=1
End Sub
ActiveWindow es un comando del propio visual del Word asi q no me vale de mucho... alguien sabe como se podría hacer para pasar esto a visual basic 6.0??
