Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business



|||-  

macro Word : subdiviser un gros fichier

 

2 utilisateurs anonymes et 45 utilisateurs inconnus
Ajouter une réponse
 

 
Page photos
 
 Mot :  Pseudo :  
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

macro Word : subdiviser un gros fichier

Prévenir les modérateurs en cas d'abus 
  1. homepage
orionis
Présent de temps en temps (De 50 à 99 messages postés)
  1. Posté le 05/01/2010 à 12:42:15  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour à tous,
 Je dois subdiviser un gros fichier (57Mo) contenant des informations de sites, en autant de sous-fichiers que de sites distincts.
 La dernière chaîne de caractères marquant la fin de chaque page page du site est toujours la même.
 Chaque site contient un nombre de pages indéterminé.

 Mon idée est la suivante :
 - initialiser page_debut à 1
 - parcourir le fichier à la recherche de la chaine
 - récupérer le n°page de la chaine -> page_fin
 - "enregistrer sous" le fichier source de page_debut à page_fin
 - page_debut = page_fin+1
 - et recommencer jusqu'à la fin du fichier source

 Quelles fonctions ou propriétés de macro dois-je utiliser pour cela?
 Merci d'avance!

  1. homepage
orionis
Présent de temps en temps (De 50 à 99 messages postés)
  1. Posté le 07/01/2010 à 12:37:55  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Re,
 j'avance tout doucement, mais je bloque à présent sur ce souci : je parviens bien à trouver ma chaine de recherche, la remplacer par un saut de section, puis à éclater le fichier d'origine en autant de sous-fichiers qu'il existe de sauts de section.

 Mon problème est que la toute première chaine recherchée n'est jamais détectée? Voici le code de la partie de recherche/remplacement.
 Code :

 With ActiveDocument.Content.Find

.Execute findtext:=MaPhrase, Forward:=True

Do While .Execute(findtext:=MaPhrase, Forward:=True) = True

With .Parent

.StartOf Unit:=wdWord, Extend:=wdMove

.InsertBreak Type:=wdSectionBreakNextPage

.Move Unit:=wdWord, Count:=1

End With

Loop
 End With

 D'où cela peut-il provenir?

(Publicité)
 Page :
1

Aller à :
 

Sujets relatifs
Word disparu du menu déroulant "Nouveau" Macro pour rechercher l'adresse d'une case
Création d'un fichier VMDK avec PowerShell copier des lignes dans un autre onglet avec une macro
Fichier partager / fichier exclusif excel VBA [CODE] Recherche de macro a nom variable excel vba
fichier dll commune shell de windows beug macro excel (RéSOLU)
arret temporaire d'une macro excel (RéSOLU) integrer un fichier d'aide sous eclips
Plus de sujets relatifs à : macro Word : subdiviser un gros fichier

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
Chiffre-fort 0
documentation catia v5 0
ouvrir \Device\Tcp 1
problème forumipb 0
**** / Créateur de magazine en ligne! 0