Discussion :

[Miss Ti]

Bonjour,
Dans un des formulaires d'Access, un bouton permet, via du code VBA, de créer un document Word qui se pré-remplit à l'aide de signets.
Le document Word qui est modifié automatiquement dépend de paramètres contenus dans une table: selon le type de dossier et l'évènement à signaler via publipostage, le fichier pris en compte ne sera pas la même.
Certains fichiers n'ont pas tous les signets.
Comment détecter si un signet existe dans un document Word?
En gros, mon code donne (version résumé):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim wdapp As Object
Set wdapp = CreateObject("Word.application")
wdapp.Visible = True
wdapp.Documents.Open chemin & resultat
With wdapp.ActiveDocument
    .Bookmarks("type_demande").Range.Text = resultat2
end With

Existe-t-il une ligne de commande à insérer juste avant le .Bookmark pour vérifier ça? Du genre if .Bookmark(...) existe then...

[jean-paul lepetit]

Salut,

Les bookmarks dans word doivent faire partie d'une collection (à vérifier dans l'aide vba de word).
je pense qu'un code du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
dim signet as object
for each signet in wadpp.bookmarks
  if signet.name="type_demande" then
  .....ton code
next signet

devrait faire l'affaire

[Heureux-oli]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub llistesignet()
Dim bm As Bookmark
 
For Each bm In ActiveDocument.Bookmarks
    Debug.Print bm.Name
Next bm
 
End Sub

Une piste pour récupérer le nom des signet d'un document word.