Jag har en tabell i word Här har du kod för att skapaen hyperlänk av sökvägenHyperlänk, klurig VBA-fråga.
Dokument Rev Beskrivingstext Sökväg
VIB-0001 - SPRIT 99,5% c:\VIB-0001.PDF
VIB-0002 - DENATURERAD SPRIT 95% c:\VIB-0002.PDF
osv....
Kan man på något sätt göra om hela raden till en hyperlänk och använda sig av sökvägen till aktuellt dokument. Tanken är att detta ska fungera automatiskt. Tabellen genererar jag från en databas.
//HenrikSv: Hyperlänk, klurig VBA-fråga.
If Selection.Information(wdWithInTable) = True Then
Selection.Tables(1).Select
IAntalRader = Selection.Rows.Count
ActiveDocument.Tables(1).Cell(Row:=1, Column:=4).Select
End If
For x = 1 To IAntalRader
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
If Len(Selection.Text) > 3 Then
If Right(UCase(Selection.Text), 3) = "PDF" Then
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, _
Address:=Selection.Text, _
TextToDisplay:=Selection.Text
Else
End If
Else
End If
Next