[WD-2010] Problème ajout de documents

[happy_diver]

Bonjour,

Je suis en train de migrer une appli développée à la base sous Access et Word 97 et déjà migrée pour 2003 pour le concepteur. Ce dernier est parti vers des cieux plus propices, à son gout, pour sa retraite.....
Le principe de base est simple. Dans un premier temps, suivant les choix de l'utilisateur, l'appli génère x fichiers Word. Cela peut aller jusqu'à une centaine.
Dans un second temps, l'appli réunit tous les docx en un seul de la manière suivante.
- Ouverture de la page de garde
- Renommage du fichier avec son nom définitif
- Boucle sur l'ensemble des docx à unifier.
- Sauvegarde du document final

Je passe par Selection.InsertFile FileName:=SousDoc pour "unifier" les docx.
J'en arrive à mon problème, lorsque la dernière page du fichier que j'ajoute est "pleine", une page vierge est ajoutée automatiquement. Le document final pouvant atteindre plusieurs centaines de pages, vous imaginez la recherche des pages blanches
J'ai essayé en réduisant au maxi les marges, rien à faire. A noter que l'insertion manuelle dans Word me donne le même résultat.

Si vous avez une solution pour éviter cet ajout ou pour supprimer ces pages blanches......

Happy Diver
Si vis pacem, para bellum

[Heureux-oli]

Salut,

Le premier problème est que les pages ne sont pas des objets gérés par Word.
Je suppose que les fichiers ne sont pas liés et que seul le contenu est ajouté.

Plusieurs solutions (au moins deux).

- Copier et coller le contenu de chaque doc.

- Supprimer dans ton doc final les sauts de pages intempestifs à l'aide d'un code.

[happy_diver]

Salut,

Merci pour ta réponse. Je suis justement en train de regarder la première possibilité.
En ce qui concerne la seconde, elle me parait un peu plus délicate à mettre en place.

Je ne manquerai pas de te tenir informé de l'évolution.

Happy Diver
Si vis Pacem, para Bellum

[happy_diver]

Salut,

Je viens (enfin) donner quelques nouvelles. Ne travaillant pas à plein temps sur la bête, cela ne progresse pas très vite...
J'ai testé la solution copier/coller mais je ne l'ai pas retenu', encore plus de pages blanches. Donc retour à la "bonne" vieille méthode d'insertion puis recherche des sauts de page en première ligne et suppression de ceux-ci. Impec de ce coté.

Par contre nouveau problème, la numérotation des sections continue d'une section à l'autre au lieu de recommencer à 1.
Pas de problème, je vais remplacer mes sauts de page par des sauts de section (page suivante) et ben non, Word n'en n'a rien à faire.
Qu'est-ce que cela peut m'énerver ces commandes qui ne réagissent pas de la même manière d'une version à l'autre
Vivement que j'arrive à régler tout cela et que je remette le VBA dans un carton...............

Irritated Diver

[carden752]

Bonjour,

Peut-être faut-il parcourir les sections et leur dire de recommencer la numérotation à chaque section à 1.

Code :

1
2
3
4
5
6
7
 
dim s as section
for each s in activedocument.sections
s.Headers(1).PageNumbers.RestartNumberingAtSection=True
s.Headers(2).PageNumbers.RestartNumberingAtSection=True
s.Headers(3).PageNumbers.RestartNumberingAtSection=True
Next s

[happy_diver]

Bonjour,

Merci pour l'info, juste un petit problème je n'ai pas de propriété "headers" pour mes sections

Happy Diver

[carden752]

Bonjour,

Cela est étonnant car Headers corrrespond aux en-tête et footers aux pieds de page.
Un message d'erreur?

[happy_diver]

Ben, si je tape betement et que je compile, j'ai "membre de methode ou donnée introuvable"
si j'utilise l'éditeur de texte, en "H", j'ai juste "HasContinued" ou "height"

[happy_diver]

Bonjour,

Le problème vient du fait que je pilote Word depuis Access (je crois que j'ai oublié de le signaler ) et donc quand je déclare mon Dim, il prend celui d'access. Quand je fais ma déclaration, l'éditeur me propose 2 "section", mais cela ne change rien je n'ai pas les proprietes et méthodes pour Word
J'ai bien tout ce qu'il faut dans les références

Une idée ?

Happy Diver

[happy_diver]

Bonjour,

J'ai enfin un peu de temps pour me replonger sur mon problème.
J'ai résolu mon problème d'accès aux méthodes / propriètés en ajoutant "simplement" Word. afin de préciser que c'était "section" de Word que je voulais et non pas d'Access.

Désolé Carden752, ce ne sont pas les numéros de pages que je souhaite qui recommencent à 1 à chaque section mais les paragraphes. Je n'ai pas été très clair dans mon explication.
Je recherche donc l'equivalent au "redémarrer à 1" du menu contextuel pour les paragraphes. Je ne trouve pas dans l'explorateur d'objet et je n'ai pas accès au menu contextuel en mode enregistrement de macro.

Par avance merci.

Happy Diver