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   -
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)
A voir également:

1 réponse

m@rina Messages postés 23923 Date d'inscription   Statut Contributeur Dernière intervention   11 465
 
Bonjour,

J'ai pas compris pourquoi tu parles d'automation ??
L'automation permet de piloter un logiciel depuis un autre. Ici, tu ne parles que de Word...

m@rina
0