Office: (Office 365) Suche nach Formatvorlagen

Hallo,
ich möchte in Word nach bestimmten FVs suchen. Im Suchdialog gibt es dazu leider keine direkte Eingabemöglichkeit und ich muss von dort über das Dialogfenster "Formatvorlage suchen" gehen. Das ist aber sehr klein und in der Größe nicht veränderbar, was die Auswahl sehr umständlich macht. Leider listet Wort in diesem Mini-Fenster scheinbar alle FVs, auch wenn sie nicht verwendet werden. Kann man Word so einstellen, dass in dem Dialog wenigstens nur die verwendeten FVs angezeigt werden?
Noch cooler wäre ein Weg, bei dem man Word sagen kann: Öffne den Suchdialog mit genau der FV der aktuellen Curserposition.
Viele Grüße
Frank

 

Wenn Du einen mit einer bestimmten FV formatierten Text suchst, füllt Du in der Suchmaske nichts aus, sondern wählst mit Format / Formatvorlage die gewünschte FV aus.
Gruß
Burkhard

 

Hallo Frank,

ich hab dich so verstanden, dass dir der Weg über die Liste im Dialogfeld Formatvorlage suchen zu mühsam ist. Hier ein Makro, welches dir die manuelle Auswahl erspart und deinen noch cooleren Weg gleich miterledigt:

Code:

Sub markierDieFV()
Dim fvName As String, fvBereich As Range
Dim highFarbe As Variant

'voreingestellte Highlight-Farbe bestimmen:
highFarbe = Options.DefaultHighlightColorIndex

'Highlight-Farbe auf Hellgrün stellen:
Options.DefaultHighlightColorIndex = wdBrightGreen

'Formatvorlage bestimmen, in der die Schreibmarke steht:
fvName = Selection.Style

    'alle Textbereiche hervorheben, die mit dieser Formatvorlage formatiert sind:
    With ActiveDocument.Range.Find
        .Style = fvName
        .Replacement.Highlight = True

        .Execute Replace:=wdReplaceAll
    End With

'Auf Ursprungsfarbe zurücksetzen
Options.DefaultHighlightColorIndex = highFarbe
End Sub

 

ja, dann erscheint das Dialogfenster "Formatvorlage suchen". Darauf bezog sich meine Aussage "Das ist aber sehr klein und in der Größe nicht veränderbar, was die Auswahl sehr umständlich macht. Leider listet Wort in diesem Mini-Fenster scheinbar alle FVs, auch wenn sie nicht verwendet werden. Kann man Word so einstellen, dass in dem Dialog wenigstens nur die verwendeten FVs angezeigt werden?"
Viele Grüße
Frank

 

Ja, ganz genau. Das Fenster ist klein, nicht vergrößerbar und man muss ein sehr lange FV-Liste durchscrollen, um die gesuchte zu finden, weil man den Namen nicht direkt eingeben kann.
Die optimale Makro-Lösung wäre: Schreibe den Namen der FV der aktuellen Curserposition in das Dialogfenster der erweiterten Suche und lasse das Dialogfenster geöffnet. Dann kann man nämlich von dort aus direkt eine Fundstelle nach der anderen "anspringen" und ggf. durch eine andere FV ersetzen.
Ich glaube, dass dein Code schon genau die richtige Syntax hat und deshalb habe ich daran herummanipuliert - allerdings erfolglos.
Viele Grüße
Frank

 

Ach, dieses Fenster meinst Du. Ok, es ist klein, aber es zeigt die FV so an wie Du sie mit FV verwalten und Optionen unten im FV-Panel organisiert hast.
Gruß
Burkhard

 

Das funktioniert bei mir leider nicht. Es werden mir dort weiterhin sehr viele "eingebaute FVs" (Anrede, Abbildungsverzeichnis...) gezeigt, die ich im Dokument die ich im Doc definitv nicht verwende. Auch eine Suche nach diesen FVs bestätigt das - es wird nichts gefunden.
Im FV-Panel funktioniert die Sache hingegen. Reduziere ich dort auf die "nur benutzten" sehe ich auch tatsächlich nur diese.
Viele Grüße
Frank

 

