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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
|
Sub TesterLesCellules()
Dim DocEnCours As Document
Dim I As Integer, J As Integer, Position As Integer
Dim TexteEnCours As String, TexteAChanger As String
Set DocEnCours = ActiveDocument
With DocEnCours
TexteAChanger = Chr(160) & Chr(187)
For I = 1 To .Tables.Count
For J = 1 To .Tables(I).Range.Cells.Count
TexteEnCours = .Tables(I).Range.Cells(J).Range.Text
Position = InStr(1, TexteEnCours, TexteAChanger, vbTextCompare)
If Position > 0 Then
.Tables(I).Range.Cells(J).Range.Select
'TesterLesCaracteres Selection
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = TexteAChanger
.Replacement.Text = Chr(146)
.Execute Replace:=wdReplaceAll
End With
Debug.Print Position & " : " & .Tables(I).Range.Cells(J).Range.Text
End If
Next J
Next I
End With
Set DocEnCours = Nothing
End Sub
Sub TesterLesCaracteres(ByVal ChaineATester As Selection)
Dim K As Integer, L As Integer
With ChaineATester
For K = 1 To .Characters.Count
For L = 0 To 255
If Mid(.Range.Text, K, 1) = Chr(L) Then
Debug.Print "Caractère " & K & ", valeur : " & Chr(L) & ", code : " & L
End If
Next L
Next K
End With
End Sub |
Partager