Hi alle,
die Überschrift beschreibt eigentlich schon mein Problem. In einem Word-Dokument sind sehr viele Hyperlinks die ich alle in einem Arbeitsgang entfernen möchte. Einzeln ist das ja kein Problem, wenn ich aber 100erte Hyperlinks entfernen muss wird das mühsam. Gibt es dafür eine Funktion?
Danke und schöne Grüße
danke pani
Kolti pani „Alle Hyperlinks eines Word-Dokuments in einem Schritt entfernen“
Dazu mußt Du Dir ein Makro schreiben.
Anders geht das nicht.
pani Kolti „Dazu mußt Du Dir ein Makro schreiben. Anders geht das nicht. “
Hi Kolti,
das würde ich gerne tun, aber dazu reichen meine Kenntnisse in Word nicht aus. In excel ein Makro aufzeichnen würde ich noch hinbekommen. Mein Problem ist, wie finde ich von einem Hyperlink zum anderen um diesen zu löschen? Wie lautet der Befehl, einen Hyperlink zu suchen? Das würde die Sache erleichtern.
danke
pani
Kolti pani „Hi Kolti, das würde ich gerne tun, aber dazu reichen meine Kenntnisse in Word...“
Du klickst Dich zu einem Hyperlink.
Dann startest Du ein Makro aufzeichnen.
Dann löscht Du den Hyperlink und schließt dann das Makro.
kannst es dann noch mit einer Tastenkombination belegen. Strg X oder was auch immer.
Nun haben ja alle Hyperlinks was gemeinsam. www oder http:// steht da drin.
jetzt nimmst Du die Funktion suchen. Suchst danach. Die Suche hält an und Du drückst Deine Tastenkombination.
Du kannst natürlich auch die Suche in das makro einbinden.
S.F.T.I. pani „Alle Hyperlinks eines Word-Dokuments in einem Schritt entfernen“
Hi Pani,
alles markieren und kopieren.
Neues Dokument öffnen
Bearbeiten > Inhalten einfügen
unformatiert Unitext auswählen
fertig
pani S.F.T.I. „Hi Pani, alles markieren und kopieren. Neues Dokument öffnen Bearbeiten...“
hi S.F.T.I.
das ist schon klar, aber dabei gehen sämtliche Formatierungen verloren und das soll natürlich nicht sein.
Danke jedenfalls
pani
Uli M pani „Alle Hyperlinks eines Word-Dokuments in einem Schritt entfernen“
Makro, das alle Hyperlinks im akt. Dok entfernt (nicht den Text!):
Sub AlleHyperlinksEntfernen()
Dim oRg As Range, oLink As Hyperlink
Dim I As Integer
For Each oRg In ActiveDocument.StoryRanges
For I = oRg.Hyperlinks.Count To 1 Step -1
oRg.Hyperlinks(I).Delete
Next I
Next oRg
End Sub
Carl5 Uli M „Makro, das alle Hyperlinks im akt. Dok entfernt nicht den Text! : Sub...“
Hallo,
ich habe gerade auch nach dieser Möglichkeit gesucht!
Das funktioniert perfekt. Danke Uli!
Gruß
Carl5
