Hyperlink aus Excel in Word einfügen
27.01.2021 10:54:16
dominik
ich hoffe Ihr könnt mir bei einem wahrscheinlich eher kleinen Problem weiterhelfen. Ich versuche aus einer Excel Zelle einen Hyperlink nach Word zu kopieren und diesen aber ohne Zeilenumbruch an einer Textmarke einzufügen. Leider bekomme ich den Zeilenumbruch einfach nicht weg. Der Hyperlink soll erhalten bleiben.
Bin mir nicht sicher ob dies Überhaupt möglich ist.
Beispiel Worddatei:
"Text" danach steht die Textmarke(hier Hyperlink einfügen) und danach steht wieder "Text"
Wenn ich jetzt den Hyperlink bei der Textmarke einfüge wird der Text danach eine Zeile tiefer gestellt, so.
"Text" danach steht die Textmarke(Hyperlink)
und danach steht wieder "Text"
Hier mein Code:
Sub Wordtext_einfuegen_bei_Textmarke()
Dim WordApp As Object
Range("a4").Copy
Set WordApp = CreateObject("word.Application")
WordApp.Documents.Open "C:\users\admin\desktop\Dg.docm"
WordApp.Visible = True
WordApp.ActiveDocument.Bookmarks("hello2").Select
WordApp.Selection.Range.PasteExcelTable _
LinkedToExcel:=False, _
WordFormatting:=False, _
RTF:=False
Application.CutCopyMode = False
End Sub
Gruß dominik