Effacer la mise en forme d'un fichier

Effacer la mise en forme d'un fichier - VB/VBA/VBS - Programmation

Marsh Posté le 04-08-2006 à 11:31:15    

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.

Reply

Marsh Posté le 04-08-2006 à 11:31:15   

Reply

Marsh Posté le 04-08-2006 à 11:35:42    

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

Reply

Marsh Posté le 04-08-2006 à 11:47:40    

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"

Reply

Marsh Posté le 04-08-2006 à 11:48:51    

acorsa a écrit :

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


Message édité par jpcheck le 04-08-2006 à 11:49:18
Reply

Marsh Posté le 04-08-2006 à 11:53:43    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed