Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Formatvorlage markieren
zurück: Zahl zwischen zwei Zahlen ausschneiden weiter: Makros miteinander verknüpfen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
TimH
Im Profil kannst Du frei den Rang ändern


Verfasst am:
10. Aug 2009, 14:51
Rufname:

Formatvorlage markieren - Formatvorlage markieren

Nach oben
       Version: Office 2007

Hallo

Ich muss einen Text mit einer bestimmten Formatvorlage markieren nun gibt es aber mehrere veränderte Varianten dieser Formatvorlage in meinem Text wie kann ich alle auf einmal markieren?

Hier mein bisheriger Code

Sub Makro2()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

Selection.Find.Style = ActiveDocument.Styles("Standard 3")
Selection.Find.Replacement.Highlight = True

With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Selection.Find.Execute
WordBasic.SelectSimilarFormatting

End Sub
Hubert_R
Gast


Verfasst am:
10. Aug 2009, 21:52
Rufname:


AW: Formatvorlage markieren - AW: Formatvorlage markieren

Nach oben
       Version: Office 2007

Hallo,

dazu verwendet man am besten ein Range-Objekt, um das ganze Dokument zu durchsuchen.

Grüsse Hubert
Code:
Sub Test()
   Dim oRange As Range
   Set oRange = Selection.Range
   ActiveDocument.Range(0, 0).Select
   '
   With Selection.Find
      .ClearFormatting
      .Style = "Standard 3"
      .Text = ""
      .Execute
      '
      While .Found = True
         .Parent.Select
         Selection.Range.HighlightColorIndex = wdYellow
         Options.DefaultHighlightColorIndex = wdAuto
         .Execute
      Wend
   End With
   '
   Selection.Collapse Direction:=wdCollapseEnd
End Sub
TimH
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Aug 2009, 09:31
Rufname:

AW: Formatvorlage markieren - AW: Formatvorlage markieren

Nach oben
       Version: Office 2007

Hallo,

Danke das hat mir schon sehr geholfen
Nun mein letztes Problem hoffe ich, wie kann ich jedoch jetzt den Code verändern das er den Text markiert und nicht farbig hinterlegt

Gruß
Hubert_R
Gast


Verfasst am:
12. Aug 2009, 12:00
Rufname:


AW: Formatvorlage markieren - AW: Formatvorlage markieren

Nach oben
       Version: Office 2007

Hallo,

so geht es ohne Hervorhebung.

Grüsse Hubert
Code:
While .Found = True
     .Parent.Select
      ' evtl. weiterer Code, sonst läuft
      ' das Makro durch bis zur letzten Fundstelle         
      .Execute
Wend


[/code]
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Formatvorlage für Serienbriefe im nachhinein ändern 1 worf 3061 22. Mai 2009, 23:37
charlybrown Formatvorlage für Serienbriefe im nachhinein ändern
Keine neuen Beiträge Word Formate: Text in bestimmter Formatvorlage suchen 2 angoraschaf 3405 14. Mai 2007, 13:38
Werner72 Text in bestimmter Formatvorlage suchen
Keine neuen Beiträge Word Formate: Formatvorlage abändern für viele Absätze in großem Dokument 3 Amitl 692 02. Mai 2007, 22:41
Hübi Formatvorlage abändern für viele Absätze in großem Dokument
Keine neuen Beiträge Word Formate: Automatisches Ausfüllen einer Formatvorlage 3 schoeddl 1503 17. Apr 2007, 21:20
Hübi Automatisches Ausfüllen einer Formatvorlage
Keine neuen Beiträge Word Formate: Formatvorlage nach gültiger DIN 16 entenhausen65 19764 05. Jan 2007, 17:23
entenhausen65 Formatvorlage nach gültiger DIN
Keine neuen Beiträge Word Formate: Formatvorlage neu anwenden (erzwingen) 1 Gerhard2 1633 03. Sep 2006, 14:32
CHF Formatvorlage neu anwenden (erzwingen)
Keine neuen Beiträge Word Formate: Beschriftung Kapitelnr einbeziehen Formatvorlage selfmade 0 Ninivechen 1420 28. Jun 2006, 12:57
Ninivechen Beschriftung Kapitelnr einbeziehen Formatvorlage selfmade
Keine neuen Beiträge Word Formate: Bestimmte Zeilen markieren 0 smash 1295 08. Feb 2006, 10:16
smash Bestimmte Zeilen markieren
Keine neuen Beiträge Word Formate: Austauschen von Formatvorlage 4 Shaft 3650 17. Jan 2006, 12:51
Shaft Austauschen von Formatvorlage
Keine neuen Beiträge Word Formate: Probleme mit Formatvorlage 2 Racle 795 06. Okt 2005, 08:14
Racle Probleme mit Formatvorlage
Keine neuen Beiträge Word Formate: Neue Formatvorlage für Überschriften erstellen 3 Apostilb 19684 14. Sep 2005, 19:49
Lisa Neue Formatvorlage für Überschriften erstellen
Keine neuen Beiträge Word Formate: Beim Markieren + Entfernen eines Texteils wird der Rest form 1 Mathieu 812 16. Jun 2005, 15:17
iso Beim Markieren + Entfernen eines Texteils wird der Rest form
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project