word 2000 - signet not trouvé?

Bonjour.

il faut indiquer le nom du nsignet entre guillemets:
If odoc.Bookmarks.Exists("signet") Then
évite d'appeler signet un signet ça t'évitera beaucoup d'erreurs.

je viens de faire un essai avec le code ci-dessous et je ne rencontre pas
d'erreur.
Dim W_App As New Word.Application
With W_App
.Visible = True
.Documents.Open ("C:Documents and SettingsRaymondMes
documentsdoc1.doc")
If .ActiveDocument.Bookmarks.Exists("ici") Then
.ActiveDocument.Bookmarks("ICI").Select
.Selection.InsertAfter "Raymond"
End If
If .ActiveDocument.Bookmarks.Exists("signet") Then
.ActiveDocument.Bookmarks("signet").Select
.Selection.InsertAfter "seneque"
End If
.ActiveDocument.SaveAs ("Doc2.Doc")
.Quit
End With
Set W_App = Nothing


--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Alain Bourgeois" <bk332951@skynet.be> a écrit dans le message de news:
428BAA94.2C1AAA96@skynet.be...

Chers tous,


j'utilise word 2000 fr, toutes les mises à jour officeupdate sont
installées.

J'ai une macro qui insère du texte là où se trouve un signet.

Malheureusement, il semble impossible de se positionner sur un signet
d'une zone de texte
(ce signet n'apparait pas dans la liste des signets si le curseur est
situé hors de la zone de texte)


Donc le code:

If odoc.Bookmarks.Exists(signet) Then
Set rrange = odoc.GoTo(wdGoToBookmark, , , signet)
...
End If

provoque une erreur sur Set rrange = odoc.GoTo(wdGoToBookmark, , ,
signet) alors que le signet existe.

Existe-t'il une fonction me permettant de me positionner sur un tel
signet?


Bien à vous,
Alain Bourgeois
bk332951@skynet.be
www.self-mail.com


PS si vous pouviez mettre mon e-mail en bcc de votre réponse , ce serait

sympa.