[WD-2007] Collection "Documents" - changement entre Wd 2003 et Wd 2007 ?

[paulinegue]

Bonjour,

J'ai une question bête : est-ce que la collection "Documents" sous Word 2007 est la même que sous Word 2003 ?

Parce que lorsque j'essaie de sauver des documents qui ont subi des modifications, j'ai l'impression que seuls les documents .docx sont pris en compte, et pas les .doc

Code :

1
2
3
For Each docLoop In Documents
    If docLoop.Saved = False Then docLoop.Save
Next docLoop

Si jamais il y a bien une différence entre les 2, est-ce que quelqu'un aurait une solution pour que tous les documents soient sauvegardés, quelle que soit leur version ?


Mille mercis !


Pauline

[Heureux-oli]

Salut,

La collection n'a pas changé.

Juste une question, si tu sauvegardes les documents qui ont été modifiés, pourquoi ne pas tout sauver dans ce cas.

Code :

Documents.Save

[paulinegue]

Salut Heureux-Oli,

Merci de ta réponse. Je ne veux pas sauvegarder tous les documents ouverts parce que ceux qui servent de base au publipostage ont une fâcheuse tendance à mal se sauvegarder : j'ai eu je ne sais combien de fois le message "Le fichier est corrompu, Word ne peut l'ouvrir", ce qui m'oblige à refaire le travail...

D'où la sauvegarde uniquement des documents qui ont été modifiés.

Merci quand même !

Pauline

[Heureux-oli]

Salut,

Je viens d'essayer un code et je n'ai pas eu de message d'erreur !

Code :

1
2
3
4
5
Dim odoc As Document
 
For Each odoc In Documents
If Not odoc.Saved Then odoc.Save
Next odoc

[paulinegue]

Salut Heureux-Oli,

Merci beaucoup de ta réponse ! Ton code ne semble pas marcher pour mes fichiers :

Sur mon fichier de départ ("Base.docx"), j'ai des boutons qui me permettent de choisir certains critères pour faire un publipostage. En fonction de ces choix, un fichier s'ouvre ("Septembre.doc", "Octobre.doc", ...). C'est ce fichier qui comporte les champs pour le publipostage. 2 secondes plus tard, le fichier résultat du publipostage s'ouvre - il est appelé "Form Letters 1" par défaut.
Le fichier actif reste cependant "Base" (c'est celui que j'ai à l'écran durant toute la procédure de publipostage).

Lorsque j'ajoute ta solution dans mon code, rien ne change : aucun des fichiers ne se sauvegarde et le document actif est toujours "Base".

D'autres idées ? Mille mercis !


Pauline

[Heureux-oli]

Salut,

Essaie de vérifier si la boucle fonctionne avec un Debug.Print ou un MSGBox !

Code :

1
2
3
4
5
Dim odoc As Document
 
For Each odoc In Documents
If Not odoc.Saved Then Debug.Print odoc.FullName
Next odoc

On avancera pas à pas.

[paulinegue]

Salut,

Aucun message ne s'affiche. Je ne comprends pas ... Est-ce que le document qui résulte du publipostage peut avoir été déjà enregistré quelque part sans que je ne m'en rende compte ?


Merci !


Pauline

[Heureux-oli]

Salut,

Possible qu'il ne soit pas encore modifié et que sa propriété .saved est toujours à true.

[JYG_perdu]

J'ai eu un problème un peu comparable à l'ouverture de fichiers .doc en utilisant en Word 2007 une macro créée en Word 97.

En fait en Word 2007 lorsque j'ouvrais des fichiers .doc, ma macro se bloquait en tentant d'exécuter les macros du fichier .doc (read.doc) que j'ouvrais et ne rendait jamais la main à ma macro principale. Cette situation perdurait même après avoir détruit toutes les macros de read.doc.

Pour résoudre mon problème j'ai du non seulement retirer toutes les macros du fichier read.doc que je voulais ouvrir mais également détruire le Module des New Macros de ce document (dans l'éditeur VBA, dans l'explorateur de projet, pour read.doc sélectionner NewMacros clic droit puis supprimer).

Je n'ai pas fait d'essai en sauvegarde mais comme il est possible de lancer des macros automatiquement à la sauvegarde d'un document il est possible que le comportement soit le même.