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
| Sub subPBeecham()
Const sPhraseAv As String = "[VERBE] travaille [VERBE] [NOM MASCULIN SINGULIER] l'élève [NOM MASCULIN SINGULIER]"
Const sBaliseNom As String = "[NOM MASCULIN SINGULIER]"
Const sBaliseVerbe As String = "[VERBE]"
Dim sNom As String
Dim sVerbe As String
Dim sPhraseAp As String
Dim i1 As Integer
Dim i2 As Integer
i1 = 1
Do
i1 = InStr(i1, sPhraseAv, sBaliseNom)
If i1 = 0 Then Exit Do
i2 = InStr(i1 + 1, sPhraseAv, sBaliseNom)
If i2 = 0 Then Exit Do
sNom = sNom & Mid$(sPhraseAv, i1, i2 + Len(sBaliseNom) - i1 + 1)
i1 = i2 + 1
Loop
i1 = 1
Do
i1 = InStr(i1, sPhraseAv, sBaliseVerbe)
If i1 = 0 Then Exit Do
i2 = InStr(i1 + 1, sPhraseAv, sBaliseVerbe)
If i2 = 0 Then Exit Do
sNom = sNom & Mid$(sPhraseAv, i1, i2 + Len(sBaliseVerbe) - i1 + 1)
i1 = i2 + 1
Loop
sPhraseAp = sNom & sVerbe
MsgBox sPhraseAp
End Sub |
Partager