Kannst das Ding ja mal probieren hier.

 

Ich hab auch eins.

 

vielen Dank für deine Mühe. Das Makro macht genau das, was es soll. Ich habe nur eine Weile gebraucht, überhaupt den Code zu finden, weil ich mit "UserForm" noch nie etwas zu tun hatte. Die nächste Herausforderung wird dann sein, die UserForm und den Aufruf dazu (Sub userFormRufer()) überhaupt in meine normal.dotm zu bekommen... . Mein erster Versuch ist da schon gescheitert, vermutlich weil mir das Verständnis für die ganze Konstruktion (Private Subs, ufoShow ....) einfach fehlt. Ich probiere weiter und wenn es gar nicht klappt, melde ich mich noch einmal.
Da ihr beide den Weg über die UserForm gewählt habt, vermute ich mal, dass meine ursprüngliche Idee:
1. Rufe Dialog erweiterte Suche auf
2. Trage die FV der aktuellen Curser-Position bei "Format" ein
3. Beende Makro und lass das Suchfenster offen
gar nicht möglich ist? Dieser Weg wäre nämlich am einfachsten, um auch andere mit dieser Lösung zu beglücken... .
Viele Grüße
Frank

 

Also, das erste war schon mal, dass ich dir nicht gesagt hab, dass das Dok eine Schaltfläche in der Schnellstartleiste hat, die man drückt und schon geht die UFO auf.
Gut, eine UFO ist aber auch nicht so dramatisch zu exportieren.
Um das Ding zu starten brauchst du das Modul. Die UFO und das Modul ziehst du einfach in deine Normal mit Drag&Drop. Also kein Drama.
Um das Makro dann in allen Dokumenten zu starten legst du dir eine Schaltfläche in der Schnellstartleiste an. Dort wählst du bei "Befehle auswählen" auf der linken Seite die Makros aus, dann schiebst du den Eintrag Normal.ufoShow.userFormRufer nach rechts rüber.
Schon kannst du das nutzen.
In der UFO ist dann das Makro drin das die FV ausliest und einträgt, das zweite Makro ruft dann die erweiterte Suche auf, nur halt ohne den Dialog.
Da ich das Ding ein wenig schlampig programmiert hab, kannst du die Suche dann auch so weiternutzen. Die FV wird nämlich durch einmaligen Aufruf in die Suchmaske eingetragen und bleibt so lange bis du eine andere mit der Schaltfläche einliest - oder das manuell zurücksetzt bzw. einträgst.

 

ebenfalls ganz herzlichen Dank an dich. Bei deiner Datei waren die Sicherheitsabfragen von Word gefühlt noch mehr - aber irgendwann konnte ich es öffnen. Du hast es ja gleich ganz komfortabel mit eigenem Icon gemacht! Murphys law sorgte dann dafür, dass ich das Icon nicht sehen konnte, weil meine Quickstart Leiste schon voll ist. Zusätzlich hatte ich auch noch das Lupensymbol bereits anderweitig verwendet und dachte dann, deines hätte meines überschrieben.... . Am Ende hat es dann geklappt...
Ein kleiner Haken ist noch, dass das Feld "Gewünschte Formatvorlage" einen Eintrag erfordert. In der Regel will ich die FVs ja gar nicht wechseln sondern ich möchte die nur der Reihe nach im Doc finden ("anspringen"). Die einfachste Lösung wäre, wenn man "Gewünschte Formatvorlage" einfach freilassen kann und dann automatisch mit jedem Klick zum nächsten gesprungen wird.
Auch hier stehe ich noch vor dem selben Problem wie o.g. : Ich habe noch nie etwas mit Userforms und der ganzen Konstruktion zu tun gehabt und keine Ahnung, wie ich alles korrekt in die normal.dotm übertragen kann. Jetzt probiere ich dazu die Anleitung von czil ...
Viele Grüße
Frank

 

