Bonjour voici l’ébauche du programme mais il ne fonctionne bien sûr pas.

Il faut copier les styles rapides de WdDoc et les mettre en choix de style dans WdDoc2.

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
Function CopyPasteStyle(sDocCopy As String, sDocPaste As String)
 
On Error GoTo errorHandler
        Dim WdDoc2 As Word.Document
        Set WdApp = Word.Application
        Set WdDoc = GetObject(sDocCopy)
        Set WdDoc2 = GetObject(sDocPaste)
        WdApp.Visible = True
Dim i As Long
i = 0
Do
i = i + 1
Set WdDoc.Styles(i).NameLocal = WdDoc2.Styles.Add(Name:=WdDoc.Styles(i).NameLocal, Type:=wdStyleTypeCharacter)
Loop
errorHandler:
 
End Function