écrire une équation dans un document Word avec Visual Basic 2010Résolu

Question

Bonjour, 
je sollicite votre aide encore une fois : 
j'ai essayé de créer des équation dans un document word via Visual basic 2010 Express 
la seul chose que j'ai pu trouvé est pour VBA. Word dans ce lien : 
http://software-solutions-online.com/word-vba-creating-equations/ 
voici le code : 
Sub Example3()
Dim objRange As Range
Dim objOMath As OMath
Set objRange = Selection.Range
objRange.Text = _
"f(x)=a_0+" + ChrW(8721) + "_(n=1)^8" + ChrW(9618) + _
"(a_n  cos" + ChrW(12310) + "npx/L" + ChrW(12311) + _
"+b_n  sin" + ChrW(12310) + "npx/L" + ChrW(12311) + " )"
Set objOMath = OMaths.Add(objRange).OMaths.Item(1)
objOMath.BuildUp
End Sub 

j'ai essayé de l'adapter pour Visual basic 2010 express, voici le code : 
Imports System.IO
Imports Word = Microsoft.Office.Interop.Word
Public Class Form1
    Dim oWord As New Word.Application
    Dim oDoc As Word.Document
    Dim oPara1 As Word.Paragraph
    Dim objOMath As Word.OMath
    Dim cheminPlusFichier As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Démarrez Word et ouvrez le modèle de document.
        SaveFileDialog1.Filter = "Document Word (*.docx)|*.docx"
        SaveFileDialog1.Title = "Enregistrer sous"
        SaveFileDialog1.FileName = "Notes de calcul"
        If SaveFileDialog1.ShowDialog() = DialogResult.OK Then 'si l'utilisateur a bien cliqué sur ok
            cheminPlusFichier = SaveFileDialog1.FileName
            System.IO.File.WriteAllBytes(cheminPlusFichier, My.Resources.Note_de_calcul)
        End If
        cheminPlusFichier = SaveFileDialog1.FileName
        oDoc = oWord.Documents.Open(SaveFileDialog1.FileName)
        oDoc.Application.DisplayAlerts = False 'supprime les messages d'alerte
        'rendre le classeur visible 
        oWord.Visible = False
         'Insert a paragraph at the beginning of the document.
        oPara1 = oDoc.Content.Paragraphs.Add
        'inserer le text qui se trouve dans la textBox 7
        oPara1.Range.Text = _
        "f(x)=a_0+" + ChrW(8721) + "_(n=1)^8" + ChrW(9618) + _
        "(a_n  cos" + ChrW(12310) + "npx/L" + ChrW(12311) + _
        "+b_n  sin" + ChrW(12310) + "npx/L" + ChrW(12311) + " )"
        objOMath = oWord.OMaths.Add(oPara1).oWord.OMaths.Item(1)
        objOMath.BuildUp()
    End Sub
End Class

première mot l'équation ne se crée pas bien dans Word 
et deuxième mot une erreur s'affiche : 
L'exception MissingMemberException n'a pas été gérée 
Le membre public 'OMaths' du type 'ApplicationClass' est introuvable. 
dans ce code : 
 objOMath = oWord.OMaths.Add(oPara1).oWord.OMaths.Item(1)
quelqu'un pourrait me suggérer une solution 
merci d'avance pour votre aide 
 --
Comment ça marche c'est cool! 
      1000 Merci les Amis

Whismeril · Answer

Bonjour

ben t'as pas du chercher bien longtemps,
en moins d'une 1/2 h j'ai trouvé et testé

Range rng = oDoc.Range()
            rng.Text = "BD/DC = AB/AC "

rng = rng.OMaths.Add(rng)
            OMath objEq = rng.OMaths(1)
            objEq.BuildUp() 
 
Quand j'étais petit, la mer Morte n'était que malade.
George Burns

Whismeril · Answer

Quelles erreurs?

Whismeril · Answer

Au temps pour moi, je l'ai mal traduit en vb

dim rng as Range = oDoc.Range()
            rng.Text = "BD/DC = AB/AC "

rng = rng.OMaths.Add(rng)
            OMath objEq = rng.OMaths(1)
            objEq.BuildUp()

Whismeril · Answer

L'éditeur d'équation est il installé? 

tu veux parler de Références -> Ajouter -> COM -> Microsoft Word 12.0 Objet Librarya 
si c'est ca je l'ai déja installé 
 
non dans word, as tu l'éditeur d'équation?


je n'ai pas corrigé la seconde déclaration

dim rng as Range = oDoc.Range()
            rng.Text = "BD/DC = AB/AC "

rng.OMaths.Add(rng)
            dim objEq as OMath  = rng.OMaths(1)
            objEq.BuildUp()

Whismeril · Answer

Alors, marque le sujet résolu, et la prochaine fois essaye de te débrouiller un peu avec ce qu'on te donne.
Certes j'ai posté une traduction depuis le c# incorrecte, mais tu avais tous les éléments en main pour trouver par toi même.

Whismeril · Answer

Je te conseille de laisser Word visible, si ton application plante, Word reste actif et tu n'as plus accès au fichier.
Si Word est visible, il est aisé de le fermer.
Sinon, la seule solution est de tuer le processus.

écrire une équation dans un document Word avec Visual Basic 2010

6 réponses

Votre réponse

Discussions similaires