Discussion :

[salrouge]

bonjour
je construit un document Word avec le COM Microsoft Word Object Laibrary.
C'est ma premiere utilisation de cet utilitaire, et donc je ne sais pas grande chose dessus
je cherche comment manipuler mon document :
* ajuter une ligne de texte (en gras et centré par exemple)
* ajouter une image
* ajouter tout un autre document word (sorte de fusion)
je suis tres reconnaissant pour votre aide.

[bidou]

c'est assez difficile de piloter word sans connaitre son modlèle objet, mais enfin. Le code suivant fait ce que tu demande :

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
Imports Microsoft.Office.Interop
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim WordApp As New Word.Application
        Dim Doc As Word.Document = WordApp.Documents.Add()
        Dim Plage As Word.Range = Doc.Range(0, 0)
        Plage.Text = "bidou.developpez.com"
        Plage.Font.Bold = Word.WdConstants.wdToggle
        Plage.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
        Plage.InsertParagraphAfter()
        Plage = Plage.Next(Word.WdUnits.wdParagraph, 1)
        Plage.InlineShapes.AddPicture(My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\bidou.jpg", LinkToFile:=False, SaveWithDocument:=True)
        Plage.InsertParagraphAfter()
        Plage = Doc.Range(Doc.StoryRanges(Word.WdStoryType.wdMainTextStory).End - 1, Doc.StoryRanges(Word.WdStoryType.wdMainTextStory).End - 1)
        Plage.InsertFile(FileName:=My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\Traduction1.doc", Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False)
        WordApp.Visible = True
    End Sub
End Class

[Pol63]

tu peux aussi faire une macro de ce que tu veux faire et ensuite regarder le code vba de cette macro
tu n'as plus qu'à l'adapter légèrenemt pour qu'il passe dans vs

[salrouge]

c'est vraiment tres interessante votre aide !!
j'ai vraiment fait des effort pour arriver aux resultats mais je trouve le code plus optimisé a ce que j'ai pu faire.
merci pour tout
a+