How to insert text before bookmark ?

vince692 · #1 05-19-2016, 03:23 AM

Hi,

Here is what i found :

Code:

ActiveDocument.Bookmarks("MybookmarkName").Range.InsertBefore ("toto")

"toto" is inserted before (at the start of) my bookmark.
The function i am looking for is to write before the bookmark (meaning out of bookmark range).

Any hints ?
BR,

Vincent

gmayor · #2 05-19-2016, 03:48 AM

It is more useful to write IN the bookmark, which enables the content to be changed, for which you can look at the FillBM function on my web site.

The code you quote

Code:

ActiveDocument.Bookmarks("MybookmarkName").Range.InsertBefore "toto"

will write before the named bookmark 'MybookmarkName', the text 'toto' What other hints do you require?

vince692 · #3 05-19-2016, 03:55 AM

Indeed it is usefull to write IN the bookmark but it is not what i am seeking for today.

I want to add a text BEFORE the bookmark, no link between them.
Any hints ?

gmayor · #4 05-19-2016, 04:04 AM

As I asked, what hints do you want? The code you posted will do that. I merely removed the brackets which were superfluous.

vince692 · #5 05-19-2016, 04:34 AM

When you call my code here is the result :

[totoMyTextInsideMyBookmark]

I want :

toto[MyTextInsideMyBookmark]

I hope my problem appears now

gmayor · #6 05-19-2016, 05:29 AM

OK I see what you mean. The following should address it.

Code:

Dim oRng As Range
Dim oOriginal As Range
    Set oOriginal = ActiveDocument.Bookmarks("MybookmarkName").Range
    Set oRng = ActiveDocument.Bookmarks("MybookmarkName").Range
    oRng.Collapse 1
    oRng.Text = "toto"
    oOriginal.start = oRng.End
    oOriginal.Bookmarks.Add "MybookmarkName"

or alternatively

Code:

Dim oRng As Range
Dim oOriginal As Range
Dim sText As String: sText = "toto"
    Set oRng = ActiveDocument.Bookmarks("MybookmarkName").Range
    oRng.InsertBefore sText
    oRng.MoveStart Count:=Len(sText)
    oRng.Bookmarks.Add "MybookmarkName"

vince692 · #7 05-19-2016, 05:44 AM

OMFG you are too strong. Your help is very much apreciated

This topic is solved.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Replicating Insert Hyperlink-Bookmark function	Marrick13	Word VBA	0	02-05-2016 01:27 PM
Is there anyway I can insert an easy bookmark in word?	BayhDole	Word	2	07-21-2015 08:43 PM
Open header to insert text into bookmark	Amapola188	Word VBA	3	07-12-2012 05:16 PM
Word 2003 - IncludeText Does Not Include Bookmark Text if in a Form Text Control	skarden	Word	1	12-12-2011 10:39 PM
VBA to insert Bookmark	rockwellsba	Word VBA	2	05-31-2011 01:07 AM