Markieren von Text zwischen zwei Textmarken

Moderator: ModerationP

Markieren von Text zwischen zwei Textmarken

Beitragvon 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
damienffm
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 31
Registriert: 29. Apr 2020, 08:29
Wohnort: Frankfurt am Main

Re: Markieren von Text zwischen zwei Textmarken

Beitragvon 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.
theo s.
Benutzeravatar
theoS
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 5733
Registriert: 19. Apr 2008, 00:14


Zurück zu Word Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 14 Gäste