Seleccionar todo el texto de word y copiarlo a otro mediante VB 6.0

iaras66
08 de Abril del 2008
Lo que he conseguido es que aparezcan los numeros de pagina y el primer numero de cuestionario en el encabezado o pie de un Word.
Para q aparezcan los siguientes numeros de cuestionario que seleccionemos de rango tengo pensado hacer un for en el que copia el contenido del documento word original y lo pega en otro que especificamos su ruta; en el cual hará mediante el for y el incremento de "i" que aparezcan los numeros de cuestionario por página. El problema es q tengo algún problemilla con especificar la ruta de ese documento al que le mandamos los datos mediante ese FOR... te pongoe el código:


.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
'Para que en todos los encabezados sea igual

'Para alinear el texto a la derecha


.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Documento.Selection.Font.Name = "Times News Roman"
Documento.Selection.Font.Size = 8


.Application.Selection.TypeText "Nº Página:"
Documento.Selection.Sections(1).Headers(1).PageNumbers.Add PageNumberAlignment:= _
wdAlignPageNumberRight, FirstPage:=True


For i = numinicio To numfinal
.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Documento.Selection.Font.Name = "Times News Roman"
Documento.Selection.Font.Size = 8


.Application.Selection.TypeText "Nº Cuestionario:" & i
WorApp.Selection.InsertFile FileName:=dire, Link:=True

Next i

Documento.Selection.Font.Size = 8
.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
'intro

Donde en la variable dire querria guardar la ruta del nuevo documento:
dire: Application.Documents.SaveAs App.Path & "Final.doc"(esta parte está mal)

No se si hay una manera mejor de hacer lo que explico???
gracias!!!