Discussion :

[clmt_jnj]

Bonjour,

Dans le cadre de mon activité je suis amené à utiliser des logiciels de calculs de structure bâtiment, ces logiciels sont très fort pour le calcul mais beaucoup moins en ce qui concerne la sortie sur Word...

J'ai joint 2 fichiers pour vous donnez un exemple de ce que j'aimerais faire. Le fichier appelé "NOTE-DE-CALCUL-A-MODIFIEE" est ce que le logiciel sort brut, et le fichier "NOTE-DE-CALCUL-PROPRE" est ce que j'aimerais que ça devienne. J'aimerais donc savoir si il y a possibilité d'automatiser cette modification de mise en forme, par VBA par exemple (je précise que j'ai des connaissances plutôt limité dans ce domaine ).

Je vous remercie par avance de vos réponses, cela me fait ferais gagner un temps fou dans mon travail

NOTE-DE-CALCUL-PROPRE.docNOTE-DE-CALCUL-A-MODIFIEE.doc

[Heureux-oli]

Salut,

J'avoue que je n'ai pas fait toutes les pages, mais sur les quelques pages que j'ai vues, je ne vois pas de différence entre les deux documents.

[clmt_jnj]

Salut,

C'est vrai que sur les premières pages la différence n'est pas flagrante... Je m'explique plus en détail, je voudrais réduire l'espace avant les titres en gras et surtout que tous les tableaux se redimensionnent automatiquement à la taille de la feuille, car ils sont souvent plus grands que celle-ci (on le voit à partir de la page 16 sur "NOTE-DE-CALCUL-A-MODIFIEE). J'espère avoir été plus clair

[Heureux-oli]

Salut,

Ce petit bout de code devrait le faire pour tes tableaux.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub TableauTaille()
Dim Otbl As Table
For Each Otbl In ActiveDocument.Tables
Otbl.AutoFitBehavior (wdAutoFitContent)
Next Otbl
 
End Sub

Pour les espaces, je pense qu'une simple recherche et remplacement devrait suffire.
tu recherches les doubles ¶ pour les remplacer par un seul.
Les titres ne sont pas des titres, ce qui complique le traitement.

[clmt_jnj]

Salut,
Tout d'abord, merci pour ta réponse le code pour les tableaux fonctionne impec'
Par contre en ce qui concerne le rechercher et remplacer impossible de le faire fonctionner :/ que faut il mettre exactement dans le champs de recherche ?

[Heureux-oli]

Salut,

Je vais te proposer un peu de lecture.
http://sepia.developpez.com/office/w...cherremplacer/