Automation mettre en mode affichage modifcation
gilnat37
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
m@rina Messages postés 23923 Date d'inscription Statut Contributeur Dernière intervention -
m@rina Messages postés 23923 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Depuis le changement word 2003 par word 2013, à l'ouverture d'un fichier en lecture seule je ne peux plus chercher les signets dans le document, écrire, puis imprimer le fichier ainsi rempli. (fermeture sans sauvegarde).
pour cela il me manque une nouvelle ligne de code qui serait de passer en mode modification par automation.
Merci aux personnes compétentes de bien vouloir m'aiguiller..
Voici mon code Windev de pilotage de word par automation
//ouverture du document word
MonDoc>>Documents>>Open(gsCheminForm)
(il faudrait ici ce fameux code pour ouvrir en mode modificatin le document)
nNbsignet = MonDoc>>ActiveDocument>>Bookmarks>>Count
// Enregistrement du nom des signets
// Evite une erreur si un signet est ensuite supprimé (signets imbriqués)
POUR x = 1 A nNbsignet
TableauAjoute(tabListe_Signets,MonDoc>>ActiveDocument>>Bookmarks(x)>>Name)
FIN
// Parcours des signets et attribution de la valeur
POUR t = 1 A nNbsignet
SI MonDoc>>ActiveDocument>>Bookmarks>>Exists(tabListe_Signets[t]) ALORS
sNom_Signet = tabListe_Signets[t]
MonDoc>>ActiveDocument>>Bookmarks(sNom_Signet)>>Select
sNom_Rubrique = MonDoc>>Selection>>Text
MonSignet = sNom_Signet
sValeur_Rubrique = ""
SI MonSignet = "SigEtude" ALORS
sValeur_Rubrique = SAI_Etude_P6
FIN
SI MonSignet = "SigProduit" ALORS
sValeur_Rubrique = SAI_Produit_P6
FIN
MonDoc>>Selection>>GoTo(wdGoToBookmark,*,*,sNom_Signet)
MonDoc>>Selection>>TypeText(sValeur_Rubrique)
FIN
FIN
//Imprime le nombre de page indiqué dans la table
POUR p=1 A nNombredepage
MonDoc>>printout(False)
FIN
//Fermeture du document Word sans sauvegarde
wdDoNotSaveChanges est un booléen = False
MonDoc>>activeDocument>>close(wdDoNotSaveChanges)
TableauSupprimeTout(tabListe_Signets)
Depuis le changement word 2003 par word 2013, à l'ouverture d'un fichier en lecture seule je ne peux plus chercher les signets dans le document, écrire, puis imprimer le fichier ainsi rempli. (fermeture sans sauvegarde).
pour cela il me manque une nouvelle ligne de code qui serait de passer en mode modification par automation.
Merci aux personnes compétentes de bien vouloir m'aiguiller..
Voici mon code Windev de pilotage de word par automation
//ouverture du document word
MonDoc>>Documents>>Open(gsCheminForm)
(il faudrait ici ce fameux code pour ouvrir en mode modificatin le document)
nNbsignet = MonDoc>>ActiveDocument>>Bookmarks>>Count
// Enregistrement du nom des signets
// Evite une erreur si un signet est ensuite supprimé (signets imbriqués)
POUR x = 1 A nNbsignet
TableauAjoute(tabListe_Signets,MonDoc>>ActiveDocument>>Bookmarks(x)>>Name)
FIN
// Parcours des signets et attribution de la valeur
POUR t = 1 A nNbsignet
SI MonDoc>>ActiveDocument>>Bookmarks>>Exists(tabListe_Signets[t]) ALORS
sNom_Signet = tabListe_Signets[t]
MonDoc>>ActiveDocument>>Bookmarks(sNom_Signet)>>Select
sNom_Rubrique = MonDoc>>Selection>>Text
MonSignet = sNom_Signet
sValeur_Rubrique = ""
SI MonSignet = "SigEtude" ALORS
sValeur_Rubrique = SAI_Etude_P6
FIN
SI MonSignet = "SigProduit" ALORS
sValeur_Rubrique = SAI_Produit_P6
FIN
MonDoc>>Selection>>GoTo(wdGoToBookmark,*,*,sNom_Signet)
MonDoc>>Selection>>TypeText(sValeur_Rubrique)
FIN
FIN
//Imprime le nombre de page indiqué dans la table
POUR p=1 A nNombredepage
MonDoc>>printout(False)
FIN
//Fermeture du document Word sans sauvegarde
wdDoNotSaveChanges est un booléen = False
MonDoc>>activeDocument>>close(wdDoNotSaveChanges)
TableauSupprimeTout(tabListe_Signets)
A voir également:
- Automation mettre en mode affichage modifcation
- Mode avion - Guide
- Mode sécurisé samsung - Guide
- God mode - Guide
- Mode d'emploi - Guide
- Mode suivi des modifications - Guide