Discussion :

[ddorange]

Bonjour,

Je pars d'un vecteur AB écrit.

Je positionne le curseur au début de l'équation.

J'applique le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
MsgBox Selection.Text
Selection.Collapse (wdCollapseEnd)
 
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
MsgBox Selection.Text

J'obtiens en retour ?? mais pas A et B.

Avez-vous une idée ?
Merci d'avance.
Cordialement.

[Invité]

J'obtiens en retour ?? mais pas A et B.

Re,

A tout hasard, cela donne quoi avec Count:=2 ?

Après essai, ma proposition n'est pas valable.

[Jean-Philippe André]

Salut,

dans ce sujet en anglais, il est question de parcourir les caracteres
http://software-solutions-online.com...-the-equation/

[Invité]

J'ai simulé deux équations dont une avec un argument rempli et j'ai regardé ce que donnait ce 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
 
Sub ContenuChampOMath()
 
Dim I As Integer
Dim LeContenusDeMesEquations As String
 
    With ActiveDocument
         LeContenusDeMesEquations = ""
         For I = 1 To .OMaths.Count
             LeContenusDeMesEquations = LeContenusDeMesEquations & "Equation " & I & " : " & .OMaths(I).Range.Text & Chr(10)
         Next I
         MsgBox LeContenusDeMesEquations
  End With
 
End Sub

J'ai obtenu ce résultat :

Pièce jointe 240859

Conclusion : J'en déduis que les ?? correspondent à un argument vide.

Pour Jean-Philippe : Je n'ai pas réussi à exploiter la fonction de ton lien, mais j'avoue que je ne connais pas ce domaine.

[ddorange]

Bonjour,
J'ai trouvé une bonne piste grâce à l'enregistreur de macros.
Un vecteur AB est écrit, le curseur est placé juste avant.
Le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub RecupereCaractereEquations
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    MsgBox Selection.Text
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    MsgBox Selection.Text
    Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub

permet d'obtenir A et B.