Bonjour,  
Alors voilà je vous explique brièvement ce que fait mon programme: j'ai un bouton qui permet d'attribuer un style au mot sélectionné dans le document Word courant.
Donc je n'utilise qu'un style, pourtant lorsque j'utilise la fonction sur tout mon fichier et que je le converti en xml je vois apparaître des nouveaux styles genre: "monstyleChar" ou "monstyle0"...
Vous connaissez la raison de ce problème?
Bon je vous mets le code que j'utilise: Selection.Style = ThisDocument.Styles("monstyle" ) sachant qu'au préalable j'ai inséré le style dans le document Word.
S'il vous plaît aidez-moi!!!!

Bon laissez tomber ce problème, j'en ai un bien plus important...
Alors j'ai fait une fonction qui cherche des fichiers word dans un répertoire bien précis et qui y insère un style:
 
Dim i As Integer
Dim fso As FileSystemObject
Dim fs As Folder
Dim f As file
Dim path As String
path = Application.NormalTemplate.path & "\Normal.dot"
 
Set fso = New FileSystemObject
Set fs = fso.GetFolder("C:\Key\PrepareFiles\" )
FileName = Dir("C:\Key\PrepareFiles\*.*" )
 
For i = 0 To fs.Files.Count + 1
    If FileName <> vbNullString Then
        Open FileName For Output As #1
        dest = "C:\Key\PrepareFiles\" & FileName
        Application.OrganizerCopy Source:=path, Destination:=dest, name:="termKey", Object:=wdOrganizerObjectStyles
        Close #1
        FileName = Dir
    End If
Next i
 
fin:
    Set f = Nothing
    Set fs = Nothing
    Set fso = Nothing
End Sub
 
Le problème c'est que je suis obligée de commenter la ligne  Application.OrganizerCopy Source:=path, Destination:=dest, name:="termKey", Object:=wdOrganizerObjectStyles à chaque dès que j'ai utilisé la fonction car sinon il me dit que le fichier Normal.dot est ouvert.  
Connaissez-vous la solution?