Mehrere Word-Formeln per Makro 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 />

Hallo Claus,

das funktioniert, habs getestet:

Sub Test()

Dim myStr As String
myStr = Range("A1").FormulaRange("B1").Formula = myStr

End Sub

...gedacht ist das so und funktioniert auch bereits, sofern die Formeln stimmen:

Ich zeichne die Formeln als Makro auf. Die Sicherung der Formeln soll somit als Makro erfolgen.

Dazu benötige ich die Besonderheiten der Verdoppelung von ", Zeilenumbrüche... - wie es eben der Recorder auch macht (...,wenn er es richtig macht bei kürzeren Formeln)

Im Makroablauf füge ich die im Makro hinterlegten Formeln ins Blatt ein und ziehe diese entsprechend in der jeweiligen Spalte herunter, da meine Formeln und Daten sich immer auf die gleiche Zeile beziehen.

Zum Schluss ersetze ich alle Formeln durch Werte - auch mit Hilfe des Makros.

Damit entlaste ich das Excel File wieder vom Formelballast.

Die Formeln sind alle damit zusätzlich gegen Veränderung geschützt, da diese einfach immer auf Knopfdruck per Makro eingefügt und zum Schluss wieder durch Werte ersetzt werden - und das ganz ohne Blattschutz und veränderungssicher.

Wie ich dich verstehe wärs in einem Extra-Blatt zur Sicherung der Formeln einfacher.

Wäre natürlich eine Möglichkeit. Werds testen im Laufe der Woche.

Gruß Matthias

Ich hab nicht so recht eine Idee was Dein Makro da macht, aber da es eins ist:

Klar geht das, Formeln fallen ja nicht vom Himmel, lass es Dein Makro einfach machen. ;-)

Poste mal Dein Makro, mal kucken ob man dann mehr sagen kann.

Andreas.

Hallo, Michael,

vielen Dank für Deine Antwort. Leider löst das mein Problem gar nicht, ich brauche den Word-Code nicht in Outlook, sondern ich muss den formatierten Text aus Word in einen Mail-Body bringen.

Hintergrund ist, dass der Text über die Word-Automation-Schnittstelle aus einer Datenbankanwendung kommt, da die Datenbank bereits sehr umfangreich ist, habe ich verschiedene Berechnungen mit einem Word-Makro, welcher auch über die Schnittstelle angestoßen
wird, erledigt. Bis dahin kann ich mit Outlook nichts anfangen. Wenn ich jetzt per Zwischenablage den Word-Text kopiere und in die Mail mit der Option Einfügen - Ursprüngliche Formatierung beibehalten - einfüge, ist das Ergebnis super, nur soll auch dieser
letzte Schritt per VBA erfolgen, und zwar so, dass die Formatierung mitkommt.

Gruß vom Rhein

Susanne

Gutem Morgen Claus,

ich glaube langsam verstehe ich es. Das Makro bringt mir für eine leere Zeile nichts, da es nichts kopieren kann.

Also meine Zeilen gehen von 16-41 (mit Text, Formeln, Kategorien) in diesem Bereich funktioniert alles super. Keine Probleme.

Dann kommt die Zeilen 42-157 (Formeln, Kategorien), hier erhalte ich bei dem Makro "Laufzeitfehler 1004". Theoretisch benötige ich hier ja nur noch die UID beim benutzen des Makro.

Meine Überschriften gehen von Spalte A bis BQ.

Die neue Zeile hätte ich gerne zwischen 16-157 eingefügt. Mir ist nun bewusst, dass ich das Makro nicht in eine leere Zeile einfügen kann und dass das Schwachsinn ist.

Ich benutze nach wie vor das von dir vorgeschlagene Makro. Wie gesagt es funktioniert in ausgefüllten Zeilen perfekt, aber in Zeilen mit Formeln und Kategorien, wo lediglich die UID fehlt, bekomme ich einen Fehler.

Tut mir leid für meine ungenauen Angaben, wie gesagt ich lerne erst damit umzugehen und vielen dank für deine investierte Zeit.

Mit freundlichen Grüßen

HansPeter