[VS2005] Creer document Word

Version imprimable

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:

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

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

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

28/03/2008, 14h59
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?
28/03/2008, 15h25
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.
28/03/2008, 17h55
Skalp
Citation:

Envoyé par XemHA

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:

1 2 3 4 ' Copier : Clipboard.SetImage(b) ' Coller : Appword.Selection.Paste()
:ccool:
31/03/2008, 08h58
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.
31/03/2008, 11h12
quentincabo

desole je me suis trompé dans mon lien
http://www.codeproject.com/KB/miscct...753#xx409753xx:oops:
31/03/2008, 11h57
Skalp

Citation:

Envoyé par 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.

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.
31/03/2008, 13h19
XemHA

Merci!
Oui ca commence a dater, mais c'est pour mon projet de stage, et il se peut qu'il y ait encore quelques postes oú office 97 est installe (je demenderais confirmation plus tard aux utilisateurs) et comme ca meme si jutilise 2003, quand il passeront a 2007 il y aura pas de souci.