Discussion :

[didami]

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 :

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
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

[SfJ5Rpw8]

tu peu répéter la question ..?

[didami]

salut,
ma question est comment inserer une succession d'image bitmap sous titrees et commentées dans un meme fichier word
c a dire lorsque je veut inserer une nouvelle image dans le fichier ,il l'insere a la suite de l'autre.
merci pour l'aide

[LeXo]

Je lance une idée

a l'aide du publipostage

tu fasi un fichier Word sous forme d'étiquette
avec des champs de fusion et des <<enregistrements suivant>> a chaque etiquette ou t'oras mis le champ image et le champ commentaire

tu fais un fichier d'entete avec les nom des champs ( donc image et commentaire )

tu fais un fichier de fusion dans lequel tu remplis toutes tes données qui sera la source pour le publipostage

un fichier qui sera rempli par une BDD access, excel....

[khany]

Il suffit d'ouvrir le doc word existant, d'aller à la fin du doc avec une instruction du style :

Code :

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

1
2
 
Word_Application.Selection.EndKey Unit:=wdEnd

A vérifier, je tape de mémoire