So erstellen Sie einen regulären Ausdruck zum Suchen / Ersetzen in Word 2010

Ich habe nur begrenzte Erfahrung mit grundlegendem JavaScript-Regex, mit dem ich einige Benutzerdateneinträge manipuliert habe. Jetzt wurde ich gefragt, ob ich MS Word 2010-Dokumente manipulieren soll.

Insbesondere erhalten meine Benutzer eine lange numerische Liste der Daten als solche:

1. blah blah 'car' blah blah
2. blah blah 'truck' blah blah
3. blah blah 'boat' blah blah

Dies ist ein unformatiertes, einfaches Word-Dokument. Sie möchten nach jeder Ziffer eine formatierte Überschrift, basierend auf dem Artikel in einfachen Anführungszeichen, wie folgt:

1. CAR: blah blah 'car' blah blah
2. TRUCK: blah blah 'truck' blah blah
3. BOAT: blah blah 'boat' blah blah

Sie haben derzeit Schreibkräfte, die diese Änderungen manuell vornehmen (manchmal mit Fehlern). Mit Javascript / jQuery könnte ich Code schreiben, um diese Daten zu erfassen, nach Wörtern in Anführungszeichen zu suchen, die nächstgelegene Zahl vor dem Treffer zu finden und nach dem Zeitraum eine All-CAPS-Version davon einzufügen.

Ich habe jedoch nicht viel Erfahrung mit ähnlichen Funktionen in Word. Kann dies über ein Makro oder eine Art Skript erfolgen? Kann ich meinen Javascript / jQuery-Code schreiben und irgendwie in einer Word-Instanz ausführen lassen?

Danke für die Anleitung!

Ja! Microsoft Office VBA unterstützt die native Suche nach regulären Ausdrücken. Sie müssen "Microsoft VBScript Regular Expressions 5.5" als Referenz im VBA-Editor für jeden hinzufügen .docm, .xlsmusw. Datei, in die Sie den Regex-Code einfügen möchten:

Das meiste Objektmodell für dieses Regex-Modul befindet sich auf MSDN Hier . Eine Sache, die zu fehlen scheint, ist die MultiLine Rahmen.

Sie verwenden es wie folgt:

• Instanziiere ein neues Regex-Objekt mit Dim rx as New RegExp
• Stellen Sie die rx.Global, rx.MultiLine, und rx.IgnoreCase Fahnen wie gewünscht
• Definieren Sie das Muster, indem Sie die entsprechende Musterzeichenfolge zuweisen rx.Pattern
• Wenn Sie wissen möchten, ob etwas mit dem regulären Ausdruck übereinstimmt, verwenden Sie rx.Test(str), was zurückkehrt True oder False passend
• Berufung rx.Execute(str) gibt a zurück MatchCollection Objekt, das sich wie ein nullbasiertes eindimensionales Array von null oder mehr verhält Match Objekte
• Match Objekte belichten die FirstIndex, Length, Value, und SubMatches Eigenschaften.
  • FirstIndex ist der auf Null basierende Index des ersten Zeichens der Position in str bei dem die Übereinstimmung gefunden wurde
  • Length ist die Länge des übereinstimmenden Teils von str
  • Value ist das Ergebnis der übereinstimmenden Zeichenfolge
  • SubMatches ist ein nullbasiertes Array von Sub-Matched-Gruppen innerhalb des Gesamtspiels
    • Leider unterstützt Office VBA regex keine benannten Gruppen wie z. B. Python. Daher kann es einige Versuche dauern, den Gruppenindex mit dem gewünschten Teil des Musters abzugleichen

Ich glaube nicht, dass es einen Weg gibt, a sed Replace-in-Place-Vorgang im Stil einer reinen Suchfunktion. Es ist jedoch einfach genug, das umgebende VBA zu verwenden, um die Ergebnisse nach Ihren Wünschen zu bearbeiten.

Wenn es sich nur um Klartext im Word-Dokument handelt und es nicht sehr groß ist und Sie mit JQuery vertraut sind, können Sie eine einfache Site erstellen, auf der sie das Word-Dokument kopieren / einfügen und die erforderlichen Änderungen vornehmen und das transformierte Wort herunterladen können Dokumentieren Sie den gewünschten Text oder geben Sie ihn aus. Es hängt wirklich von mehr Details Ihrer Situation ab, um zu sagen, ob dies eine gute Lösung ist.

Das Makro könnte wahrscheinlich auch erstellt werden, es könnte jedoch schwierig sein, es für Benutzer bereitzustellen, je nachdem, wie viele Benutzer Sie hatten.

Falls Sie nicht VBA- oder Python-fähig sind und die @ hBy2Py-Antwortidee nicht zu Ihrer Kompetenz passt, versuchen Sie es mit Google Sheets / Excel, indem Sie Ihren Algorithmus implementieren:

1. upload = unformatiertes, einfaches Wort = Textdokument in GSheet importieren. Angenommen, Ihre Liste befindet sich in Spalte A.
2. Schreiben Sie in Spalte B eine verschachtelte Formel für alle Spalten, indem Sie REGEXEXTRACT für ein Wort in Anführungszeichen verwenden und dieses Wort in Großbuchstaben umwandeln =ARRAYFORMULA(UPPER(REGEXEXTRACT(A:A;"\'([a-z]+)")))
3. ... oder machen Sie separate Spalte C machen dieses Wort in Großbuchstaben: =UPPER(B:B)
4. Kombinieren Sie in Spalte C (oder D) die neue Liste mit dem CAPS-Wort =ARRAYFORMULA(REGEXREPLACE(A:A;"\.(\s)";". "&B:B&": "))

TLDR:

=ARRAYFORMULA(REGEXREPLACE(A:A;"\.(\s)";". "&UPPER(REGEXEXTRACT(A:A;"\'([a-z]+)"))&": "))

Eine andere Problemumgehung könnte die hier beschriebene Lösung sein: Suchen und Ersetzen in Notepad ++ mit Wildcards / Regex