Discussion :

[Master Sukhoi]

Bonjour Développeuses,
Bonjour Développeurs,

Ma question concerne VBA dans Word et plus particulièrement l'objet "OMaths" et l'objet "Paragraph".
J'essaye de developper une petite macro pour qu'il me compte le nombre de paragraphes (ActiveDocument.Paragraphs.Count) mais sans les equations seules et isolés.
Par exemple:

Dans un triangle rectangle, le carré de la longueur de l’hypoténuse est égal à la somme des carrés des longueurs des côtés de l’angle droit.

Dit autrement, le théorème de Pythagore peut se reformuler de la facon suivante :

A²=B²+C²

Le résultat renvoyé doit être 2 et non 3.
Or le problème est bien là: je n'arrive pas à distinguer équation d'un paragraphe.

En vous remerciant d'avance pour votre contribution passive ou active.

VBAlement,
Sukhoi

[QuestVba]

Bonjour,

Bête question : as-tu une marque de paragraphe entre les deux lignes ?

Dit autrement, le théorème de Pythagore peut se reformuler de la facon suivante :

A2=B2+C2

[Master Sukhoi]

Salut QuestVBA,

j'ai une interligne de 12point mais pas de ¶ entre les lignes.
J'ai beau cherché, je vois pas d'où pourrait venir mon salut...

Si une bonne âme est sensible à ma détresse, je lui en serais reconnaissant

To be continued...

[Heureux-oli]

Salut,

Si tu testes le contenu de ton paragraphe c'est possible.

si c'est une équation, le contenu n'est pas du texte mais une succession de ?

Code :

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

1
2
3
4
5
6
7
8
9
Sub testoli()
Dim myPar As Paragraph
 
For Each myPar In ActiveDocument.Paragraphs
Debug.Print Len(myPar.Range.Text) & "  --   " & myPar.Range.Text
 
Next myPar
 
End Sub

[Master Sukhoi]

Merci Heureux-Oli, le probleme c est que parfois les equations commencent pas "ff"...
Je pense qu il n y a pas de solution.