Sznida Creative Commons License 2011.01.04 0 0 13677

Szia Ciripke,

 

Ha ugyanabban a könyvtárban van az excel file, akkor arra itt egy megoldás.

Ha jól értem, akkor word-ben akarsz hiperhivatkozást, akkor egy tetszőleges word file-hoz rendelt visual basic eseménykezelőjébe "ThisDocument"-be másold be. Aztán metsd el a word file-t ugyanabba a mappába ahol az exceled is van.

A word megnyitáskor beolvassa ezt a makrót, és egy hiperlinket ír be a kursor helyére, arra ctrl-al kattintva már nyílik is meg az excel file.

A "fileName helyére írd be az excel file nevét.

A Cim = kezdetű sorban van középen egy per jel, az nem per, hanem fordított per, azaz backslash, csak az sajnos törlődik! :(

A word bezáráskor töröl mindent, és ment.

 

Private Sub Document_Open()
    Eleresi_ut = Application.ActiveDocument.Path
    FileName = "12345.xls"
    Cim = Eleresi_ut & "/" & FileName
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:=Cim, SubAddress:="", _
        ScreenTip:="", TextToDisplay:=Cim
End Sub
Private Sub Document_Close()
    Application.DisplayAlerts = False
    Selection.WholeStory
    Selection.Delete Unit:=wdCharacter, Count:=1
    Application.ActiveDocument.Save
End Sub

 

Remélem segítettem!

 

Üdv: Sznido

Előzmény: Ciripke (13676)