Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Word > VBA Word
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 04/10/2011, 10h55   #1
Invité de passage
 
Inscription : octobre 2003
Messages : 2
Détails du profil
Informations forums :
Inscription : octobre 2003
Messages : 2
Points : 1
Points : 1
Par défaut Détection présence signet dans Word

Bonjour,
Je dois boucler sur des documents Word pour y insérer des données.
Les anciens fichiers .doc ne comportant pas tous les signets nécessaires, comment tester l'existence du signet avant d'exécuter le transfert de la donnée ?
Merci d'avance pour votre aide.
Jiveday est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 04/10/2011, 13h19   #2
Invité de passage
 
Inscription : octobre 2003
Messages : 2
Détails du profil
Informations forums :
Inscription : octobre 2003
Messages : 2
Points : 1
Points : 1
Par défaut Solution trouvée

Bonjour,
J'ai trouvé la réponse à ma question.
Code :
1
2
3
4
5
If ActiveDocument.Bookmarks.Exists("test") = True Then
      ActiveDocument.Bookmarks("test").Select
   Else
      MsgBox "Specified bookmark does not exist."
End If
Jiveday est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 04/10/2011, 21h38   #3
Responsable Word

 
Avatar de Heureux-oli
 
Homme Olivier Lebeau
Contrôleur d'industrie
Inscription : février 2006
Messages : 17 333
Détails du profil
Informations personnelles :
Nom : Homme Olivier Lebeau
Âge : 47
Localisation : Belgique

Informations professionnelles :
Activité : Contrôleur d'industrie
Secteur : Aéronautique - Marine - Espace - Armement

Informations forums :
Inscription : février 2006
Messages : 17 333
Points : 29 239
Points : 29 239
salut,

Juste en passant, essaie

Code :
1
2
3
4
5
6
 
If ActiveDocument.Bookmarks.Exists("test") Then
      ActiveDocument.Bookmarks("test").Select
   Else
      MsgBox "Specified bookmark does not exist."
End If
C'est peu de changement, mais un test en moins.
__________________
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA

Mes articles


Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
Heureux-oli est déconnecté   Envoyer un message privé Réponse avec citation 10
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 04h02.


 
 
 
 
Partenaires

Hébergement Web