10
Word 2010: Suchen und Ersetzen mit Querverweis
Hallo,
ich bräuchte einen Tipp. Wie kann man im Word 2010 nach einem bestimmten Text über die Funktion »Suchen und Ersetzen« (F5-Taste) suchen und mit Querverweis ersetzen?
Danke!
ich bräuchte einen Tipp. Wie kann man im Word 2010 nach einem bestimmten Text über die Funktion »Suchen und Ersetzen« (F5-Taste) suchen und mit Querverweis ersetzen?
Danke!
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 242479
Url: https://administrator.de/forum/word-2010-suchen-und-ersetzen-mit-querverweis-242479.html
Ausgedruckt am: 12.04.2025 um 12:04 Uhr
10 Kommentare
Neuester Kommentar
Hallo Malika,
könnte man mit einem VBA Makro erledigen (Suchwort: Zeile 4):
Die Parameter für den Querverweis musst du natürlich an deine Gegebenheiten anpassen. Im Beispiel wird die erste Überschrift referenziert.
Tipp: Zeichne dir mit der Makro-Aufzeichnen Funktion den InsertCrossReference Befehl auf so musst du nicht raten welche Parameter du benötigst.
Grüße Uwe
könnte man mit einem VBA Makro erledigen (Suchwort: Zeile 4):
Sub ReplaceTextWithCrossReference()
ActiveDocument.Content.Select
With Selection.Find
.Text = "Suchwort"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
While Selection.Find.Execute
Selection.InsertCrossReference ReferenceType:="Überschrift", ReferenceKind _
:=wdContentText, ReferenceItem:="1", InsertAsHyperlink:=True, _
IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "
Wend
End SubTipp: Zeichne dir mit der Makro-Aufzeichnen Funktion den InsertCrossReference Befehl auf so musst du nicht raten welche Parameter du benötigst.
Grüße Uwe
1
Danke Uwe!
Meine Endversion:
»txt_Firstname« ist der Querverweis als Textmarkenname; »Test-Text« ist das gesuchte Wort.
Leider bei jedem Aufruf muss man die Beiden immer anpassen.
Meine Endversion:
Sub ReplaceTextWithCrossReference()
ActiveDocument.Content.Select
With Selection.Find
.Text = "Test-Text"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
While Selection.Find.Execute
Selection.InsertCrossReference ReferenceType:="Textmarke", ReferenceKind:= _
wdContentText, ReferenceItem:="txt_Firstname", _
InsertAsHyperlink:=True, IncludePosition:=False, SeparateNumbers:=False, _
SeparatorString:=" "
Wend
End Sub»txt_Firstname« ist der Querverweis als Textmarkenname; »Test-Text« ist das gesuchte Wort.
Leider bei jedem Aufruf muss man die Beiden immer anpassen.
auch kein Beinbruch 
. Diese Version übernimmt zusätzlich den aktuell markierten Text im Dokument in die Suchabfragebox, sollte eine Auswahl bestehen.
Das ganze noch mit einem Button versehen, feddich
Grüße Uwe
. Diese Version übernimmt zusätzlich den aktuell markierten Text im Dokument in die Suchabfragebox, sollte eine Auswahl bestehen.Sub ReplaceWithCrossReference()
Dim strDefault, strSuchwort, strTextmarke
If Not Selection Is Nothing Then
strDefault = Selection.Text
End If
strSuchwort = InputBox("Geben sie das Suchwort ein:", "Suchwort", strDefault)
strTextmarke = InputBox("Geben sie die Textmarke ein:", "Textmarke")
If strSuchwort <> "" And strTextmarke <> "" Then
ActiveDocument.Content.Select
With Selection.Find
.Text = strSuchwort
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
While Selection.Find.Execute
Selection.InsertCrossReference ReferenceType:="Textmarke", ReferenceKind _
:=wdContentText, ReferenceItem:=strTextmarke, InsertAsHyperlink:=True, _
IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "
Selection.MoveLeft Unit:=wdWord, Count:=1
Selection.Expand Unit:=wdWord
For Each oField In Selection.Fields
If oField.Type = wdFieldRef Then
scode = oField.Code.Text
If InStr(scode, "Charformat") = 0 Then oField.Code.Text = scode & "\* Charformat"
End If
Next
Selection.Fields.Update
Selection.MoveRight Unit:=wdWord, Count:=1
Wend
End If
End SubGrüße Uwe
1
Ich sehe noch eine Kleinigkeit. Nehmen wir an, dass der Querverweis als Fett markiert ist, dann werden die ersetzten Texte auch Fett. Ich habe probiert in der While-Schleife mit zu lösen aber ohne Erfolg...
Selection.Font.Bold = FalseZitat von @malika:
Ich sehe noch eine Kleinigkeit. Nehmen wir an, dass der Querverweis als Fett markiert ist, dann werden die
ersetzten Texte auch zu lösen aber ohne Erfolg...
so einfach geht das hier leider nicht, ist etwas aufwendiger Ich sehe noch eine Kleinigkeit. Nehmen wir an, dass der Querverweis als Fett markiert ist, dann werden die
ersetzten Texte auch zu lösen aber ohne Erfolg...
, ist oben angepasstZitat von @colinardo:
so einfach geht das hier leider nicht, ist etwas aufwendiger , ist oben angepasst
so einfach geht das hier leider nicht, ist etwas aufwendiger
, ist oben angepasstWow! D. h. in der For-Schleife wird Zeichen für Zeichen auf Charformat umgestellt?! Klasse! In der Beispielen von Word-Makros zeigen die mit dem »Selection.Font.Bold« Objekt...
Zitat von @malika:
Wow! D. h. in der For-Schleife wird Zeichen für Zeichen auf Charformat umgestellt?! Klasse! In der
Beispielen von Word-Makros zeigen die mit dem »Selection.Font.Bold« Objekt...
Nein, nach der Umwandlung in eine CrossReference ist der Range ein Feld das mit der Quelle verbunden ist und in das der spezielle Schalter \* Charformat eingefügt wird - Drück mal ALT-F9 dann siehst du es.Wow! D. h. in der For-Schleife wird Zeichen für Zeichen auf Charformat umgestellt?! Klasse! In der
Beispielen von Word-Makros zeigen die mit dem »Selection.Font.Bold« Objekt...
Könntest du mir bitte noch bei der Auswahlmenü für Bookmarks helfen. Ich habe in der Hilfe nach OneOfN oder Selects gesucht aber nichts gefunden...
Danke!
Danke!
Wie meinen ??
Du willst eine einfachere Auswahl haben für alle vorhandenen Bookmarks ?
Alle Bookmarks kannst du so auflisten:
Die Anzeige in einem Dropdown oder einer ListBox geht dann aber nur mit einem CustomDialog...
Du willst eine einfachere Auswahl haben für alle vorhandenen Bookmarks ?
Alle Bookmarks kannst du so auflisten:
Dim bm As Bookmark, all As String
For Each bm In ActiveDocument.Bookmarks
all = all & bm.Name & vbNewLine
Next
MsgBox all
Ok, vielen Dank!
Ich habe noch ein Problem entdeckt, wenn man die Querverweise mit F9 aktualisiert dann zeigen die ins Nirwana...
Ich habe noch ein Problem entdeckt, wenn man die Querverweise mit F9 aktualisiert dann zeigen die ins Nirwana...
