How to get bookmark text

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Word.user - 13 Aug 2007 05:28 GMT

I have a bookmark start, I want to get text, and length of that text next to
it.
When I use
Selection.GoTo What:=wdGoToBookmark, Name:="start"
Set bmrange = Selection.Range
MsgBox (bmrange.Text)

The msgbox shows nothing. This is what the bookmark looks like
IBookmark text

I want to retrieve "Bookmark text" and no of words and length of "Bookmark
text"

Thanks in advance

Reply to this Message

Russ - 13 Aug 2007 08:52 GMT

Word,
After going and selecting
Msgbox Selection.Text
Or
Without going and selecting
ActiveDocument.Bookmarks("start").Range.Text
ActiveDocument.Bookmarks("start").Range.Words.Count
ActiveDocument.Bookmarks("start").Range.Characters.Count

> I have a bookmark start, I want to get text, and length of that text next to
> it.
[quoted text clipped - 10 lines]
>
> Thanks in advance

Signature

Russ

drsmN0SPAMikleAThotmailD0Tcom.INVALID

Reply to this Message

Helmut Weber - 13 Aug 2007 14:36 GMT

Hi,

>This is what the bookmark looks like
>IBookmark text

which is a "placeholder" bookmark
as opposed to an enclosing [bookmark].

The first does not hold any text at all,
though you can assign text to it...

' for a placeholder bookmark
ActiveDocument.Bookmarks("Mark1").Range.Text = "xxx"
MsgBox ActiveDocument.Bookmarks("Mark1").Range.Text ' nothing

see:
http://word.mvps.org/faqs/macrosvba/workwithbookmarkscontent.htm

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Reply to this Message

Klaus Linke - 13 Aug 2007 17:55 GMT

If the empty bookmark is right next to some word, you could get that word
with
ActiveDocument.Bookmarks("Mark").Range.Words(1)

Regards,
Klaus

> Hi,
>
[quoted text clipped - 13 lines]
> see:
> http://word.mvps.org/faqs/macrosvba/workwithbookmarkscontent.htm

Reply to this Message

Helmut Weber - 13 Aug 2007 23:45 GMT

Hi Klaus,

>If the empty bookmark is right next to some word,
>you could get that word with
>ActiveDocument.Bookmarks("Mark").Range.Words(1)

good to know.

Even if the bookmark is within a word,
and also sentences(1), sections(1), paragraphs(1).

One could need it some day.
(Könnte man noch mal brauchen).

What would your translation be?

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Reply to this Message

Klaus Linke - 13 Aug 2007 23:49 GMT

> One could need it some day.
> (Könnte man noch mal brauchen).
>
> What would your translation be?

Might come in handy? Though my school English isn't any better than yours I
think <g>

Klaus

Reply to this Message

Word.user - 14 Aug 2007 02:12 GMT

Hi,
Thanks for your input.

This is what I have:
IStart Bookmark Begins Here

What I want is
[Start Bookmark Begins Here]

> Hi Klaus,
>
[quoted text clipped - 11 lines]
>
> What would your translation be?

Reply to this Message

Klaus Linke - 14 Aug 2007 02:30 GMT

> Hi,
> Thanks for your input.
[quoted text clipped - 4 lines]
> What I want is
> [Start Bookmark Begins Here]

Making use of Helmut's extension, if you want the bookmark to span the
current sentence:

ActiveDocument.Bookmarks.Add _
Name:="start", _
Range:=ActiveDocument.Bookmarks("start").Range.Sentences(1)

or

With ActiveDocument
.Bookmarks.Add _
Name:="Test", _
Range:=.Bookmarks("Test").Range.Paragraphs(1).Range
End With

if it should span the whole paragraph.

In effect, you need to put in a new bookmark with the same name, destroying
the old one in the process.

Greetings,
Klaus

Reply to this Message