Link excel que abra documento word por una parte prefijada (+ link externo igual

[Esgrimidor]

Link excel que abra documento word por una parte prefijada

Por ejemplo por un capítulo del documento u otra marca posible.

[kero-chan]

mmmm.... no te entiendo la pregunta... si me explicas quizas pueda ayudarte! 

[Darkness]

Link excel que abra documento word por una parte prefijada

Por ejemplo por un capítulo del documento u otra marca posible.

VB?

[Esgrimidor]

Sí, con VB.

Se trataría con un script de entrar en word por una parte del documento.

Quizá sea similar a la consulta ya planteada :

http://www.svcommunity.org/forum/vb/link-word-que-abra-excel-libro-por-una-hoja-determinada/

Ahora se trataría de una vez conocida la marca entrar por ella en word.

[wilian]

Creo que esto es lo que buscas:

1. Insertar los marcadores en la parte del documento de word donde te interesa estar cuando se abra el archivo.

En el archivo de word que adjunto inserte los siguientes marcadores:

     Donde dice Pagina1 inserte un marcador llamado pagina1
     Donde dice Pagina1-1 inserte un marcador llamado pagina1_1
     Donde dice Pagina2 inserte un marcador llamado pagina2
     Donde dice Pagina3 inserte un marcador llamado pagina3



2. Digitar el codigo en excel.

EL codigo que necesitas es el siguiente:

Código: [Seleccionar]

ActiveWorkbook.FollowHyperlink Address:="C:\abc.doc#pagina1", NewWindow:=True
Sirve para ejecutar hipervinculos. Como podes ver después de poner la ubicación del archivo pones # y después el nombre del marcador que insertaste, es decir,  donde queres que se abra el archivo.

Entonces en el editor vba de excel simplemente inserte lo siguiente:

Código: [Seleccionar]

Sub pagina1()
    ActiveWorkbook.FollowHyperlink Address:="C:\abc.doc#pagina1", NewWindow:=True
End Sub

Sub pagina1_1()
    ActiveWorkbook.FollowHyperlink Address:="C:\abc.doc#pagina1_1", NewWindow:=True
End Sub

Sub pagina2()
    ActiveWorkbook.FollowHyperlink Address:="C:\abc.doc#pagina2", NewWindow:=True
End Sub

Sub pagina3()
    ActiveWorkbook.FollowHyperlink Address:="C:\abc.doc#pagina3", NewWindow:=True
End Sub

Y asigne las macros a cada boton que ves en el archivo de excel que adjunto. Al presionar cada boton te lleva a cada posición en el archivo.

Para que te funcionen los archivos adjuntos el de excel lo podes dejar donde sea pero el de word dejalo en el disco C ya que esa es la ubicación programda. Si lo pones en otra parte simplemente cambias la ubicación en cada macro.

[Esgrimidor]

Esto está en línea.

Había concluido hace un par de días con :

"M:\Archivos de programa\Microsoft Office\Office10\WINWORD.EXE" /t "Y:\GABINETE\PROYECTOS\125.09\125.09.Proyecto.doc" /mmacro3

donde macro3 es una macro grabada que lleva a un marcador

el contenido de esa macro :

Sub Macro3()
'
' Macro3 Macro
' Macro grabada el 26/08/2009 por JPR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="LineaDerivacionIndividual"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub


Hoy me han pasado código de acceso a otras partes del documento :

there are many ways to move around in a word document, depending what you want to achieve

if you want to go to a table you can use
activedocment.tables(1).select
if you don't really want the table selected you can collapse the selection to the top or bottom of the selection (table)

similarly you can move to any paragraph if you know the paragraph number
to move to the last paragraph
activedocument.paragraphs(activedocument.paragraphs.count).select

you can also use the find method to locate specific text then move there

if you are performing operations by code there is no need to goto any particular position as this slows down the execution of the code, you can just specify the location to perform the operation

Y acabo de poner una consulta en el forito para el caso de que el archivo en cuestión no tenga una ubicación fija.

es decir Y:\GABINETE\PROYECTOS\125.09\125.09.Proyecto.doc

Y:\GABINETE\PROYECTOS\%variable%\%variable%.Proyecto.doc

Me estuve planteando si sería posible con una variable de sistema, pero creo que habrán formas mucho más fáciles y directas, que además no supongan reiniciar el equipo o cosas parecidas.


VOY A ECHARLE UN BUEN VISTAZO al archivo adjunto. Por lo que comentas has usado command button o similar.
Probablemente usando hyperlinks la variable en cuestión sea más difícil de actualizar. La verdad es que ni idea. Lo intenté hacer con un bat, pero me armé un lío con el comando set.

A ver cómo sale la otra cuestión y podrá hacer o obligar a un sistema u otro.

MUCHAS GRACIAS Y UN FUERTE ABRAZO.

[wilian]

Haciendole unos cambios al codigo que te di antes se puede dejar de la siguiente forma:

Código: [Seleccionar]

Sub pagina1()
    ActiveWorkbook.FollowHyperlink Address:="C:\" + Cells(4, 2) + "\abc.doc#pagina2", NewWindow:=True
End Sub
Solamente unis los textos sumandolos. En este caso el nombre de la carpeta en donde esta el archivo que queres abrir lo debes colocar en la celda(4,2), es decir, la celda B4. Para que probes lo que te digo adjunto otro archivo rar. Descomprimilo y pone todo el contenido en el disco C.

Cuando escribas en la celda B4 carpeta1 y presiones el boton [Abrir documento] se va abrir el documento abc.doc que esta en C:\carpeta1

Cuando escribas en la celda B4 carpeta2 y presiones el boton [Abrir documento] se va abrir el documento abc.doc que esta en C:\carpeta2

Cuando escribas en la celda B4 carpeta3 y presiones el boton [Abrir documento] se va abrir el documento abc.doc que esta en C:\carpeta3




Haciendolo de esta forma podes poner como variable no solo la ubicación sino tambien el nombre del archivo y también el nombre del marcador en el documento de word.

[Esgrimidor]

Muchas gracias Wilian