Markieren von Text zwischen zwei Textmarken

Antwort erstellen

Smilies
:D :) :( :o :shock: :? 8-) :lol: :x :P :razz: :oops: :cry: :evil: :twisted: :roll: :wink: :!: :?: :idea: :arrow: :| :mrgreen: :badgrin: :doubt:
BBCode ist eingeschaltet
[img] ist eingeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind eingeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Markieren von Text zwischen zwei Textmarken

Re: Markieren von Text zwischen zwei Textmarken

Beitrag von theoS » 30. Jul 2021, 17:05

1. Verwende bitte Code tags.
2. Wenn du die TM nicht dabei haben willst, zähl zu dem range.end einfach 1 dazu, das gleiche mit dem range.start der 2 TM.
Das ist einfache Grundschulmathematik wei ein Range eine einfache Kette von Zeichen ist.

Markieren von Text zwischen zwei Textmarken

Beitrag von damienffm » 29. Jul 2021, 18:58

Hallo,

ich habe folgendes Problem:
Ich möchte den Text zwischen zwei Textmarken markieren. Hierbei sollte die erste Textmarke nicht in der Markierung enthalten sein.
Ich benutze folgende Codes:
1.
Sub TextZwischenZweiTextmarkenMarkieren()
Dim oDoc As Document
Set oDoc = ActiveDocument
If oDoc.Bookmarks.Exists("Textmarke1") And oDoc.Bookmarks.Exists("Textmarke2") Then
oDoc.Range(Start:=oDoc.Bookmarks("Textmarke1").Range.Start, _
End:=oDoc.Bookmarks("Textmarke2").Range.Start).Select
End If
End Sub
2.
Sub RangeZwischenZweiTextmarkenBilden()
Dim oDoc As Document, oRange As Range
Set oDoc = ActiveDocument
If oDoc.Bookmarks.Exists("Textmarke1") And oDoc.Bookmarks.Exists("Textmarke2") Then
Set oRange = oDoc.Range(Start:=oDoc.Bookmarks("Textmarke1").Range.Start, _
End:=oDoc.Bookmarks("Textmarke2").Range.Start)
oRange.Select
End If
End Sub

Beide markieren von Anfang TM1 bis Anfang TM2. Gibt es eine Möglichkeit, die Markierung vom ENDE plus 1 Zeichen der TM1 bis Anfang TM2 durchzuführen?

Vielen Dank für eure Hilfe.

Alexander

Nach oben

cron