Para SDEMINGO de borja asunto WORD

Borja
25 de Septiembre del 2003
no deja grabar nueva macro, si no ya lo habria probado, el problema es que al estar grabando la macro, no deja seleccionar los cuadros de texto. con lo que no se como seleccionarlos a traves de codigo, si llevan inedices, etc.



sdemingo
25 de Septiembre del 2003
La verdad es que nunca me había puesto ha probar con esto, por eso no tengo mucha idea, pero mira a ver si esto puede ayudarte en algo.

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
Selection.HeaderFooter.Shapes.AddTextbox(msoTextOrientationHorizontal, _
112.05, 43.85, 63#, 18#).Select
Selection.ShapeRange.TextFrame.TextRange.Select
Selection.Collapse
Selection.TypeText Text:="TEXTO DE LA CAJA DE TEXTO DENTRO DE UN ENCABEZADO DE PÁGINA"
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

Un saludo
sdemingo

sdemingo
25 de Septiembre del 2003
ah, se me olvidaba decirte que ese código es para dentro de una macro, no para VB