Discussion :

[XemHA]

Bonjour
Je voudrais creer un document Word a partir de VB.Net, mais j'ai plusieurs problemes :
Je n'arrive pas a aller a la ligne suivante
et je voudrais inserer une image, prise d'un controle OpenGL (Controle du Framework TAO). J'arrive deja a enregistrer cette image en me servant de glReadPixels, mais je ne sait pas comment creer une image et l'ajouter dans word.

Voila ma source :

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
16
17
18
19
20
21
22
23
24
25
26
27
    Public Sub Savetoword()
        Dim Appword As New Word.Application
        Dim MonDoc As Word.Document = Appword.Documents.Add
        Appword.Visible = False
        Clipboard.SetDataObject(FrmMain.LblTemp.Text)
 
        Dim i As Integer
        Dim StrWrite As String
        For i = 0 To FrmMain.ListViewDaten.Items.Count - 1
            StrWrite = FrmMain.ListViewDaten.Items(i).Text + " " + FrmMain.ListViewDaten.Items(i).SubItems(1).Text
            MonDoc.Content.InsertAfter(StrWrite)
'Et la je voudrais passer a la ligne suivante
        Next
 
        FrmMain.OpenGlControlKontur.Refresh() 
        Dim CurrentWidth As Integer = FrmMain.OpenGlControlKontur.Size.Width
        Dim CurrentHeight As Integer = FrmMain.OpenGlControlKontur.Size.Height
        Dim b As Bitmap = New Bitmap(CurrentWidth, CurrentHeight, Imaging.PixelFormat.Format64bppArgb)
        Dim bd As Imaging.BitmapData = b.LockBits(New System.Drawing.Rectangle(0, 0, CurrentWidth, CurrentHeight), Imaging.ImageLockMode.WriteOnly, Imaging.PixelFormat.Format32bppArgb)
        Gl.glReadPixels(0, 0, CurrentWidth, CurrentHeight, Gl.GL_BGRA_EXT, Gl.GL_UNSIGNED_BYTE, bd.Scan0)
        b.UnlockBits(bd)
        b.RotateFlip(RotateFlipType.RotateNoneFlipY)
 
        MonDoc.Content.InsertCaption(b) 'Ne marche pas (CastException
 
        MonDoc.Save()
        Appword.Quit()

Merci

[Skalp]

Pour écrire du texte, je te propose de passer plutôt par :

Code :

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

1
2
3
4
5
6
7
Appword.Selection.TypeText("le texte à écrire")
 
' Le passage à la ligne se fait alors par :
Appword.Selection.TypeParagraph()
 
' Et l'insertion d'une image se fait par :
Appword.Selection.InlineShapes.AddPicture("chemin complet de l'image à insérer")

D'une manière générale, tu peux enregistrer une opération dans une macro Word. Ensuite, tu peux consulter le code VBA et observer quelles sont les méthodes utilisées. Ce sont les mêmes dans la bibliothèque COM.

Si tu veux passer par le copier-coller (pour du texte ou ton image), je te renvoie vers l'article de Jean-Marc Rabilloud : Piloter Office

[XemHA]

Oui j'avais vu l'article,c'est pour cela que j'utilisais la methode du copier coller, mais je vais preferer ta methode, merci.
Par contre pour l'image je prefererais ne pas a avoir a creer une image pour l'inserer dans le document puis resuprimer cette image.
Y'aurait t'il une methode pour integrer directement un bitmap?

[quentincabo]

Bonjour,
Voilà un projet qui pourrai t'aider un peu, il parle de word et de vb.net
http://www.codeproject.com/KB/miscct...&select=506793.

[Skalp]

Par contre pour l'image je prefererais ne pas a avoir a creer une image pour l'inserer dans le document puis resuprimer cette image.
Y'aurait t'il une methode pour integrer directement un bitmap?

Oui, je te comprend ! C'est pourquoi j'ai tenté en utilisant le presse-papier...

Code :

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

1
2
3
4
' Copier :
Clipboard.SetImage(b)
' Coller :
Appword.Selection.Paste()

[XemHA]

Merci, ca marche!

Jai juste encore une question : J'ai utilise la librairies Word 8.0 (97), si le programme est installe sur des machines avec des version Office plus recentes, ca marche toujours? je pense que oui mais j'aimerais une confirmation.

[quentincabo]

desole je me suis trompé dans mon lien
http://www.codeproject.com/KB/miscct...753#xx409753xx

[Skalp]

Merci, ca marche!

Jai juste encore une question : J'ai utilise la librairies Word 8.0 (97), si le programme est installe sur des machines avec des version Office plus recentes, ca marche toujours? je pense que oui mais j'aimerais une confirmation.

Normalement oui ! Microsoft assure la compatibilité descendante de ses différentes versions de bibliothèques Word.
Word 97 commence à dater, mais tout ce que je t'ai mis en code fonctionne avec les bibliothèques word 2003, donc ça devrait aller.