Copier les styles rapides et les ajouter à un autre doc (Word)
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:
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 |
