Text in Word markieren

Forumthread: Text in Word markieren
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Text in Word markieren

17.04.2009 18:12:19

Ich habe ein Excel-Makro geschrieben, dass aus Excel einen Text in eine geschlossene Textmarke in einem Word-Dokument schreibt. Der Text besteht aus einem String A, einem Zeilenwechsel und einem String B.
Der Code: WordDoc.Bookmarks("test").Range.Text = A & vbCrLf & B
Das funktioniert ja schon.
Jetzt möchte ich aber noch nach dem Schreiben den Textteil vor dem Zeilenwechsel auswählen (selektieren) um ein Format zuweisen zu können. Hat vielleicht jemand eine Idee wie das geht?

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Text in Word markieren

17.04.2009 19:15:10

Anton
AW: Text in Word markieren

17.04.2009 19:57:55

DR

AW: Text in Word markieren

17.04.2009 19:15:10

Anton

Hallo ,
so?:
WordDoc.Bookmarks("test").Range.Text = A & vbCrLf & B
WordDoc.Bookmarks("test").Select
objWord.Selection.MoveRight Unit:=1, Count:=Len(A), Extend:=1
mfg Anton

AW: Text in Word markieren

17.04.2009 19:57:55

danke, hat nicht ganz funktioniert mit der Selektion, aber hat mich auf die richtige Spur gebracht:
nach WordDoc.Bookmarks("test").Select
zuerst mit WordApp.Selection.Collapse den ausgewählten Bereich auf links vom Text reduziert
und dann mit WordApp.Selection.Expand unit:=wdLine biz zum Zeilenumbruch erweiter
Vielen Dank jedenfalls