Hola!!!
El caso es que tengo que visualizar en el encabezado de un word el numero de páginas y de cuestionario por cada hoja; es decir:
nº página 1 nº cuestionario 300 y en la siguiente:nº página 1 nº cuestionario 301
hasta el numero de cuestionario que se guarda con un textbox. Esto lo tiene que repetir con cada una de las hojas q tenga el documento.
Yo declaro las variables:
Global numinicio As Integer
Global numfinal As Integer
Global numpaginas As Integer
en un módulo y les asigno el valor introducido en un textbox.
Luego ejecuto el siguiente código:
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
'Para alinear el texto a la derecha
For x = numinicio To numfinal
For i = 1 To numpaginas
.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Documento.Selection.Font.Name = "Times News Roman"
Documento.Selection.Font.Size = 8
.Application.Selection.TypeText "Nº Cuestionario:" + x + vbNewLine + "Nº Página:" + i
.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Documento.Selection.Font.Size = 8
.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
'intro
.Application.Selection.TypeParagraph
Next i
Next x
'mostramos documento
.Application.Visible = True
End With
Set Documento = Nothing
El caso es que me da problemas la linea que visualza los datos, pero tampoco se si está bien hecho ese For!!!
Alguna idea???
