Discussion :

[ac/dc]

Bonjour,

J'ai un document Word qui contient une image {INCLUDPICTURE "C:\image.jpg"}.
Il faut que je fasse Shift+F9 pour que l'image apparaisse. Est ce que je peux créer une macro qui affiche l'image automatiquement ?

Pour le moment, j'ai le Update(), mais cette fonction doit faire un F9 et non un Shift+F9 je pense...

Code :

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

1
2
3
4
 
For Each aField In aStory.Fields
       aField.Update
Next aField

Merci

[Heureux-oli]

Salut,

Et si tu utilises un objet Selection.

Code :

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

1
2
3
 
Selection.WholeStory
Selection.Fields.Update

[ac/dc]

Non, je dois parcourir mes champs un à un, pour mettre à jour les champs ASK qu'une seule fois s'ils existent plusieurs fois dans le document

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
 
Sub AutoOpen()
' AutoOpen Macro
' Macro created 05/10/2008 by acer
Dim aStory As Range
Dim aField As Field
Dim tableau(1000) As String
Dim i As Integer
Dim majOK As Boolean
Dim cptTableau As Integer
cptTableau = 0
For Each aStory In ActiveDocument.StoryRanges
    For Each aField In aStory.Fields
        majOK = True
        For i = 0 To cptTableau
            If UCase(tableau(i)) = UCase(aField.Code.Text) Then
                majOK = False
            End If
        Next i
        If majOK = True Then
            aField.Update
            If InStr(aField.Code.Text, "ASK") <> 0 Then
                tableau(cptTableau) = aField.Code.Text
                cptTableau = cptTableau + 1
            End If
        End If
    Next aField
Next aStory
End Sub

[ac/dc]

J'ai trouvé :

Code :

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

1
2
 
SendKeys "%{F9}"

[ac/dc]

En fait maintenant, j'ai un autre problème, si mon image est déjà affichée et que j'exécute la macro, on ré-affiche le INCLUDEPICTURE ... puisqu'on fait ALT+F9

Une solution ?
Merci

[Sepia]

Salut,

Oui, il suffit de rechercher au départ tous les champs qui passés en "code" et non en "valeur" par une simple recherche sur le texte "INCLUDPICTURE" avec les options "Mot entier" et "Respecter la casse" cochées (pour être plus sûr). Puis quand tu en trouves un, tu le bascules par

Code :

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

SendKeys  "%{F9}"

.

Ainsi une fois ton doc parcouru, tous tes champs sont affichés en "valeur" et tu n'as plus qu'à les parcourir comme tu le fais et c'est OK.

@+