Discussion :

[asaptrad]

Je reçois encore pas mal de documents Word formattés à la machine à écrire à coups de barre d'espaces et de tabulations.

On peut supprimer des espaces et tabulations en début de ligne en centrant le texte puis en alignant à gauche mais on perd alors le retrait manuel.

J'essaie donc d'écrire une macro qui supprime ces caractères parasites en début de ligne tout en conservant la mise en page initiale.

J'y arrive presque mais dans la macro ci-dessous, ParagraphFormat.IndentCharWidth 1 avance le renforcement jusqu'au taquet suivant (comme le bouton "Augmenter le retrait") plutôt que d'un seul espace.
y a-t-il un autre moyen de le faire.

Merci d'avance.
David

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
Sub StripTabsAndSpaces()
Dim oPRg As Paragraph
Dim DoTab As Long
Dim i As Long
 
i = 0
For Each oPRg In ActiveDocument.Paragraphs
While oPRg.Range.Characters.First = vbTab
oPRg.Range.Characters.First = ""
DoTab = (i + 1)
oPRg.Range.ParagraphFormat.TabIndent (DoTab)
Wend
While oPRg.Range.Characters.First = " "
oPRg.Range.Characters.First = ""
oPRg.Range.ParagraphFormat.IndentCharWidth 1
Wend
Next
End Sub

[Sepia]

Salut

Pour te simplifier la vie, tu pourrais utiliser les commandes de remplacement de Word.

@+