Office: (Office 365) Suchen/Ersetzen mit VBA: Windows-Nachfrage unterdrücken

Hallo zusammen,

ich habe folgenden Code erstellt, um das immer wieder in meinen Feldfunktionen auftauchende \*Mergeformat zu entfernen, da es die Formatierung zerschießt:

ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
Selection.WholeStory
Selection.Find.Replacement.ClearFormatting
With Selection.Find

.Text = "\* MERGEFORMAT"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False​

End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes

Funktioniert zwar, aber am Ende kommt immer die nervige Windows-Nachfrage:

Es wurden 2 Ersetzungen vorgenommen.
Möchten Sie den Suchvorgang am Anfang fortsetzen?
Schaltflächen: Ja Nein

Kann ich diese Abfrage irgendwie unterdrücken? Die Antwort soll immer "Nein" sein.

Danke und Gruß

luftgetrocknet

 

Hallo luft,

das hast du doch hier
.Wrap = wdFindAsk
selbst bestellt. Lass das weg.

Vielleicht ist es ganz nützlich, sich die Parameter des Find-Objekts anzusehen, bevor man es anwendet, z.B. hier:Find-Objekt (Word)

Was mich interessieren würde: Was bedeutet "zerschießt" für dich? Eine beliebte, aber nichtssagende Metapher. Es wundert mich, denn mergeformat dient doch gerade dazu, die Formatierung beim Aktualisieren beizubehalten. Vielleicht gibts eine einfache Lösung, ohne dass nachträglich ein Makro ran muss.

 

Lieber Gerhard H,

ich danke dir für deine Geduld im Umgang mit dummen Fragen. Du hast natürlich Recht! Dennoch kann ich dir versichern, dass ich im Vorfeld versucht habe, etwas herauszufinden, auch über die Microsoft-Seite. Leider ist es für mich schwierig, da ich noch nicht einmal auf die Idee gekommen bin, dass ich im Find-Objekt nachgucken muss. Und selbst nach dem Lesen der von dir verlinkten Seite wäre mir bzgl. meines Problems immer noch kein Licht aufgegangen. Aber durch deinen Hinweis habe ich jetzt schon wieder ein bisschen mehr verstanden und hoffe beim nächsten Mal erfolgreicher zu sein

Das mergeformat-Problem stellt sich wie folgt dar:

In der ersten Spalte meiner Tabelle (s. Anlage) wird die Tätigkeitsbeschreibung mit INCLUDETEXT aus einer anderen Datei geholt. Wenn ich da mergeformat drin lasse, passiert es manchmal (nicht immer), dass die Formatierung aus der Originaldatei nicht übernommen wird. Lösche ich dann das mergeformat und aktualisiere erneut, stimmt es wieder. Deshalb bin ich bei der Aktualisierung dazu übergegangen, vorher in allen Feldern das mergeformat zu entfernen. Denn mit dem einmaligen Löschen ist es nicht getan. Sobald ich in einer Zeile die Formatierung anpasse, auch wenn ich dies nur in den Spalten 2 oder 3 mache, wird in Spalte 1 das mergeformat wieder hinzugefügt. Warum das passiert weiß ich auch nicht.

Für einen Tipp zu einer schlankeren Vorgehensweise wäre ich dankbar.

Viele Grüße

luftgetrocknet

 

Hallo Luft,

ich geb zu, dass die Microsoft-Hilfetexte für Neueinsteiger sich oft kryptisch und sehr komprimiert anfühlen. Aber meistens hast du Glück im Netz und ein anderer freundlicher Mensch erklärt die Sache ausführlicher.

Wenn du nicht direkt mit dem Begriff fündig wirst, ist die Regel so:
wo ein Punkt vor dem Begriff steht ( z.B. .Wrap), findest du irgendwo oben drüber im Code das zugehörige Objekt in einer With-Anweisung:

With Activedocument.Range.Find

Das letztere (Find) ist dasjenige Objekt, von dem Wrap eine Eigenschaft oder Methode ist. und schon weißt du, wo du suchen musst. Nämlich: Wovon ist .find eine Methode oder Eigenschaft?

Zum mergeformat-Schalter

Wenn ich das IncludeText-Feld händisch erstelle (mittels F9) wird kein mergeformat reingeschrieben.
Erstelle ich es per Registerkarte Einfügen-Feld, findet sich dort im Dialogfeld eine Option: Formatierung bei Aktualisierung beibehalten. Die ist dann dran schuld.

 

Hallo Gerhard,

vielen Dank für deine Hinweise!

Gruß luftgetrocknet