Problem inserting date

[Anne P.]

Hi,

I am using code to insert text in a bookmark and retain the bookmark after
the text is inserted. It is working for most things, but I can't get it to
work when I am inserting a date. Following is the code I am using:


If ActiveDocument.Bookmarks.Exists("Date") Then
Set bmRange = ActiveDocument.Bookmarks("Date").Range
bmRange = Format(Now, "mmmm d, YYYY")
ActiveDocument.Bookmarks.Add Name:="Date", Range:=bmRange
End If

Any help is appreciated.
Thanks,
Anne P.

 

[Jean-Guy Marcil]

Anne P. was telling us:
Anne P. nous racontait que :

Hi,

I am using code to insert text in a bookmark and retain the bookmark
after the text is inserted. It is working for most things, but I
can't get it to work when I am inserting a date. Following is the
code I am using:

If ActiveDocument.Bookmarks.Exists("Date") Then
Set bmRange = ActiveDocument.Bookmarks("Date").Range
bmRange = Format(Now, "mmmm d, YYYY")
ActiveDocument.Bookmarks.Add Name:="Date", Range:=bmRange
End If

Did you declare bmRange or are you magically instantiating it in the code
you supplied?
If not, you have the following situation:

Set bmRange = ActiveDocument.Bookmarks("Date").Range
sets bmRange as a range object;
but here
bmRange = Format(Now, "mmmm d, YYYY")
resets bmRange as a string.
This means that
ActiveDocument.Bookmarks.Add Name:="Date", Range:=bmRange
generates an error because bmRange is now a string, not a range.

Also, it can be risky to let Word decide what is the default property:

bmRange = Format(Now, "mmmm d, YYYY")

but actually, you mean

bmRange.text = Format(Now, "mmmm d, YYYY")

So, always use an "Option Explicit" statement at the top of the code to
force yourself not to be "sloppy" with objects and variables you declare and
try not to let Word decide on default properties. Your code should belike
this:

'_______________________________________
Dim bmRange As Range

If ActiveDocument.Bookmarks.Exists("Date") Then
Set bmRange = ActiveDocument.Bookmarks("Date").Range
bmRange.Text = Format(Now, "mmmm d, YYYY")
ActiveDocument.Bookmarks.Add Name:="Date", Range:=bmRange
End If
'_______________________________________

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
(e-mail address removed)
Word MVP site: http://www.word.mvps.org