Seleccion dentro de un documento

15/11/2007 - 16:47 por Jorge Rendon | Informe spam
Hola de nuevo;

No cierro un post para abrir otro, :)

Este es un poco mas sencillo (creo).

Necesito seleccionar en un documento de word, todo el documento menos las
paginas 1 y 2. Mejor dicho seleccionar el documento apartir de la 3er pagina.

La idea es hacerlo desde una macro en VBA y no manualmente dejando
presionada la tecla shif para seleccionar. Si es posible, se lo agradesco,
sino tambien.

Saludos,
Jorge

Preguntas similare

Leer las respuestas

#1 Tux
15/11/2007 - 20:20 | Informe spam
Hola de nuevo Jorge :-)
Hola de nuevo;

No cierro un post para abrir otro, :)

Este es un poco mas sencillo (creo).

Necesito seleccionar en un documento de word, todo el documento menos las
paginas 1 y 2. Mejor dicho seleccionar el documento apartir de la 3er pagina.

La idea es hacerlo desde una macro en VBA y no manualmente dejando
presionada la tecla shif para seleccionar. Si es posible, se lo agradesco,
sino tambien.

Saludos,
Jorge



:-) !!

Bien prueba con el siguiente codigo :-)

'[]

Sub Prueba_uno()

With Selection

.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="3"
.EndKey Unit:=wdStory, Extend:=wdExtend

End With

End Sub

'[]

Ira hasta la pagina 3 y seleccionara a partir de esta hasta el final del
documento, como ves tenemos de nuevo el [ With ... end with ] que es una
instruccion muy utilizada para abrebiar codigo a la hora de escribir,
por ejemplo el tener el siguiente codigo que es lo mismo que el anterior
hacen exactamente lo mismo »

'[]


Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="3"
Selection.EndKey Unit:=wdStory, Extend:=wdExtend


'[]


pues vemos tiene el mismo objeto a la hora de realizar un procedimiento
en este caso que vaya hasta la hoja tres y que nos seleccione el
documento hasta el final, pues entonces para abreviar y no escribir dos
veces el mismo objeto [ Selection ] pues podemos utilizar la instrucción:

[ With objeto
.metodos o propiedades que acompañan al objeto

End with ]

Ma o menos :-P !! nos comentas ok? :-)!!

Saludos
Monica





Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com
Respuesta Responder a este mensaje
#2 Jorge Rendon
15/11/2007 - 22:37 | Informe spam
"Tux" wrote:

Bien prueba con el siguiente codigo :-)

'[]

Sub Prueba_uno()

With Selection

.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="3"
.EndKey Unit:=wdStory, Extend:=wdExtend

End With

End Sub




Gracias, el codigo funciona correctamente y segun lo que necesitaba.
Yo de programacion entieno lo general, apenas me defiendo en visual basic
(Hace muy poco lo estoy trabajando), veo que tiene demasiados comandos y
demasiadas utilidades, por lo que se hace extenso y complicado conocer.

De a poco me ire familiarizando con el.

Saludos,

Cordialmente,
Jorge.
Respuesta Responder a este mensaje
#3 Tux
17/11/2007 - 00:51 | Informe spam
Jorge Rendon escribió:


Gracias, el codigo funciona correctamente y segun lo que necesitaba.
Yo de programacion entieno lo general, apenas me defiendo en visual basic
(Hace muy poco lo estoy trabajando), veo que tiene demasiados comandos y
demasiadas utilidades, por lo que se hace extenso y complicado conocer.

De a poco me ire familiarizando con el.

Saludos,

Cordialmente,
Jorge.




;-) !! el codigo es practicar, practicar y practicar y el tiempo hace el
resto :-P yo todavia estoy aprendiendo y cada dia que pasa aprendo algo
nuevo :-) !!! lo dicho gracias a ti y ya sabes si cualquier pregunta
duda o demas, pues por aqui estaremos ;-) !!

Saludos :-)
Monica






Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida