Bonjour,
J'ai toujours le même problème avec le découpage des fichiers (http://forum.hardware.fr/hardwarefr/Programmation/Decoupage-fichier-word-sujet-94620-1.htm) ms là, en plus, je voudrais savoir comment effacer la mise en forme de chaque fichiers Word. Pour plus de précision, je vous expliqeu le principe et vous joinds le code.
J'ai un répertoire "PrepareFiles" ds lequel je mets tt un tas de documents Word à traiter. J'ai créé la macro suivante qui parcours chaque fichiers et leur insère un style. Mtnt je voudrais: effacer la mise en forme des documents et les diviser en plusieurs petits documents...
Voilà mon code:
 
Sub prepareFile()  
   
'On Error GoTo GestionErreur
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("D:\PrepareFiles\" )
FileName = Dir("D:\*.*" )
 
For i = 0 To fs.Files.Count + 1
    If FileName <> vbNullString Then
        Open FileName For Output As #1
        dest = "D:\PrepareFiles\" & FileName
        'pplication.OrganizerCopy Source:=path, Destination:=dest, name:="monStyle1", Object:=wdOrganizerObjectStyles
        Application.OrganizerCopy Source:=path, Destination:=dest, name:="monStyle2", Object:=wdOrganizerObjectStyles
        Close #1
        FileName = Dir
    End If
Next i
     
GoTo fin
GestionErreur:
  MsgBox "Impossible d'instancier le gestionnaire d'erreurs", vbCritical
  GoTo fin
fin:
    Set f = Nothing
    Set fs = Nothing
    Set fso = Nothing
End Sub  
 
Je vous remercie d'avance.

En utilisant ce qui est donné dans ce topic, tu trouveras peut etre son bonheur!
http://forum.hardware.fr/hardwaref [...] 4352-1.htm

Merci ms ce n'est pas du tout mon cas. Je n'ai aucun fichier ouvert...Il faudrait que je fasse un truc genre:  
Application.jesaispasquoi.WholeStory
Application.jesaispasquoi.clearFormatting
 
Mais le problème, c'est le "jesaispasquoi"

si tu passes par une ouverture de fichier ca sera Word => AltF11 + F1

je comprends pas...c quoi ça? C'est pour ouvrir l'environnement VB non?