[VBA]Copier en-tête, pied de page avec un serveur activeX [Résolu]

[petit806]

Bonjour,

Je me sert de Matlab pour générer un rapport au format RTF et je le modifie ensuite avec un serveur activeX mais plusieurs problèmes se pose à moi.

Je dois copier un en-tête et un pied de page dans mon rapport. J'y arrive mais mon fichier rtf possède plusieurs sections et l'en t'en-tête et le pied de page ne sont copiés que pour la première section de mon rapport (ie la page de titre dans mon cas).
Comment puis je faire pour que l'en-tête et le pied de page apparaissent pour toutes les section du rapport?
Y a t'il une commande pour dire à word que les en-tête et les pieds de page sont identiques pour toutes les sections?
Si ce n'est pas le cas comment faire pour selectionner les en-tte et pied de page de chaque sections et y coller mon nouvel en-tête?

Merci d'avance pour vos conseils

[Heureux-oli]

Si tu possèdes plusieurs sections, la meilleure chose est d'insérer l'entête et le pied de page pour chaque section.

Comment insères-tu l'entête ou le pied de page ?

[petit806]

Merci pour cette réponse rapide.

Par contre je ne sais pas comment accéder au en-tête et pied de page des autres sections de mon rapport, j'ai recherché sur le forum devellopez.com et sur le site de microsoft mais je n'ai pas trouver d'aide sur les fonctions que je peux utiliser avec le serveur activeX que je lance (je n'ai peut être pas chercher avec les bons mots clef mais connaissant mal ces fonctionnalités je ne sais pas trop quel mot clef utilisé).
Pouvez vous m'indiquer des liens pour obtenir ce type de documentation? (Ce que j'ai fait je l'ai fait en m'inspirant d'un code que j'ai trouvé sur un newsgroup d'aide sur Matlab).

Pour te répondre, j'utilise un document word(teamplate.rtf) contenant un en-tête générique que je copie et que je colle dans le document du rapport.

Ca me donne un code comme ceci:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
word = actxserver('word.Application');
headerfile = invoke(word.Documents,'open',[pathstr '\teamplate.rtf']);
rptDoc = invoke(word.Documents,'open',[tmpdir '\' name '.rtf']); % The report
 
headerfile.ActiveWindow.ActivePane.View.Type ='wdPrintView';
headerfile.ActiveWindow.ActivePane.View.SeekView='wdSeekCurrentPageHeader';
headerfile.ActiveWindow.ActivePane.Selection.HeaderFooter.Range.Copy; %copying the header
 
rptDoc.Activate;
rptDoc.ActiveWindow.ActivePane.View.Type ='wdPrintView';
rptDoc.ActiveWindow.ActivePane.View.SeekView='wdSeekCurrentPageHeader';
rptDoc.ActiveWindow.ActivePane.Selection.HeaderFooter.Range.Paste; %pasting the header
 
headerfile.Activate;
headerfile.ActiveWindow.ActivePane.View.Type ='wdPrintView';
headerfile.ActiveWindow.ActivePane.View.SeekView='wdSeekCurrentPageFooter';
headerfile.ActiveWindow.ActivePane.Selection.HeaderFooter.Range.Copy; %copying the footer
 
rptDoc.Activate;
rptDoc.ActiveWindow.ActivePane.View.Type ='wdPrintView';
rptDoc.ActiveWindow.ActivePane.View.SeekView='wdSeekCurrentPageFooter';
rptDoc.ActiveWindow.ActivePane.Selection.HeaderFooter.Range.Paste; %pasting the footer

[Heureux-oli]

Code :

1
2
3
4
With ActiveDocument.Sections(1)
    .Headers(wdHeaderFooterPrimary).Range.Text = "Header text"
    .Footers(wdHeaderFooterPrimary).Range.Text = "Footer text"
End With

Il faut compter les sections

Code :

i =ActiveDocument.section.count

Une boucle

Code :

1
2
3
4
5
6
 
For j = 1 to i
    With ActiveDocument.Sections(j)
       .Headers(wdHeaderFooterPrimary).Range.Text = "Header text"
       .Footers(wdHeaderFooterPrimary).Range.Text = "Footer text"
    End With

[petit806]

Merci grace au code que tu m'as fourni que tu m'as fourni je vais pouvoir résoudre mon problème.

Par contre pour information pour d'autre utilisateurs, Matlab a sa propre synthaxe pour l'utilisation de word:

exemple

Code :

1
2
3
4
With ActiveDocument.Sections(1)
    .Headers(wdHeaderFooterPrimary).Range.Text = "Header text"
    .Footers(wdHeaderFooterPrimary).Range.Text = "Footer text"
End With

s'écris en Matlab

Code :

1
2
ActiveDocument.Sections.Item(1).Headers.Item('wdHeaderFooterPrimary').Range.Text = "Header text"
ActiveDocument.Sections.Item(1).Footers.Item('wdHeaderFooterPrimary').Range.Text = "Footer text"

[Heureux-oli]

Ne connaissant pas Matlab, je t'ai donné ce que j'avais.

[Dut]

Envoyé par petit806

Par contre pour information pour d'autre utilisateurs, Matlab a sa propre synthaxe pour l'utilisation de word:

Effectivement, on aurait très bien pu en discuter sur le forum MATLAB