Bonjour,
la macro qui suit est un bidouillage probablement pas très catholique mais bon, voici ce qu'elle fait : (c'est une recherche - remplacement)
je cherche dans le texte : "- " (tiret suivi d'un espace)
si je réponds OUI, le tiret et l'espace sont supprimés
si je réponds NON, je supprime l'espace en gardant le tiret
Mais maintenant j'aimerais avoir un 3ème choix : garder le tiret et l'espace
est-ce qu'avec une petite modification du code on peut y arriver ?
Merci de m'aider, je ne suis pas programmeur du tout
voici le 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
26
27 Sub CESURE_NORMALE() ' ' INSPIRED FROM A basic Word macro coded by Greg Maxey 'suppression de tiret-espace (OUI) ou de l'espace uniquement (NON) ' Dim oRng As Word.Range Set oRng = ActiveDocument.Range With oRng.Find .Text = "- " .MatchWildcards = False .Wrap = wdFindStop While .Execute oRng.Select Select Case MsgBox("Remplacer par RIEN ? (OUI enlevera tiret et espace - NON enlevera espace seul)", vbYesNoCancel + vbQuestion, "Message") Case vbYes oRng.Text = "" ' Je ne garde rien Case vbCancel Exit Sub Case Else: ' Je garde le tiret oRng.Text = Chr(45) End Select oRng.Collapse wdCollapseEnd Wend End With Select Case MsgBox("Recherche Terminee", vbInformation + vbOKOnly, "Message") End Select End Sub
Partager