Asignar macro para abrir hoja de word

[cangrejo]

He creado 10 botones en una hoja de excel que quiero que hagan lo siguiente:

Cuando pulse el 1, me gustaría que abriera un documento de word y me colocara en la página 1 de ese documento, cuando pulse el 5 que me coloque en la página 5 ¿es eso posible?

A ver si podeis ayudarme.

[Abraham Valencia]

Hola:

Claro que es posible, ¿lo intentaste de algún modo? Yo diría que lo más "simple" es abrir un archivo word, aquí un modo:

Dim word As Word.Application 
Dim myDoc As Word.Document 
Set wrd = CreateObject("Word. Application") 
wrd.Visible = True 
Set myDoc = wrd.Documents.Open("C:\H51.Doc")
[/PHP]

El archivo por defecto se abrirá en la pagina 1. Para ir a otras paginas debes hacer uso de VBA de Word aplicado como objeto:

[CODE]
With wrd.ActiveDocument
[/CODE]

Y ahí usar la instruccion Goto del VBA de Word, algo así:

[CODE]
.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="5"
[/CODE]

Comentas

Abraham

[Wrongdoer]

buenas tardes, y si tuviera la lista de nombres de archivos de word de una carpeta especifica cargados en un listbox como podria abrir el archivo que seleccionaria con un doble clic?