Running headers with a logo
in [Word VBA]
|
From: andreas on 5 Apr 2010 03:09 Dear Experts: I would like to place a logo as a running header on even and odd pages of the current document: It has the following setup Page Layout: Different even and odd headers and footers Mirror Margins The logo (c:\CompanyLogo.png) to be inserted should have the following properties: Picture Layout: in front of text Picture Position: Horizontal: Book layout, outside of margin Vertical: Absolute position, 1.4 cm below Page I know the code to insert headers programmatically such as sect.PageSetup.OddAndEvenPagesHeaderFooter = True sect.PageSetup.MirrorMargins = True Set rng = sect.Headers(wdHeaderFooterEvenPages).range rng. .....etc. So there is no need to show me this. Help is much appreciated. Thank you very much in advance. Regards, Andreas
From: macropod on 5 Apr 2010 03:34 Hi andreas, Rather than creating the document layout with code each time, why not simply create a template with the required layout, then use that template? -- Cheers macropod [Microsoft MVP - Word] "andreas" <andreas.hermle(a)gmx.de> wrote in message news:f2157255-8484-4900-a390-879f47f4820c(a)z6g2000yqz.googlegroups.com... Dear Experts: I would like to place a logo as a running header on even and odd pages of the current document: It has the following setup Page Layout: � Different even and odd headers and footers � Mirror Margins The logo (c:\CompanyLogo.png) to be inserted should have the following properties: � Picture Layout: in front of text � Picture Position: Horizontal: Book layout, outside of margin Vertical: Absolute position, 1.4 cm below Page I know the code to insert headers programmatically such as sect.PageSetup.OddAndEvenPagesHeaderFooter = True sect.PageSetup.MirrorMargins = True Set rng = sect.Headers(wdHeaderFooterEvenPages).range rng. .....etc. So there is no need to show me this. Help is much appreciated. Thank you very much in advance. Regards, Andreas
From: andreas on 5 Apr 2010 04:51 On Apr 5, 9:34 am, "macropod" <macro...(a)invalid.invalid> wrote: > Hi andreas, > > Rather than creating the document layout with code each time, why not simply create a template with the required layout, then use > that template? > > -- > Cheers > macropod > [Microsoft MVP - Word] > > "andreas" <andreas.her...(a)gmx.de> wrote in messagenews:f2157255-8484-4900-a390-879f47f4820c(a)z6g2000yqz.googlegroups.com... > > Dear Experts: > > I would like to place a logo as a running header on even and odd pages > of the current document: > > It has the following setup > > Page Layout: > > Different even and odd headers and footers > Mirror Margins > > The logo (c:\CompanyLogo.png) to be inserted should have the following > properties: > Picture Layout: in front of text > Picture Position: > Horizontal: Book layout, outside of margin > Vertical: Absolute position, 1.4 cm below Page > > I know the code to insert headers programmatically such as > > sect.PageSetup.OddAndEvenPagesHeaderFooter = True > sect.PageSetup.MirrorMargins = True > > Set rng = sect.Headers(wdHeaderFooterEvenPages).range > rng. .....etc. > > So there is no need to show me this. > > Help is much appreciated. Thank you very much in advance. > > Regards, Andreas Hi macropod, thank you very much for your swift response. I am aware that creating a template would be the ideal solution for my question. Nevertheless, I would like to know the VBA code to achieve the insertion of the company logo. Thank you very much for your help in advance. Regards, Andreas
From: Doug Robbins - Word MVP on 5 Apr 2010 05:25 Creating the code to do this is more trouble than it is worth. Better to just set it up manually, in a template if you need to use it over and over again. -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "andreas" <andreas.hermle(a)gmx.de> wrote in message news:f2157255-8484-4900-a390-879f47f4820c(a)z6g2000yqz.googlegroups.com... > Dear Experts: > > I would like to place a logo as a running header on even and odd pages > of the current document: > > It has the following setup > > Page Layout: > > � Different even and odd headers and footers > � Mirror Margins > > The logo (c:\CompanyLogo.png) to be inserted should have the following > properties: > � Picture Layout: in front of text > � Picture Position: > Horizontal: Book layout, outside of margin > Vertical: Absolute position, 1.4 cm below Page > > > I know the code to insert headers programmatically such as > > sect.PageSetup.OddAndEvenPagesHeaderFooter = True > sect.PageSetup.MirrorMargins = True > > > Set rng = sect.Headers(wdHeaderFooterEvenPages).range > rng. .....etc. > > So there is no need to show me this. > > Help is much appreciated. Thank you very much in advance. > > Regards, Andreas
From: andreas on 5 Apr 2010 06:36
On Apr 5, 11:25 am, "Doug Robbins - Word MVP" <d...(a)REMOVECAPSmvps.org> wrote: > Creating the code to do this is more trouble than it is worth. Better to > just set it up manually, in a template if you need to use it over and over > again. > > -- > Hope this helps. > > Please reply to the newsgroup unless you wish to avail yourself of my > services on a paid consulting basis. > > Doug Robbins - Word MVP, originally posted via msnews.microsoft.com > > "andreas" <andreas.her...(a)gmx.de> wrote in message > > news:f2157255-8484-4900-a390-879f47f4820c(a)z6g2000yqz.googlegroups.com... > > > > > Dear Experts: > > > I would like to place a logo as a running header on even and odd pages > > of the current document: > > > It has the following setup > > > Page Layout: > > > Different even and odd headers and footers > > Mirror Margins > > > The logo (c:\CompanyLogo.png) to be inserted should have the following > > properties: > > Picture Layout: in front of text > > Picture Position: > > Horizontal: Book layout, outside of margin > > Vertical: Absolute position, 1.4 cm below Page > > > I know the code to insert headers programmatically such as > > > sect.PageSetup.OddAndEvenPagesHeaderFooter = True > > sect.PageSetup.MirrorMargins = True > > > Set rng = sect.Headers(wdHeaderFooterEvenPages).range > > rng. .....etc. > > > So there is no need to show me this. > > > Help is much appreciated. Thank you very much in advance. > > > Regards, Andreas- Hide quoted text - > > - Show quoted text - Hi macropod, ok, thank you very much for your help. I will heed your advice. Thank you. Regards, Andreas |