Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1684 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Effacer la mise en forme d'un fichier

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Effacer la mise en forme d'un fichier

n°1419529
acorsa
Posté le 04-08-2006 à 11:31:15  profilanswer
 

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.

mood
Publicité
Posté le 04-08-2006 à 11:31:15  profilanswer
 

n°1419535
jpcheck
Pioupiou
Posté le 04-08-2006 à 11:35:42  profilanswer
 

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

n°1419550
acorsa
Posté le 04-08-2006 à 11:47:40  profilanswer
 

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"

n°1419552
jpcheck
Pioupiou
Posté le 04-08-2006 à 11:48:51  profilanswer
 

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
n°1419558
acorsa
Posté le 04-08-2006 à 11:53:43  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Effacer la mise en forme d'un fichier

 

Sujets relatifs
probleme chargement de fichier csvDécoupage de fichier word
[Batch DOS] Recupérer le fichier le plus récent.[Résolu]Récupérer le nom d'un fichier à uploader
Firebird - Effacer le contenu de toutes les tables sauf...Ou est enregistré le fichier avec un select * into outfile ?
effacer un mot d un fichier en c#Lire un fichier de properties
Pb mise en page css pour impression 
Plus de sujets relatifs à : Effacer la mise en forme d'un fichier


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR