Problème de sélection

Question

Bonjour à tous
Je cherche à faire une macro sous word 2007 permettant par exemple d'écrire mathématiquement un texte sélectionné accompagné du symbole racine carré :
Sub racine()
Dim dupli As String
dupli = Selection.Range

Selection.Delete Unit:=wdCharacter, Count:=1
 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
 PreserveFormatting:=False
 Selection.TypeText Text:="EQ \r(" & dupli & ")"
 Selection.Fields.ToggleShowCodes
End Sub

Le problème est que quand je sélectionne mon texte, il m'arrive de sélectionné automatiquement un petit espace juste après celui-ci. J'obtiens alors une erreur dans la génération de mon champ. Que dois-je faire pour éliminer cet espace ? La fonction Trim ne semble pas être utile
Merci d'avance pour vos réponses
Matthieu

cs_baz187rem · Answer

Hello, 

J'ai fais ca dis moi si ca correspond a tes attentes:
Sub racine()
Dim dupli As String
dupli = Selection.Range
dupli = Mid(dupli, 1, Len(dupli) - 1)

Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False
Selection.TypeText Text:="EQ \r(;" & dupli & ")"
Selection.Fields.ToggleShowCodes
End Sub

Problème de sélection

1 réponse

Votre réponse

Discussions similaires