Bonjour,
J'ai un texte, dans Word :
Précédé de l'apostrophe.'strNomProcedure = "btnEnregistrer_Click"
Et mon code :Si je remplace l'apostrophe par n'importe quelle autre lettre ou chiffre, le résultat est donné.
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 Sub Apostrophe() Dim strLigne1 As String Dim strLigne2 As String IntNoLigne = 2 'Sélection ligne strLigne1 = (ActiveDocument.Paragraphs(IntNoLigne).Range.Text) strLigne3 = Replace(strLigne1, " ", vbNullString) Debug.Print "Ligne modifiée sans espace : " & """" & strLigne3 If Left(strLigne3, 1) = "'" Then ' ^ MsgBox Left(strLigne2, 1) Else MsgBox "Pas d'apostrophe !" End If End Sub
Comment faire admettre cette apostrophe ?
Partager