Discussion :

[Pyanepsion]

Bonjour à tous,

Sur un texte déjà écrit, je voudrais remplacer automatiquement la mise en forme d'un dialogue :

–[tabulation]parole du premier personnage...

–[tabulation]parole du second personnage...

–[tabulation]parole à nouveau du premier personnage...

par :

—[espace insécable]parole du premier personnage...

—[espace insécable]parole du second personnage...

—[espace insécable]parole à nouveau du premier personnage...


Il s'agit donc de remplacer le résultat de la puce automatique par un texte plus typographique.

Comment procéder pour tout remplacer d’un coup ?

Merci pour votre aide.

[Heureux-oli]

Salut,

Deux choses, soit on remplace au cours de la frappe, soit on fait un remplacement global quant tout est terminés.

Je pense que le remplacement global est plus simple.

Il suffit de faire une recherche et remplacement.

Je pense que ce tuto devrait t'aider :
http://sepia.developpez.com/office/w...cherremplacer/

[Pyanepsion]

Le problème vient ici de la puce automatique. Lorsqu'on fait un copier-coller, tout se passe comme si le tiret réduit et la tabulation n'existait pas. Comment procéder sur le texte déjà écrit dans ce cas très particulier

[Heureux-oli]

Salut,

C'est une mise en forme automatique du texte lors de la frappe;

Ce sont des niveaux de liste.

Untilise ce petit bout de code avant de remplacer.

Code :

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

1
2
3
4
5
6
Sub convertirPuceEnTexte()
Dim pAra As Paragraph
 For Each pAra In ActiveDocument.Paragraphs
    pAra.Range.ListFormat.ConvertNumbersToText
Next pAra
End Sub

[Pyanepsion]

Impeccable. Merci Heureux Oli.

Juste un souci, rapidement résolu : le tiret et l'espace insécable ont été remplacés par des symboles carrés. Il m'a suffi de tout sélectionner et mettre dans la police et le corps par défaut pour les voir réapparaitre.