Discussion :

[fred_gaou]

Bonjour à tous et merci de votre attention.

Voilà mon problème avec Microsoft Office Word 2003 SP2 sous XP

J'ai un document dont certaines phrases sont coupées par une marque de paragraphe. Ce qui donne pour exemple ceci:

Quand une entreprise (organisme, ..) décide de "déposer un nom de domaine", elle s'adresse à un prestataire

habilité pour le faire (en France ou aux USA), qui va vérifier si le nom n'existe pas déjà, et ensuite va lui attribuer

une adresse IP disponible. Le couple domaine-adresse IP est

ensuite communiqué à des serveurs DNS, tous connectés à Internet, qui vont

dialoguer entre eux pour "répliquer" (si besoin est) cette mise à jour d'annuaire.

Et ceci sur une centaine de pages, donc la flemme de corriger cela manuellement. Cela me prendrait environ une centaine d'années et je n'ai pas tout ce temps à y consacrer

J'ai essayé tout ce dont je suis capable pour réassembler ces phrases dans tout le doc. J'ai fait une recherche selective pour surligner toutes les marques de paragrahes mises en cause en faisant ceci:
Ctrl F en mettant dans la case "rechercher" ^$^p^$, ajouté à cela quelques options selectives pour ne rechercher que dans le corps de texte, puis rechercher tout

Cela me surligne les marques de paragraphe concernées. Le problème maintenant, c'est que je voudrais remplacer les marques de paragraphes ^p ainsi surlignées par un espace. Or la fonction remplacer de word ne le fait pas car elle remplace soit toutes les marques de paragraphe du document, soit toutes la chaînes de caractères surlignées ^$^p^$.

D'où me vient l'idée de l'utilisation d'une macro qui pourrait éxecuter ce que je souhaite. Or, je ne connais rien au langage VBA ni s'il pourra résoudre mon problème.

Voici ma question: est-il possible de programmer en VBA, directement applicable dans une macro word, cette tâche:

remplacer dans tout le document ^p par un espace quand ^p est compris entre deux lettres minuscules appartenant au corps de texte ?

J'espère que j'ai bien exprimé mon problème et que vous m'avez compris.

Si un pro du VBA pouvait m'éditer cette macro si cela est possible ou bien m'orienter vers une autre solution que l'arrachage de cheveux pour résoudre ce problème. Ce serait fantastique et ça me changerait la vie car je pourrais appliquer cette macro à pleins de doc qui représente des milliers de pages.

A votre bon coeur, messieurs, dames

fred

[argyronet]

Bonjour,

Que ce soit en VBA ou à la main, le but est de savoir ce que tu veux remplacer.
Dans le cas précis de ton texte:

Quand une entreprise (organisme, ..) décide de "déposer un nom de domaine", elle s'adresse à un prestataire ¶
¶
habilité pour le faire (en France ou aux USA), qui va vérifier si le nom n'existe pas déjà, et ensuite va lui attribuer ¶
¶
une adresse IP disponible. Le couple domaine-adresse IP est ¶
¶
ensuite communiqué à des serveurs DNS, tous connectés à Internet, qui vont ¶
¶
dialoguer entre eux pour "répliquer" (si besoin est) cette mise à jour d'annuaire. ¶

Il faut répérer les "espaces-^p^p" que tu remplace par "^p"
En VBA il faut sélectionner tout et affecter le texte à une variable à laquelle tu appliques par exemple la fonction VBA

Code :

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

Replace(strText, Chr(32) & vbCrlf & vbCrlf, vbCrlf)

Disons qu'automatiser est faisable mais avant de te lancer dans le développement d'une procédure automatisée, il te faut écrire toutes les règles et conditions sur un papier. Ensuite c'est facile à transposer dans du code.

Argy

[SfJ5Rpw8]

remplacer dans tout le document ^p par un espace quand ^p est compris entre deux lettres minuscules appartenant au corps de texte ?

tiens voila un peu de code... :

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
Function EstMin(c As String) As Boolean
     EstMin = (c >= "a" And c <= "z")
End Function
Sub SupprimeParagraphe()
    Selection.Find.ClearFormatting
    ActiveDocument.Select
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "^$^p^$"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    While Selection.Find.Execute
       If EstMin(Left(Selection.Text, 1)) And EstMin(Right(Selection.Text, 1)) Then
         Selection.TypeText Left(Selection.Text, 1) & " " & Right(Selection.Text, 1)
       End If
     Wend
End Sub

[fred_gaou]

ah, merci beaucoup pour le code. C'est un super cadeau. Je vais le tester ce soir et je vous dirai ce que ça donne
Bonne fin d'après-midi

[fred_gaou]

En fait, argyronet, mon texte a plutôt cette gueule là, mais ça change pas le problème, j'en conviens:

Quand une entreprise (organisme, ..) décide de "déposer un nom de domaine", elle s'adresse à un prestataire¶

habilité pour le faire (en France ou aux USA), qui va vérifier si le nom n'existe pas déjà, et ensuite va lui attribuer¶

une adresse IP disponible. Le couple domaine-adresse IP est¶

ensuite communiqué à des serveurs DNS, tous connectés à Internet, qui vont¶

dialoguer entre eux pour "répliquer" (si besoin est) cette mise à jour d'annuaire.¶

[/quote]

[argyronet]

En fait, argyronet, mon texte a plutôt cette gueule là, mais ça change pas le problème, j'en conviens:..........

Ah !!!
Et c'est donc la hauteur des paragraphes qui fait en sorte que l'espace entre les lignes est si grand.
De ce fait, dans la macro ou à la main, tu le redéfinis comme "Simple"... ou tu lui appliques un style.

Argy

[ouskel'n'or]

D'après ce que j'ai compris, la première solution d'argyronet est la bonne, seulement il faut remettre l'espace que tu remplaces, sinon les mots vont être collés à tous tes anciens sauts de lignes

Code :

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

Replace(strText, Chr(32) & vbCrlf, chr(32))

Tu dis

A+

[fred_gaou]

Le code que m'a donné bbil semble fonctionner à la perfection.
Mille merci à lui !!! Avec toute ma reconnaissance ''
T'es un grand bbil ''