[Résolu] Mise en page sous Word ou Excel

[lol.2.dol]

salut!

Voila j'ai un fichier avec plusieurs centaine de ligne du genre:

321321

3211

464321

54461

6546454641

et je voudrais faire un truc comme ca

---SALUT---321321----au revoir---

---SALUT---3211---au revoir---

---SALUT---46321---au revoir---

etc....

Est-ce qu'il ya une astuce sous WORD,j'ai pensé faire un macros mais je sais pas trop si c'est ca!

 

Merci de m'aider @+

[Nicolas Coolman]

Salut,

 

Il me semble que c'est tout à fait possible de faire cela sous Excel en VBA (Visual Basic Application).

 

Le mieux c'est de poster dans la rubrique "Programmation", tu devrais y trouver rapidement une aide

[wilerbloch]

Sub remplacer()

Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
   Selection.HomeKey Unit:=wdStory
   Selection.TypeText Text:="--SALUT-- "
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
       .Text = "^p"
       '.Text = "^l"
       .Replacement.Text = "--AU REVOIR--^p--SALUT-- "
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   Selection.EndKey Unit:=wdStory
   Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
   Selection.Delete Unit:=wdCharacter, Count:=1
   Selection.MoveUp Unit:=wdLine, Count:=1
   Selection.EndKey Unit:=wdLine
   Selection.Delete Unit:=wdCharacter, Count:=1
End Sub

 

voilà c'est tout simple ouvrir ton fichier sous word faire outil macro visual basic editeur

créer un nouveau module copier la procédure ci_dessus

le passage à la ligne suivante doit être une marque de paragraphe

si c'est un saut de ligne manuet remplacer "^p" par "^l" dans la procédure

ce sera le cas en cas de copier coller le code de ton texe sur le forum

et retourner dans le document.

outil > macro > exécuter la macro et sélectionner celle-ci "remplacer"

exécuter et ça roule.

Modifié le 20 mars 2005 par wilerbloch

[lol.2.dol]

Merci de ta reponse!

Bon en fait j'ai trouvé autrement je me suis demerder avec en passant sous excel!

Merci que meme c'est gentil

@+