Guten Abend,

hiermit versuche ich gerade einen String an den Anfang des aktuellen Absatzes einzufügen:

Code

Selection.StartOf Unit:=wdParagraph, Extend:=wdMove 
Selection.InsertBefore "<-MyPara->" 

Das klappt prima.
Nun gibt es Absätze, in denen am Anfang eine Formel (Standard Formel-Editor von Word2010) steht.
Das Makro setzt den String in die Formel.

Wie schaffe ich es, das der String vor die Formel eingefügt wird?

Bitte um Hilfe
Gruß
Christoph

Vielleicht statt mit
Selection.StartOf Unit:=wdParagraph, Extend:=wdMove
nur den Startpunkt der Auswahl zu verschieben, mal mit
Selection.Paragraphs(1).Range.Select
den ganzen Absatz auswählen?

Hallo Henry,

danke fürs Antworten. Hat leider nicht geklappt.
Der String landet immer in der Formel.

Wenn ich z.B. über die Tastatur zweimal Pos1 drücke, komme ich mit dem Cursor vor die Formel.

SendKeys "{HOME}" ändert auch nichts dran.

Ich muss doch irgendwie an Position vor der Formel drankommen?

Gruß
Christoph

 
Und mit Methode "ausgewählter Absatz", dann zusätzlich noch:

Selection.Collapse Direction:=wdCollapseStart

------------------------
Steht denn VOR diesem (ausgewähltem) Absatz IMMER noch weiterer Text oder KANN der sich auch mal ganz am Anfang des Docs befinden?

Antwort auf [ cwenet ]

…
Wenn ich z.B. über die Tastatur zweimal Pos1 drücke, komme ich mit dem Cursor vor die Formel.…

Ist das identisch (im VBA) zu:
Selection.HomeKey Unit:=wdLine, Count:=2

Aber selbst wenn, springt die Auswahl dann in den Fällen, wo keine Formel am Absatzanfang steht, einfach zwei Zeilen zu hoch?
--------------
Könnte das Problem sich darin begründen, dass am Ende jeder Formel/Equation sich eine Absatzmarke befindet? Dann wäre quasi EIN Absatz mit EINer Formel drin für Word = zwei Absätze?! :-(

ja, vor dem ausgewählten Text sind weitere Absätze; davor und auch danach.
Merkwürdig ist ja, dass ich mich ohne Makro und nur über die Tastatur vor die Formel bewegen kann.

Gruß
Christoph

Irgendwie habe ich es jetzt hinbekommen:

Code

Selection.StartOf Unit:=wdParagraph, Extend:=wdMove 
Selection.HomeKey Unit:=wdLine 
Selection.Font.ColorIndex = wdRed 
Selection.TypeText ("<-MyPara->") 

Danke nochmal Henry, fürs ausprobieren

Schönen Abend
Christoph