Sub
LineToString()
On
Error
GoTo
ErrorResult
Dim
ins
As
Outlook.Inspector
Dim
doc
As
Word.Document
Dim
sel
As
Word.Selection
Dim
range
As
Word.range
Dim
lin
As
Word.Hyperlinks
Dim
ran
As
Word.range
Dim
x
As
Long
x = 0
Set
ins = Application.ActiveInspector
Set
doc = ins.WordEditor
Set
sel = doc.Application.Selection
Set
lin = doc.Application.ActiveDocument.Hyperlinks
Set
ran = sel.Paragraphs(1).range
Debug.Print ran
lin.Add Anchor:=ran, Address:=ran
x = 1
ErrorResult:
If
(x = 0)
Then
MsgBox
"Error"
& vbCrLf &
"Makro wurde abgebrochen."
Exit
Sub
End
If
End
Sub