Ver Mensaje Individual
  #3 (permalink)  
Antiguo 02/09/2009, 00:48
DurinVii
 
Fecha de Ingreso: julio-2009
Mensajes: 14
Antigüedad: 14 años, 8 meses
Puntos: 0
Respuesta: Salto página

Cita:
Iniciado por pkj Ver Mensaje
No tengo ni idea de trabajar con documentos Word, casi ni idea de Access y tu mensaje no lo llego a decodificar, pero, en fin, he googleado un rato y he encontrado esto en otro foro.
Igual te sirve, y viendo que nadie te contesta pues ahi lo pongo.

Pues con Microsoft Word referenciado en el proyecto
copia y pega este ejemplo, que aquí es difícil de leer:

Dim objWord As Word.Application
Set objWord = New Word.Application 'Creo el objeto word
objWord.Documents.Open "c:\hola.doc" 'Abro el documento
objWord.Visible = True 'Pongo visible a word, se verá con el documento abierto.
objWord.Selection.MoveDown wdLine, 3 'Bajo el cursor 3 lineas y se sitúa al inicio de la 4ª linea.
objWord.Selection.InsertBreak Type:=wdPageBreak 'Meto el salto de página.

Si te sirve, recuerda la próxima vez visitar primero a San Google.

Saludos by PKJ
Muchas gracias por la ayuda, he visitado san google, puesto que estaba hasta la ... pq ya no me salian pagina en la búsqueda que tuviesen relación decidi colocar la duda a ver si alguien conocia sobre el tema. La linea esta en concreto no me funciona:
"objWord.Selection.InsertBreak Type:=wdPageBreak 'Meto el salto de página. "
Me da un error, no entiendo porque, puesto que tengo puesta la referencia a Microsoft office 11.0 object library que es la necesaria para trabajar con los word object.
Siento que no entendieses mi pregunta. Voy a probar la linea anterior a la que he dicho anteriormente a ver si me funciona, esta linea:
"objWord.Selection.MoveDown wdLine, 3 'Bajo el cursor 3 lineas y se sitúa al inicio de la 4ª linea. "
Muchas gracias, ya te comento si funciona esta línea.