Discussion :

[peyo_le_fou]

Bonjour,

Je suis un gros débutant, voila je souhaiterai faire une macro qui pour le document ouvert liste toutes les propriétés de chacun des types utilisés dans le document. et j'aimerai bien que ce listage soit fait dans un fichier texte.
Le probléme c'est que je n'ai aucune connaissance en Macro et que je n'est aucune piste pour démarrer.

Merci d'avance.

[Heureux-oli]

Peux-tu préciser ce que tu entends par Type ??

[peyo_le_fou]

Pardon je voulais parler de style et pas de type

[Heureux-oli]

Le principe serait, pour chaque paragraphe obtenir ses propriétés et les copier dans une variable.

Je commencerais comme ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Public Sub ListeStyle()
Dim para As Paragraph
Dim stTemp As String
Dim listStyl As String
Dim mondoc As Word.Document
 
Set mondoc = ActiveDocument
 
For Each para In mondoc.Paragraphs
stTemp = para.Style
listStyl = listStyl & stTemp & vbCrLf
 
Next para
Debug.Print listStyl
 
 
 
End Sub

C'est un début

[peyo_le_fou]

En fait il ne faut pas que je me limite à tous les style utiliser, il faut que je liste tous les styles même ceux pas utilisés.
Je le fait dans le but de comparer deux document entre eux afin de m'assurer qu'ils utilisent bien la même "feuille de style" (s'assurer que ce soit les même nom mais aussi les mêmes propriétés).

[Heureux-oli]

Je t'ai donné une piste, si tu cherche un peu dans l'aide, tu devrais trouver ton bonheur.

[peyo_le_fou]

Merci beaucoup