View Single Post
 
Old 10-19-2019, 01:41 AM
jpl jpl is offline Windows 7 64bit Office 2010 32bit
Advanced Beginner
 
Join Date: Jan 2016
Location: France
Posts: 33
jpl is on a distinguished road
Default

Votre message ne me rajeunit pas !
Mes conclusions sont les suivantes :
Dans une équation, on peut insérer 21 structures, qui correspondent à l'énumération WdOMathFunctionType.
Par défaut, on insère du texte au format math (qui correspond à la constante wdOMathFunctionText).
On n'a donc pas besoin d'utiliser OMath.Functions.Add pour insérer du texte au format math.
La macro suivante montre la différence entre les deux formes de texte dans une équation.
Code:
Sub TexteMathTexteNormal()
   Dim monEq As OMath, maFonction As OMathFunction, maPlage As Range
   ActiveDocument.Range.Delete
   Set monEq = ActiveDocument.OMaths.Add(Selection.Range).OMaths(1)
   
   'on insere du texte au format math : on n'a pas besoin de la méthode Add
   Set maPlage = monEq.Range
   maPlage.Text = "type=wdOMathFunctionText"
   
   'on insere du texte au format normal : on utilise la méthode Add
   maPlage.Collapse (wdCollapseEnd)
   maPlage.Text = "type=wdOMathFunctionNormalText"
   Set maFonction = monEq.Functions.Add(Range:=maPlage, Type:=wdOMathFunctionNormalText)
  End Sub
Si on met un point d'arrêt à la dernière instruction, on voit bien que le texte "type=wdOMathFunctionNormalText" est inséré au format math, avant d'être converti en texte normal.
Reply With Quote