Thema Datum  Von Nutzer Rating
Antwort
22.01.2025 21:01:38 JoWe
Solved
22.01.2025 21:35:36 ralf_b
NotSolved
22.01.2025 21:57:56 Gast68680
NotSolved
Blau Makro zur Umwandlung von Text in Formel
 22.01.2025 23:18:00 ralf_b
*****
Solved
23.01.2025 10:02:00 Gast72761
***
Solved
22.01.2025 21:36:35 Gast7777
NotSolved
22.01.2025 22:02:17 Gast7677
Solved
25.01.2025 14:33:30 JoWE
Solved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
22.01.2025 23:18:00		 Views:
132		 Rating:
     
Antwort:
 Nein
Thema:
Makro zur Umwandlung von Text in Formel

du musst schon dazu sagen das es sich um Word handelt. 

Sub ConvertTextToOMathFormula()
    Dim startText As String
    Dim currentRange As Range
    Dim mathRange As Range


    ' Aktuelle Cursorposition ermitteln
    Set currentRange = Selection.Paragraphs(1).Range

    ' Den Text des Absatzes, in dem sich der Cursor befindet, holen
    startText = Trim(Split(currentRange.Text, vbCr)(0)) ' Nur den Text der aktuellen Zeile

    ' Entferne den alten Text und bereite die Formel vor
    currentRange.Text = startText

    ' Definiere den Bereich für die mathematische Formel
    Set mathRange = currentRange ' Nutze das erste Wort als Formel
    Set mathRange = Selection.Range.OMaths.Add(mathRange)

    ' Formel anwenden
    mathRange.OMaths(1).BuildUp

    ' Absatz linksbündig ausrichten
    mathRange.OMaths(1).Justification = wdOMathJcLeft
  
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.01.2025 21:01:38 JoWe
Solved
22.01.2025 21:35:36 ralf_b
NotSolved
22.01.2025 21:57:56 Gast68680
NotSolved
Blau Makro zur Umwandlung von Text in Formel
 22.01.2025 23:18:00 ralf_b
*****
Solved
23.01.2025 10:02:00 Gast72761
***
Solved
22.01.2025 21:36:35 Gast7777
NotSolved
22.01.2025 22:02:17 Gast7677
Solved
25.01.2025 14:33:30 JoWE
Solved