Discussion :

[giloud57metz]

Bjr à toutes et tous,
tout nouveau sur le forum j'ai un problème à vous soumettre.
Je reçois quotidiennement 1 fichier ".RTF" de 30 pages.
Celui-ci comporte des lignes vides constituées de points et terminées par un caractère de fin de paragraphe (^p). Entre 2 pages il y a le signe ! et^p (1) (point d'exclamation et fin de paragraphe). TOUTES LES PAGES SONT IDENTIQUES (informations différentes mais nombre de lignes identique)
Je mets un temps fou à tout remettre en ordre. Pour gagner du temps je cherche à faire une macro sous Word 2003 :
* qui peut supprimer toutes les lignes de points SAUF UNE et faire un saut de page au niveau du signe en (1) ci-dessus.
J'ai réussi à faire cette macro en enregistrant les actions "rechercher et remplacer" mais il ne reste pas la dernière ligne qui m'est essentielle.
Quelqu'un peut-il m'aider ?
Je vous remercie par avance et vous souhaite une excellente soirée à tous.
Gilbert.

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.

Si tu pouvais nous mettre ton code ou une copie de ton document pour que nous puissions te venir en aide. Pour le VBA, une description est trop sommaire.

[Sepia]

Salut,

Puisque tu as commencé avec un recherche/remplacer (et à mon avis, c'est la bonne solution), continuons ainsi.

Il faut que tu commences par écarter ta dernière ligne de la liste des rechercher/remplacer. Pour cela, effectue un rechercher/remplacer de ton saut de page (RTF) et remplace-le par un saut de page manuel, mais attention la syntaxe dépend de l'utilisation ou non des caractères génériques.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Rechercher = "!^p"
Remplacer par : "$$$^p^m"
Sans cocher "Utiliser les caractères génériques"

Le "$$$" ne sert à rien sauf pour différencier la dernière ligne
Après tu remplaces comme tu faisais avant (donc tout sauf la dernière ligne) et à la fin tu supprimes les $$$.

Voilà. N'hésite pas si tu veux plus d'informations

@+

[Heureux-oli]

Un peu de lecture sur la recherche et le remplacement !

http://sepia.developpez.com/office/w...cherremplacer/

[giloud57metz]

Bonjour Heureux-oli,
ci-joint un exemple du fichier que je souhaite traiter.
Le document réel comporte exactement 30 pages IDENTIQUES AVEC TOUJOURS LE MËME NOMBRE DE LIGNES.
Pour chaque page je dois donc :
- conserver la dernière ligne d'espaces terminée par le caractère de paragraphe,
- conserver la dernière ligne d'espaces coupée des caractères | (barre oblique)
- faire 1 saut de page manuel au signe !+caractère de paragraphe.
Je t'ai écrit sur les lignes dans le fichier ce qui est à conserver.

Merci à toi si tu peux m'aider dans ce problème.
Bonne fin de journées à tous.

[Sepia]

Salut,


Comme te le dit Heureux-Oli, utilise le tutorial qui prend des exemples simlaires.

@+

[Heureux-oli]

Essaie ce code pour voir !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub remplacement()
 
Dim myString As String
Dim i As Integer
 
i = ActiveDocument.Paragraphs.Count
ActiveDocument.Paragraphs(i).Range.Delete
Selection.HomeKey unit:=wdStory
 
 
 
myString = Chr(33) & Chr(13)
 
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = myString
        .Replacement.Text = "^m"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
End Sub

La méthode qui convient le mieux est bien la recherche et le remplacement.

La macro va supprimer le dernier paragraphe du document.
Revenir au début du document et effectuer les remplacements.

Pour les remplacements, j'ai utilisé les code ASCII des caractères, ce qui me donne une plus grande précision.

[giloud57metz]

Merci pour ta macro Heureux-oli,
je l'ai essayée immédiatement et regardé le résultat.
Les sauts de page sont bien effectués mais les lignes vides ne sont pas supprimées.
Pour que tu puisses bien voir ce résultat, je te joins le fichier en Word en ayant surligné en jaune ce qui devrait être supprimé et en vert ce qui doit rester.
Je te remercie par avance du temps que tu me consacres.
Gilbert.

[Sepia]

Salut,

Pour ôter ce qui est en jaune avant le 1er paragraphe vert, il faut faire une boucle de rechercher/remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Rechercher = "^p |^w|^p"
Remplacer = "^p"

Pour ôter ce qui est en jaune entre le 1er paragraphe vert et le 2ième, il faut faire une boucle de rechercher/remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Rechercher = "^p |^w|^w|^w|^w|^p"
Remplacer = "^p"

Remarque : Attention, toutes les lignes de cette forme sont supprimées (pas uniquement que celles qui tu as marqué en jaune).

@+