Word-Formeln per Makro automatisch in Text konvertieren

Hallo,
<br />schau dir den Code in folgendem Artikel an, das dürfte in die von dir gewünschte Richtung gehen:
<br />https://www.codeproject.com/Tips/1378034/Macro-to-Change-the-Color-of-all-Equations-in-a-Wo
<br />

Dim Eq As OMath
For Each Eq In ActiveDocument.OMaths
...
Next

Viele Grüße
<br />Lisa
<br />

Wenn Du den nächsten Text einfügst, bringt der natürlich wieder Absatzmarken mit. Dann füg doch erst alles ein und mach den Suchlauf zum Schluss. Automatische Entfernung von Steuerzeichen beim Einfügen gibt's bestenfalls per Makro.

Gruß

G. O.

Hallo Claus,

natürlich hast du recht. Meine WENN-Formel ginge auch einfacher mit A2=X2, war aber auch ein nur ein (zugegeben unglückliches) Beispiel für die vielen WENN-Formeln, die ich in Zeile 2 habe.

Natürlich könnte ich alle WENN-Formeln auch in einem Makro effektiver abbilden, wie du hier demonstriert hast.



Allerdings verhält es sich etwas anders: Die Wenn-Formeln sollen für alle offen gelegt und nachvollziehbar bleiben. Insbesondere, da sich immer wieder an denen etwas ändert.

Und das noch verstärkt:

Anstelle der Zellbezeichnung von z.B. "C2" soll jetzt der Zellnamen z.B. "Materialmenge" in der entsprechenden WENN Formel stehen. "Materialmenge" wurde im Beispiel dabei per Namensmanager für die ganze Spalte C manuell festgelegt. Genau so alle anderen
Spalten mit den passenden Begriffen.

Der gleiche Zellnamen gilt also in meinem Fall immer für eine ganze Spalte.



Lösung, die ich mal selbst überlegt habe:

Makro aufzeichnen durch

- Zeile 2 komplett markieren

- Suche und ersetzte in Formeln: "C2" durch Zellnamen "Materialmenge"

- Suche und ersetzte in Formeln: "X2" durch Zellnamen "Höchstbestand"

usw. bis ich alle Spalten habe.

- Zum Schluss die geänderten Formeln automatisch herunter ziehen bis zur letzten Zeile der Tabelle.



Eleganter wäre, wenn das Makro automatisch aus den manuell festgelegten Begriffen im Namensmanager gleich den passenden Ersetzungsbegriff für die Spalte heraus sucht und die Begriffe in den Formeln auf Knopfdruck mit dem dann besser lesbaren Namen aktualisiert.

Dann könnte ich die WENN-Formeln weiter einfach "normal" mit A2, B2... programmieren und zum Schluss auf Knopfdruck A2, B2...in lesbare Namen übersetzen.

Wenn ich mir das so überlege...das wäre dann überhaupt das aller-coolste!

ok, vielen Danke.

ich denke auch das es wahrscheinlich nur über Suche mit Regulären Ausdrücken oder Makro möglich sein wird.

Schade die Sucheingabe sollte für normale User in einer Firma auch nutzbar sein.

Schön wär z.B. wenn die Word Suche nach exakt dem Text (also in Anführungszeichen) "zzgl. der örtlichen Kurtaxe"

alle non-printing character bei Leerstellen im Hintergrund per RegExp. automatisch matchen würdeund es dann gefunden würde.

oder so ähnlich

Hallo,

welche Version von Microsoft Word wird verwendet?

--

Mit freundlichen Grüßen / With best regards

[Microsoft MVP Word]

Es erfolgt keine Beantwortung von Supportanfragen per persönlicher E-Mail.

http://support.microsoft.com

"medwedew" schrieb im Newsbeitrag L:
news:f4d58afc-5bac-470e-a115-ac92f7c697f0...
Hallo,

ich schreibe gerade eine für mich wichtige Arbeit mit Word, wo ich viele mathematische FORMELN EINFÜGEN muss. Ich möchte dabei jedoch dass die Formeln ALLE KURSIV sind und eine GRÖßEREN SCHRIFTGRAD besitzen.

Wie kann ich das so einstellen, dass das automatisch passiert? Ich muss hunderte Formeln schreiben, was bereits sehr viel Zeit in Anspruch nimmt, dabei muss ich zusätzlich ständig die Schriftartgröße verändern und anschließend beim normalen Text wieder zurück
stellen. Das bremmst die Arbeit enorm!

Zusätzliches Problem dabei:

Schon zum zweiten mal hat Word einfach so, ohne dass ich den Grund dafür erkennen konnte, die Schriftart ALLER FORMELN dem restlichen Text angeglichen! Ich muss also zum zweiten mal hunderte Formeln einzeln markieren und einzeln den Schriftgrad ändern und sie
wieder kursiv machen. Das nimmt Stunden in Anspruch. Eine effektive Arbeit ist so nicht möglich.

Bitte helfen sie mir!

Danke vielmals!