WCM Forum

WCM Forum (http://www.wcm.at/forum/index.php)
-   Software (http://www.wcm.at/forum/forumdisplay.php?f=5)
-   -   Frage zur Suchen-Funktion in Word (http://www.wcm.at/forum/showthread.php?t=218224)

wolsei 22.06.2007 21:47

Frage zur Suchen-Funktion in Word
 
Hallo liebe Forumsgemeinde !

Ich habe ein kleines delikates Problem mit Word 2003.

Und zwar habe ich einen Text vor mir in dem einiges zitiert wurde. Ich möchte nun, daß Word mir all diese Zitate markiert, damit ich sie vom Format her hervorheben kann.

Das ganze sieht ungefähr so aus:

Textanfang bla bla " Der von Word zu markierende Text " weiterer Text


sprich der hier fett dargestellte Text sol von Word markiert werden.


Nur habe ich keinen blassen Schimmer wie ich Word dazu überreden kann, das für mich zu tun. Könntet ihr mir da weiterhelfen ??

powerman 23.06.2007 12:22

hi,
verwende den Assistenten und Frage nach TEXTFORMATIERUNG =Zitat=Schriftart-Größe-Fett-Hintergrund-Schriftfarbe usw..

boeing2707 23.06.2007 13:12

Word bietet die Funktion "Makro aufzeichnen" an.
Hiermit ist es möglich,alle Eingaben des Nutzers, aufzuzeichnen und später wieder abzuspielen.
Das Makro führt dann alle gespeicherten Aktionen wieder aus.

Du startest also die Makroaufzeichnung.
Dann gibst du über die Suchfunktion den gewünschten Suchstring ein.
Sobald dieser gefunden ist, wird er von Word markiert. Nun änderst du die Schriftart des markierten Bereiches.
Anschließend wird Makroaufzeichnung beendet.

Das untenstehende Beispiel-Makro findet nach dem Aufrufen
den Beispieltext und unterstreicht diesen.
Die Word-Hilfe bietet beim Umgang mit Makros gute Unterstützung.


Sub Beispiel()
'
' Beispiel Makro (Name des Makros)
'
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "Der von Word zu markierende Text"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Font.UnderlineColor = wdColorAutomatic
Selection.Font.Underline = wdUnderlineSingle
End Sub

wolsei 23.06.2007 18:04

Zitat:

Original geschrieben von boeing2707
......

Du startest also die Makroaufzeichnung.
Dann gibst du über die Suchfunktion den gewünschten Suchstring ein.


.....

Genau hier liegt mein Problem: Was muss ich als Suchstring eingeben damit er mir den Text, der mit Anführungszeichen unten beginnt und mit Anführungszeichen oben endet, markiert ?

wolsei 01.07.2007 19:58

Hier die Lösung des Problems:

Bearbeiten | Ersetzen aufrufen, auf die Schaltfläche Erweitern klicken, ein Häckchen bei Platzhalterzeichen verwenden setzen und bei "Suchen nach:" (["])*(["]) eingeben, bei "Ersetzen durch" das Format auswählen, mit welchem die Zitate nun formatiert werden sollen (Schaltfläche Format und dann den Eintrag Zeichen auswählen. Anschließend auf Weitersuchen bzw. Ersetzen oder Alle ersetzen klicken.


funzt einwandfrei.


Alle Zeitangaben in WEZ +2. Es ist jetzt 06:31 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
© 2009 FSL Verlag