ah, ok, habe ich gar nicht gesehen, weil bei mir der Platz im Schnellstart schon ganz ausgereizt ist...

hat funktioniert! Ich bin da bei solchen Aktionen, die ich noch nie gemacht habe, immer sehr vorsichtig. Wenn ich mir die Normal.dotm irgendwie versehentlich unbemerkt zerschießen würde, wäre das übel.

ah, das ist ja ein wunderbarer Seiten-Effekt. Wenn ich dann noch die erweiterte Suche oder den Wechsel-Dialog aufrufe, habe ich nämlich die betreffende FV schon direkt eingetragen!
Deine Testdatei funktioniert bei mir nicht, wenn man mit dem Curser an den Dateianfang geht. Das Makro erkennt zwar korrekt die FV "Standard" und den ersten Treffer - sucht dann aber nicht weiter. Steht der Curser nach "Es wurden keine Einträge für das Inhaltsverzeichnis gefunden." funktioniert alles prima! Das war nur fyi - für mich ist es super und nochmal vielen Dank für deine Mühe!
Eigentlich braucht das jeder Word-Nutzer, der gelegentlich mal nach Formatvorlagen sucht. Alle sollten sich freuen, sich nicht durch das überladene Mini-Auswahlfenster quälen müssen. (Das war ein Satz extra für die Suma-Spider...:-)
Viele Grüße
Frank

 

Hallo Frank,

noch ein paar Bemerkungen und Fragen von mir:

deinen ursprünglicher Wunsch, mit dem Original-Dialogfeld zu arbeiten, hab ich deshalb nicht weiterverfolgt, weil es zwar einfach ist, das Dialogfeld per VBA zu öffnen, aber ich keine Eigenschaften oder Methoden gefunden habe, es weiter zu bearbeiten. Es sei denn mit einer Reihe von wackeligen SendKeys-Befehlen (die ich nicht versucht habe).

Einen Rückbau meiner Variante könnte ich ohne weiteres bewerkstelligen; raus käme dann in etwa das selbe wie bei der czil'schen Variante, die ja tut, was gewünscht war, also lass ich es.

Welche Sicherheitsabfragen gibts denn bei meiner Variante? Bei mir gibts gar keine, was vermutlich daran liegt, dass ich das Dokument an einem sog. vertrauenswürdigen Speicherort abgelegt habe. Das wäre zu empfehlen.

In dem Zusammenhang hab ich die Frage, wieso du den Makroaufruf in deine normal.dotm verlagern willst. Denn alles, was in deiner normal.dotm liegt, ist nur für deinen eigenen Rechner verfügbar, und mir schien, als hätte ich herausgelesen, dass auch andere Leute an anderen Rechnern von dem Vorhaben profitieren sollten. Dann wäre meiner Meinung nach der Königsweg, das Dokument als Vorlage (*.dotm) an einem Ort abzuspeichern, auf den alle Berechtigten Zugriff haben (der müsste natürlich ebenfalls als vertrauenswürdig bestimmt werden. Dann könntest du den Makroaufruf per Schnellzugriffsleiste so belassen, wie er ist.

 

Es gibt ja auch noch die Möglichkeit eine Schaltfläche in den Ribbon zu legen. Muss man sich halt einen eigenen Bereich dafür drin anlegen

Besser ist's, wenn man keine Ahnung hat. ;)
Aber: Auch hier ist Vorsicht immer die Mutter der Porzellankiste: Mach eine Kopie der Normal.dotm. Hab ich immer wieder mal gemacht. (oder sicher dir mindestens die Einstellungen der Normal)

Manchmal ist quick-and-dirty gar nicht so schlecht. ;o) War aber Zufall, besserer Stil wäre es, am Ende, also im OK-Button, die Suche wieder zurückzusetzen. Aber wenn du's so brauchen kannst.

Kann schon sein, das Ding war mal für was anderes gedacht und das Feld ist ein Überbleibsel davon. War ja nur zum Testen.