Discussion :

[lio33]

Bonjour,

Je cherche à savoir s'il est possible de supprimer une page spécifique d'un document WORD via un pilotage ACCESS.
Les fonctions que je souhaite mettre en place :
Supprimer une page (numéro de page)
Ou alors
Sélectionner tout le contenu d'une page spécifique

Merci d'avance pour vos conseils, solutions ou pistes !

[paidge]

Bonjour,
Tu as quelques exemples d'automation entre Access et Word par ici. Peut-être que cela pourra t'aider

Bonne journée

[lio33]

Merci pour ta réponse.
Oui je me suis inspiré de cela.

Pour la mise à jour de signets, mon code fonctionne, par contre j'ai un souci lorsque je cherche à remplacer des balises dans mon document.
Pour la première balise le changement s'effectue bien, mais pas pour les suivantes.

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
 
      Set objWordApp = New Word.Application
        
        With objWordApp
        
            .Visible = True
            Set objWordDoc = .Documents.Open(parNomFichierWfi)
         
            '-------------------------
            'Mise à jour des signets
            '-------------------------
            
            'Page 0 :
            ' Signet Procédé SIP : cela fonctionne pour les signets
            objWordDoc.Bookmarks("PG_0_PROCEDE_SIP").Range.Text = "Ma valeur"
            
            
            ' Titre complet : fonctionne 
            .Selection.Find.Execute Findtext:="|titre|", ReplaceWith:=monRcsFI!TITRE], Replace:=wdReplaceAll
    
            ' Référence :  ne fonctionne pas dans les en-têtes du document
            .Selection.Find.Execute Findtext:="|ref|", ReplaceWith:=monRcsFI![REFERENCE], Replace:=wdReplaceAll

            ....

Savez vous comment modifier une balise placée dans des en-têtes de documents ?

Merci pour vos idées !

[loufab]

Bonjour,
Au moment où tu commences à utiliser les objets WORD (ou d'autres objets de l'application distante) tu n'es plus dans le périmètre ACCESS.

Je te transfère vers WORD VBA.

Cordialement,

[carden752]

Bonjour,

Pour les en-têtes et pieds de page, il ne faut pas travailler avec l'objet selection directement.

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
 
'Déclaration de variable
Dim s As Section
 
'Parcours de toutes les sections
For Each s In Selection.Sections
 
'Parcours des 3 types de pied de page
    s.Footers(1).Range.Find.Execute Findtext:="|ref|", ReplaceWith:=monRcsFI![Reference], Replace:=wdReplaceAll
    s.Footers(2).Range.Find.Execute Findtext:="|ref|", ReplaceWith:=monRcsFI![Reference], Replace:=wdReplaceAll
    s.Footers(3).Range.Find.Execute Findtext:="|ref|", ReplaceWith:=monRcsFI![Reference], Replace:=wdReplaceAll
 
'Parcours des 3 types d'en-tête
    s.Headers(1).Range.Find.Execute Findtext:="|ref|", ReplaceWith:=monRcsFI![Reference], Replace:=wdReplaceAll
    s.Headers(2).Range.Find.Execute Findtext:="|ref|", ReplaceWith:=monRcsFI![Reference], Replace:=wdReplaceAll
    s.Headers(3).Range.Find.Execute Findtext:="|ref|", ReplaceWith:=monRcsFI![Reference], Replace:=wdReplaceAll
Next s

[lio33]

Merci pour ces infos.

En fait j'ai du adopter une autre solution car je n'arrive pas à remplacer une balise du style |balise| dans mes en-têtes de fichiers Word.

Mon fichier "modèle" est assez chargé.
Il dispose de différents entêtes de page dans des sections différentes.
Les en-têtes sont organisés sous la forme d'une matrice de tableau avec différents champs dans les diverses cellules.

Est-ce cela qui pose un problème ?

D'autre part j'ai un message d'erreur si je cherche à adresser une section autre que section(1).

[carden752]

Bonjour,

L'erreur pour une autre section est surement dû au fait d'utiliser l'objet selection, il vaut mieux utiliser

Code :

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

For Each s In objworddoc.sections

Quand tu dis que cela ne marche pas, est-ce que l'affichage des codes de champs est bien actif?
Est-ce que tu es dans un mode qui permet de visualiser les en-têtes en général, je me mets en affichage entête et pied de page.
Est-ce qu'il y a une erreur ou bien le remplacement ne se fait simplement pas?

[Heureux-oli]

Salut,

Pour ce genre de manipulation, il est beaucoup plus facile de travailler avec des signets que de faire des recherches et remplacement.

Avec un signet, il n'est pas nécessaire d'ouvrir les sections, on accède directement aux objets.

Code :

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

ActiveDocument.Bookmarks("yyy").Range.Text = "AAAA"

ET ce même si l'entête ou le pied de page ne sont pas visible.

[lio33]

Merci pour vos réponses,

J'ai effectivement adopté les signets, ce que je faisais jusqu'à présent, même si c'est plus laborieux à mettre en place dans mon document compte tenu du nombre d'en-tête différents.

Cdt.