Hallo Experten!
Ich habe ein Word-Dokument, das sehr viele Hyperlinks enthält. Wie kann ich die nun schnell und einfach in normalen Text umwandeln (also ohne Link). Ich habe es über Suchen - Ersetzen probiert, aber da wird mir nur das Format (also blaue Schrift und Unterstreichung) ersetzt, nicht aber die Hyperlink-Eigenschaft als solche. Ich bin für jeden Hinweis dankbar, kann auch mit Makros umgehen, nur leider nicht selber schreiben…
Gruß Alex
Ich habe ein Word-Dokument, das sehr viele Hyperlinks enthält.
Wie kann ich die nun schnell und einfach in normalen Text
umwandeln (also ohne Link).
Hallo Alex,
hilft dieses?
http://www.pcwelt.de/start/software_os/tipps_tricks/…
Gruß
Reinhard
1.: [Strg, Ctrl] + [A] (alles markieren)
2.: [Strg, Ctrl] + [Leer, Space] (Zeichenformate löschen)
3.: [Strg, Ctrl] + [Q] (Absatzformate löschen)
So, jetzt ist alles so, wie du es mit deinen Formatvorlagen eingestellt hast, also i.O.
Gruß
Stefan
Hallo ihr beiden!
In Word 2007 funktionieren beide Methoden leider net. Beim Makro, bringt er mir nen Kompilierungsfehler und die andere Methode funktioniert auch net so, wie sie sollte.
Gruß Alex
Hi Alex,
auf meinem PC werden mir in erwähntem Artikel für die Tastekombinationen nur kryptische Zeichen angezeigt. Deshalb wiederhole ich das, was mir biem Lesen Deines Ursprungspost einfiel:
Strg+a für Bearbeiten > Alles markieren
Strg + F9 für Verknüfpung Lösen Felder.
Das wandelt alle Hyperlinks um.
HTH.
Markus
Hi Markus!
- Strg+a für Bearbeiten > Alles markieren
Die kenn ich, klappt auch super
- Strg + F9 für Verknüfpung Lösen Felder.
Naja, fast - es ist Strg + Shift + F9, hab ich grad jetzt herausgefunden.
Danke nochmal für den Tipp, man könnte ja auch F1 drücken *gg*
Gruß Alex
Danke nochmal für den Tipp, man könnte ja auch F1 drücken *gg*
Hallo Alex,
sorry, hatte das was in dem Link steht nicht getestet.
probier mal dieses und berichte bitte:
Sub HypWeg()
Dim H As Hyperlink
For Each H In ThisDocument.Hyperlinks
H.Delete
Next H
End Sub
Bei mir, Word 2000, werden im ersten Durchlauf alle Weblinks umgewandelt in Text, Datielinks bleiben bestehen.
Lasse ich den Code nochmals laufen sind die auch umgewandelt.
Für mich erstmal sehr unerklärlich. Vielleicht müßte man das so angehen:
(ungetestet)
...
Dim H as Integer
For H = ThisDocument.Hyperlinks.Count to 1 Step -1
ThisDocument.Hyperlinks(H).delete
...
Gruß
Reinhard
Hallo Reinhard!
Ich hab jetzt dein Makro getestet, es macht immer noch nicht das was ich möchte. Dann hab ich mal den Makrorecorder gestartet. Herausgekommen ist folgende Zeile
Selection.Fields.Unlink
Was auch immer dieses Fields bedeuten soll, aber es funktioniert so, wie ich das möchte.
Gruß Alex
Hallo Alex!
Gruß
Peter