ajouter des donnée dans un fichier word existant sans ecraser le contenu
Salut a tous,
je suis arrivée a faire un ptit code qui me permet d'inserer une image bitmap ds un fichier Word deja existant (voir le code ci-dessous). Mais ce que j'ai envi d'ajouter est de conserver le meme fichier existant et d'ajouter d'avantage des data (images, textes,...) au meme fichier ecraser son contenu. y a t-il une synatxe permettant ca?
Merci d'avance.
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
| Public Sub msword_coller()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim fichier As String
On Error Resume Next
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.open(App.Path & "\results.doc", ReadOnly:=False) 'ouvrir le document Word
WordDoc.InlineShapes.AddPicture FileName:= _
App.Path & "\graph.bmp" 'adapter le chemin de l'image à insérer
On Error GoTo 0
With WordDoc
.ActiveWindow.Selection.Font.name = "Arial"
.ActiveWindow.Selection.Font.Size = 16
.ActiveWindow.Selection.TypeText Text:="Parameter : " & nom_param
.ActiveWindow.Selection.TypeParagraph
.ActiveWindow.Selection.TypeParagraph
End With
With WordDoc.InlineShapes(1) 'adapter l'index si d'autres images existantes dans le document
.Height = 375 'changement dimension image insérée : hauteur
.Width = 450# 'largeur
.ConvertToShape
End With
With WordDoc.Shapes(1)
.ZOrder msoBringInFrontOfText 'image au premier plan devant le texte
End With
WordDoc.Application.ActiveDocument.Save
WordDoc.Close 'fermer le document Word
WordApp.Quit 'fermer l'application Word
End Sub |
