salut,
 
j'aimerai découper un fichier à plat tous les 175 caracteres dans word
j'ai trouvé une technique simple :
avancer le curseur d e1 caractere 175x puis envoyer un retour chariot
 
le pb c'est que je passe par une boucle For que je devrait conditionner comme cela
 
    For i = 1 To NbCar
        Selection.MoveRight Unit:=wdCharacter, Count:=175
        Selection.TypeParagraph
    Next
avec NbCar (Nombre de caracteres dans mon document) / 175
je ne sais comment recuperer cette propriete de document (le nombre de caracteres de active.documents
 
merci de votre aide  

j'ai trouvé deux trucs pour avoir la taille du fichier ouvert :
 
Dim a as long
 
Open "Monfichier" for input as #1
a = Lof(1) 'Renvoie la taille du fichier ouvert en #1
Close
 
Msgbox "Taille du fichier :"+str$(a)+" octets"  
_GrEgY_  
  Posté le 15-05-2001 13:47:37                  
 
 
 
wep les FileSystemObject c'est pas mal et facile...
 
Dim FSO as New FileSystemObject
Dim Fichier as File
 
Set Fichier = FSO.GetFile(Le path de ton filelistbox)
MsgBox Fichier.Size
 
[edit]--Message édité par _GrEgY_--[/edit]  
 
si fichier texte : nb de caracteres = taille en octets non ??