|
Hallo PaDa,
hier mal zur Ergänzung Deines Makros:
Du verwendest das sogenannte "Early Binding", hierbei muss dann ein Verweis z.B. auf die Word-Bibliothek gesetzt werden und man kann dann mit den Word-Objekttypen und Konstanten aus Word arbeiten.
Wer das nicht möchte oder kann, kann mit "Late Binding" arbeiten und auf den Verweis verzichten. Die Objekte werden dann alle als "Object" deklariert, evtl. Konstanten durch ihren Zahlenwert ersetzt.
In Deinem Fall kann man aber auch komplett auf die Verwendung von Variablen verzichten, hier ein Beispiel:
Code:
01
02
03
04
05
06
07
08
09
10
11
12
13 |
|
Sub LineToString()
On Error GoTo ErrorResult
With Application.ActiveInspector.WordEditor.Application
' Hyperlink wird mit der Markierung gesetzt
.ActiveDocument.Hyperlinks.Add Anchor:=.Selection.Paragraphs(1).range, _
Address:=.Selection.Paragraphs(1).range
End With
Exit Sub
ErrorResult:
MsgBox "Es ist der Fehler '" & Error & "' aufgetreten!" & vbCr & "Das Makro wurde abgebrochen."
End Sub
|
_________
viele Grüße
Karl-Heinz
|