Koptekst

[Kramer]

Is het mogelijk om vanuit een Userform een tekst in de koptekst te plaatsen.

Volgens mij kan dat niet rechtstreeks. Tenminste mij lukt het niet.

Of moet je eerst een macro maken die eerst de koptekst opend, tekst er inzet, en dan hem weer sluit.

 

[snb]

Als je bedoelt een koptekst in Word met behulp van een opdrachtknop

Private Sub Commandbutton1_Click
    On Error Resume Next
    ActiveDocument.StoryRanges(wdPrimaryHeaderStory).Text = TextBox1.Text
    If Err.Number > 0 Then
        With ActiveWindow.ActivePane.View
            .Type = wdPrintView
            .SeekView = wdSeekPrimaryHeader
            ActiveDocument.StoryRanges(wdPrimaryHeaderStory).Text = TextBox1.Text
            .SeekView = wdSeekMainDocument
        End With
    End If
End Sub

 

[Kramer]

vanuit een userform

Ik ben een sjabloon aan het maken voor rapporten. Dus de mensen krijgen eerst een Userform voor hun neus. Hier kunnen ze dus Titel ondertitel, enz ingeven. Dus ook een koptekst. Dit is dus altijd variable.

 

[snb]

Vorige suggestie aangepast.
Jouw stelling over een variabele klopt niet.

 

[Kramer]

Hoezo klopt mijn stelling over een variable niet,

O laat maar ik zie het al.

Nog 1 vraag. Hij zet de tekst nu neer op de eerst pagina. Eigenlijk moet dit op de 2 pagina beginnen omdat de eerst pagina is afwijkend (namelijk titelpagina).

Ik heb dus na pagina 1 een sectie einde ingevoegd. Is dit ook mogelijk.

Alvast bedankt

 

[snb]

Ja dat kan.
Met de aangeleverde code kun je nu ook bedenken hoe dat zou moeten.
Onthoud je beter dan wanneer het wordt voorgekauwd.

 

[Kramer]

Lol