[WD-2000] Insérer des balises <p> et </p> en début et fin de paragraphe [Résolu]

[Nerva]

Bonjour.

Je suis en train de créer une macro qui convertit les caractères accentués, guillemets, espaces insécables, points de suspension, etc... en caractères HTML mais je bute sur le "paragraphage".
Pour ce qui est de la fin du paragraphe, en remplaçant ^p par </p>, je n'arrive pas à conserver le saut de ligne après </p>. Par exemple :

Blabla1.

Blabla2.

Devient :

Blabla1.</p>Blabla2.</p>

Alors que je voudrais :

Blabla1.</p>
Blabla2.</p>

Pour insérer un <p> en début de chaque paragraphe, je ne sais pas comment faire.

Merci d'avance.

[Heureux-oli]

Salut,

Juste une idée en passant ?

Code :

1
2
3
4
5
6
7
8
9
10
 
Dim pAra As Paragraph
 
For Each pAra In ActiveDocument.Paragraphs
pAra.Range.Select
Selection.InsertBefore "<p>"
Selection.Collapse Direction:=wdCollapseEnd
Selection.MoveLeft unit:=wdCharacter, Count:=1
Selection.InsertAfter "</p>"
Next pAra

[Nerva]

Eh bien merci, c'est impeccable...

[Sepia]

Salut Nerva,

Un simple rechercher-remplacer du style est plus simple

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "</p>^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

A toi de voir

@+

[Nerva]

Cette macro ne fonctionne pas correctement ; elle insère le </p> en fin de paragraphe mais pas le <p> en début.

[Heureux-oli]

Salut,

Ça devrait le faire avec "</p>^p<p>" comme texte de remplacement.