Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
25.08.2022 17:56:38 |
PaDa |
|
|
|
26.08.2022 06:25:49 |
ralf_b |
|
|
markierten Text in Email ändern |
26.08.2022 10:18:51 |
PaDa |
|
|
|
26.08.2022 10:35:05 |
PaDa |
|
|
|
26.08.2022 12:13:59 |
volti |
|
|
Von:
PaDa |
Datum:
26.08.2022 10:18:51 |
Views:
1012 |
Rating:
|
Antwort:
|
Thema:
markierten Text in Email ändern |
Danke erstmal.
Habe eine funktionierende Lösung erstellt.
Hier muss man nur irgend wo in die Zeile des Pfades klicken (man muss ihn nicht markieren), dann das Makro starten und dann wird dieser zum Hyperlink geändert. Hierfür sollte der Pfad alleine in einer Zeile stehen und nicht in der selben Zeile dahinter weiterer Text kommen.
Hab den Code mit angehängt, vielleicht hilft es auch jemanden.
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 'hyperlink wird mit der markierung gesetzt
x = 1
ErrorResult:
If (x = 0) Then
MsgBox "Error" & vbCrLf & "Makro wurde abgebrochen."
Exit Sub
End If
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
25.08.2022 17:56:38 |
PaDa |
|
|
|
26.08.2022 06:25:49 |
ralf_b |
|
|
markierten Text in Email ändern |
26.08.2022 10:18:51 |
PaDa |
|
|
|
26.08.2022 10:35:05 |
PaDa |
|
|
|
26.08.2022 12:13:59 |
volti |
|
|