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.
=> AltF11 + F1