Hallo,
Na wat experimenteren wil ik in Excel een Word-document nabootsen om resultaten die in tabellen en een grafiek in Excel worden gemaakt te voorzien van een toelichtende tekst. Het document moet worden voorzien van het bedrijfslogo en een afwijkende eerste pagina voor wat betreft de kopteksten.
Voor de eerste pagina moet linksboven het bedrijfslogo komen en rechtsboven enkele algemene gegevens.
Voor de tweede pagina linksboven eveneens het bedrijfslogo en rechtsboven de datum, genoteerd als "12 mei 2018" en daaronder "Pagina x van y".
Afzonderlijk lukt het mij om de twee kopteksten te krijgen. Voor de eerste pagina heb ik de VBA-code:
Voor de tweede pagina heb ik nu de VBA-code:
Heeft iemand een oplossing om de VBA-code zo te krijgen dat ze worden gecombineerd zoals gevraagd?
Alvast bedankt voor de reactie.
Mvg,
Ocirne
Na wat experimenteren wil ik in Excel een Word-document nabootsen om resultaten die in tabellen en een grafiek in Excel worden gemaakt te voorzien van een toelichtende tekst. Het document moet worden voorzien van het bedrijfslogo en een afwijkende eerste pagina voor wat betreft de kopteksten.
Voor de eerste pagina moet linksboven het bedrijfslogo komen en rechtsboven enkele algemene gegevens.
Voor de tweede pagina linksboven eveneens het bedrijfslogo en rechtsboven de datum, genoteerd als "12 mei 2018" en daaronder "Pagina x van y".
Afzonderlijk lukt het mij om de twee kopteksten te krijgen. Voor de eerste pagina heb ik de VBA-code:
Code:
Sub KoptekstDatum1()
ActiveSheet.PageSetup.LeftHeader = "&G"
ActiveSheet.PageSetup.RightHeader = _
"&""-,Vet""Algemene gegevens&""-,Standaard""&10" & Chr(10) & "Regel 1" & Chr(10) & "Regel 2"
End Sub
Voor de tweede pagina heb ik nu de VBA-code:
Code:
Sub KoptekstDatum2()
ActiveSheet.PageSetup.LeftHeader = "&G"
ActiveSheet.PageSetup.RightHeader = Format(Now(), "d mmm yyyy") & Chr(10) & "Pagina &P van &N"
End Sub
Heeft iemand een oplossing om de VBA-code zo te krijgen dat ze worden gecombineerd zoals gevraagd?
Alvast bedankt voor de reactie.
Mvg,
Ocirne