VBA to create portrait & landscape pages

**Paskie_be** · 05-02-2022, 09:33 AM

Hello,
I've got this Word doc containing VBA macro and aiming at allowing the user to create any document from the drop-down list in an interface. Now, one of the documents to generate wants page 1 in portrait and the rest in landscape. Any clue how to handle this?
The overall code is as follows:

Private Sub CommandButtonCreate_Click()
    With ActiveDocument.PageSetup
        .PaperSize = wdPaperA4
        .TopMargin = CentimetersToPoints(2.54)
        .LeftMargin = CentimetersToPoints(2.54)
        .RightMargin = CentimetersToPoints(2.54)
        .BottomMargin = CentimetersToPoints(2.54)
    End With
    InsertExistingBuildingBlock
    'If ComboBoxDocType.ListIndex = 0 Then
        'If Selection.PageSetup.Orientation = 0 Then
           ' Selection.PageSetup.Orientation = 1 'landscape
        'End If
    'Else
       ' Selection.PageSetup.Orientation = 0 'portrait
    'End If
    With ActiveDocument
            .Bookmarks("EVTBookMarkMarkingHdr").Range.Text = ComboBoxMarking.Value
            .Bookmarks("EVTBookMarkMarkingFtr").Range.Text = ComboBoxMarking.Value
    End With
    Me.Repaint
    EVT.Hide
End Sub

Private Sub userform_initialize()
ComboBoxDocType.List = Array("Compilation of Comments", "Lessons Observation", "Military Advice", "Provisional Agenda", "Annotated Agenda", "Letters", "Internal Order", "Notes", "DG EUMS Report")
ComboBoxMarking.List = Array("", "LIMITE")
'ListBoxCoC.List = Array("General Comments", "Specific Comments")
'ListBoxMA.List = Array("References", "INTRODUCTION AND AIM", "CONSIDERATIONS", "RECOMMENDATION(S)")
'ListBoxEUMC.List = Array("Adoption of Agenda (ProvAg)", "Adoption of Agenda (OoP)", "Agenda Point (ProvAg)", "Agenda Point (OoP)", "Agenda Point (Possible) (All)", "Information (ProvAg)", "Information (OoP)", "Next Meeting (all)", "AOB @ 28 (All)", "Op. ALTHEA (All)", "AOB @ 27 (All)", "Notes (ProvAg)")
'ComboBoxIOMarking.List = Array("", "LIMITE")
ComboBoxSignature.List = Array("DIRECTOR GENERAL", "DEPUTY DIRECTOR GENERAL", "DIRECTOR MPCC", "COS MPCC")
ComboBoxAttnOf.List = Array("DIRECTOR GENERAL", "DEPUTY DIRECTOR GENERAL", "Director MPCC", "Chief of Staff MPCC")
ComboBoxAim.List = Array("INFORMATION", "DECISION")
ComboBoxRecommendation.List = Array("Read ahead of ", "Read by ", "Decision taken by ", "In due course ")
'ListBoxIOOriginator.List = Array("EUMS", "MPCC")
ComboBoxIOYear.List = Array("2017", "2018", "2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030")
ComboBoxIONumber.List = Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", "91", "92", "93", "94", "95", "96", "97", "98", "99")
ComboBoxIONumberMPCC.List = Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", "91", "92", "93", "94", "95", "96", "97", "98", "99")
'ComboBoxLetterMarking.List = Array("", "LIMITE")
ComboBoxLetterAuthor.List = Array("DIRECTOR GENERAL", "DEPUTY DIRECTOR GENERAL", "DIRECTOR MPCC", "COS MPCC")
ListBoxLetterOriginator.List = Array("", "EUMS", "MPCC")
ListBoxIOOriginator.List = Array("EUMS", "MPCC")
ListBoxNoteOriginator.List = Array("EUMS", "MPCC")
'ComboBoxNoteMarking.List = Array("", "LIMITE")
End Sub

Private Sub ComboBoxLetterAuthor_Change()
If ComboBoxLetterAuthor.Value = "DIRECTOR GENERAL" Then
TextBoxLetterSignatureName.Value = "Hervé BLEJEAN"
TextBoxLetterSignatureRank.Value = "Vice Admiral"
End If
If ComboBoxLetterAuthor.Value = "DEPUTY DIRECTOR GENERAL" Then
TextBoxLetterSignatureName.Value = "Giovanni MANIONE"
TextBoxLetterSignatureRank.Value = "Major General"
End If
'If ComboBoxLetterAuthor.Value = "DIRECTOR MPCC" Then
If ComboBoxLetterAuthor.Value = "DIRECTOR MPCC" Then
TextBoxLetterSignatureName.Value = "Hervé BLEJEAN"
TextBoxLetterSignatureRank.Value = "Vice Admiral"
End If
If ComboBoxLetterAuthor.Value = "COS MPCC" Then
TextBoxLetterSignatureName.Value = "Herminio MAIO"
TextBoxLetterSignatureRank.Value = "Major General"
End If
End Sub

Private Sub ComboBoxSignature_Change()
If ComboBoxSignature.Value = "DIRECTOR GENERAL" Then
TxtSignatureName.Value = "Hervé BLEJEAN"
    ElseIf ComboBoxSignature.Value = "DEPUTY DIRECTOR GENERAL" Then
    TxtSignatureName.Value = "Giovanni MANIONE"
        ElseIf ComboBoxSignature.Value = "DIRECTOR MPCC" Then
        TxtSignatureName.Value = "Hervé BLEJEAN"
            ElseIf ComboBoxSignature.Value = "DIRECTOR MPCC" Then
            TxtSignatureName.Value = "Hervé BLEJEAN"
                Else: TxtSignatureName.Value = "Herminio MAIO"
End If
If ComboBoxSignature.Value = "DIRECTOR GENERAL" Then
TxtSignatureRank.Value = "Vice Admiral"
    ElseIf ComboBoxSignature.Value = "DIRECTOR MPCC" Then
    TxtSignatureRank.Value = "Vice Admiral"
        Else: TxtSignatureRank.Value = "Major General"
    End If

End Sub

Private Sub ComboBoxDocType_Change()
     
'FrameLO.Visible = False
'FrameCoC.Visible = False
'FrameMA.Visible = False
'FrameEUMC.Visible = False
FrameLetter.Visible = False
FrameInternalOrder.Visible = False
FrameNoteToDGDDG.Visible = False
'FrameMPCCLetter.Visible = False
     
    With Me 'Added this Line and subsequent Dots (".") dunno if "ME' Is appropriate
        Select Case .ComboBoxDocType.Value
        'Case "Compilation of Comments":       .FrameCoC.Visible = True
        'Case "Lessons Observation":           .FrameLO.Visible = True
        'Case "EUMC Meeting Documents":        .FrameEUMC.Visible = True
        'Case "Military Advice":               .FrameMA.Visible = True
        'Case "EUMC Meeting Documents":  .FrameEUMC.Visible = True
    Case "Letters": .FrameLetter.Visible = True
    Case "Internal Order": .FrameInternalOrder.Visible = True
    Case "Notes": .FrameNoteToDGDDG.Visible = True
    'Case "MPCC Letter": .FrameMPCCLetter.Visible = True
        End Select
    End With
End Sub

Sub InsertExistingBuildingBlock()

Select Case ComboBoxDocType.ListIndex
     Case Is = 0 'First item in list
        AutoTextToBM "EVTBookMark01", ActiveDocument.AttachedTemplate, "EUMSCoCCoverPage"
        AutoTextToBM "EVTBookMark02", ActiveDocument.AttachedTemplate, "GeneralComments"
        Selection.InsertBreak Type:=wdSectionBreakNextPage
        If Selection.PageSetup.Orientation = wdOrientPortrait Then
Selection.PageSetup.Orientation = wdOrientLandscape
Else
Selection.PageSetup.Orientation = wdOrientPortrait
End If
        AutoTextToBM "EVTBookMark03", ActiveDocument.AttachedTemplate, "SpecificComments"
        AutoTextToBM "EVTBookMark04", ActiveDocument.AttachedTemplate, "CoCAbbreviations"
        With ActiveDocument
            .Bookmarks("EVTBookMark01Class").Range.Text = ComboBoxMarking.Value
        End With
    Case Is = 1 'Second item in list
        AutoTextToBM "EVTBookMark01", ActiveDocument.AttachedTemplate, "Table"
    Case Is = 2
        AutoTextToBM "EVTBookMark01", ActiveDocument.AttachedTemplate, "EUMSCoverPage"
        AutoTextToBM "EVTBookMark02", ActiveDocument.AttachedTemplate, "MAReferences"
        AutoTextToBM "EVTBookMark03", ActiveDocument.AttachedTemplate, "INTRODUCTION"
        AutoTextToBM "EVTBookMark04", ActiveDocument.AttachedTemplate, "CONSIDERATIONS"
        AutoTextToBM "EVTBookMark05", ActiveDocument.AttachedTemplate, "RECOMMENDATIONS"
        AutoTextToBM "EVTBookMarkEEASNrRepeatHdr", ActiveDocument.AttachedTemplate, "EEASNrRepeat"
        AutoTextToBM "EVTBookMarkEEASNrRepeatFtr", ActiveDocument.AttachedTemplate, "EEASNrRepeat"
        With ActiveDocument
            .Bookmarks("EVTBookMark01Class").Range.Text = ComboBoxMarking.Value
        End With
    Case Is = 3
            AutoTextToBM "EVTBookMark01", ActiveDocument.AttachedTemplate, "EUMSCoverPage"
            AutoTextToBM "EVTBookMark02", ActiveDocument.AttachedTemplate, "AgendaAdoption"
            AutoTextToBM "EVTBookMark03", ActiveDocument.AttachedTemplate, "AgendaPoint"
            AutoTextToBM "EVTBookMark04", ActiveDocument.AttachedTemplate, "AgendaPointPossible"
            AutoTextToBM "EVTBookMark05", ActiveDocument.AttachedTemplate, "InformationAgenda"
            AutoTextToBM "EVTBookMark06", ActiveDocument.AttachedTemplate, "ProvAgendaNextmeeting"
            AutoTextToBM "EVTBookMark07", ActiveDocument.AttachedTemplate, "AOBat27"
            AutoTextToBM "EVTBookMark08", ActiveDocument.AttachedTemplate, "OpALTHEA"
            AutoTextToBM "EVTBookMark09", ActiveDocument.AttachedTemplate, "AOBat26"
            AutoTextToBM "EVTBookMark10", ActiveDocument.AttachedTemplate, "ProvAgendaNotes"
            AutoTextToBM "EVTBookMarkEEASNrRepeatHdr", ActiveDocument.AttachedTemplate, "EEASNrRepeat"
            AutoTextToBM "EVTBookMarkEEASNrRepeatFtr", ActiveDocument.AttachedTemplate, "EEASNrRepeat"
            With ActiveDocument
            .Bookmarks("EVTBookMark01Class").Range.Text = ComboBoxMarking.Value
            End With
    Case Is = 4
            AutoTextToBM "EVTBookMark01", ActiveDocument.AttachedTemplate, "EUMSCoverPage"
            AutoTextToBM "EVTBookMark02", ActiveDocument.AttachedTemplate, "AgendaAdoption"
            AutoTextToBM "EVTBookMark03", ActiveDocument.AttachedTemplate, "AgendaPoint"
            AutoTextToBM "EVTBookMark04", ActiveDocument.AttachedTemplate, "AgendaPointPossible"
            AutoTextToBM "EVTBookMark05", ActiveDocument.AttachedTemplate, "InformationAgenda"
            AutoTextToBM "EVTBookMark06", ActiveDocument.AttachedTemplate, "AANextmeeting"
            AutoTextToBM "EVTBookMark07", ActiveDocument.AttachedTemplate, "AOBat27"
            AutoTextToBM "EVTBookMark08", ActiveDocument.AttachedTemplate, "OpALTHEA"
            AutoTextToBM "EVTBookMark09", ActiveDocument.AttachedTemplate, "AOBat26"
            AutoTextToBM "EVTBookMark10", ActiveDocument.AttachedTemplate, "AANotes"
            AutoTextToBM "EVTBookMarkEEASNrRepeatHdr", ActiveDocument.AttachedTemplate, "EEASNrRepeat"
            AutoTextToBM "EVTBookMarkEEASNrRepeatFtr", ActiveDocument.AttachedTemplate, "EEASNrRepeat"
            With ActiveDocument
            .Bookmarks("EVTBookMark01Class").Range.Text = ComboBoxMarking.Value
            End With
    Case Is = 5
    Select Case ListBoxLetterOriginator.ListIndex
    Case Is = 1
        AutoTextToBM "EVTBookMark01", ActiveDocument.AttachedTemplate, "Header"
        AutoTextToBM "EVTbookMark02", ActiveDocument.AttachedTemplate, "LetterAuthor"
        AutoTextToBM "EVTBookMark03", ActiveDocument.AttachedTemplate, "LetterDate"
        AutoTextToBM "EVTBookMark04", ActiveDocument.AttachedTemplate, "LetterRecipient"
        AutoTextToBM "EVTBookMark05", ActiveDocument.AttachedTemplate, "LetterSubject"
        AutoTextToBM "EVTBookMark06", ActiveDocument.AttachedTemplate, "LetterReferences"
        AutoTextToBM "EVTBookMark07", ActiveDocument.AttachedTemplate, "LetterBody"
        AutoTextToBM "EVTBookMark08", ActiveDocument.AttachedTemplate, "LetterSignature"
        AutoTextToBM "EVTBookMark09", ActiveDocument.AttachedTemplate, "LetterAnnexes"
    Case Is = 2
        AutoTextToBM "EVTBookMark01", ActiveDocument.AttachedTemplate, "MPCCLetterHeader"
        AutoTextToBM "EVTbookMark02", ActiveDocument.AttachedTemplate, "LetterAuthor"
        AutoTextToBM "EVTBookMark03", ActiveDocument.AttachedTemplate, "LetterDate"
        AutoTextToBM "EVTBookMark04", ActiveDocument.AttachedTemplate, "LetterRecipient"
        AutoTextToBM "EVTBookMark05", ActiveDocument.AttachedTemplate, "LetterSubject"
        AutoTextToBM "EVTBookMark06", ActiveDocument.AttachedTemplate, "LetterReferences"
        AutoTextToBM "EVTBookMark07", ActiveDocument.AttachedTemplate, "LetterBody"
        AutoTextToBM "EVTBookMark08", ActiveDocument.AttachedTemplate, "LetterSignature"
        AutoTextToBM "EVTBookMark09", ActiveDocument.AttachedTemplate, "LetterAnnexes"
    End Select
        
        With ActiveDocument
            .Bookmarks("EVTBookMark02a").Range.Text = ComboBoxLetterAuthor.Value
            '.Bookmarks("EVTBookMarkMarkingHdr").Range.Text = ComboBoxLetterMarking.Value
            '.Bookmarks("EVTBookMarkMarkingFtr").Range.Text = ComboBoxLetterMarking.Value
            .Bookmarks("EVTBookMark03a").Range.Text = DTLetterDocDate.Value
        End With
        Dim LblLetterRecipientName As Range
        Set LblLetterRecipientName = ActiveDocument.Bookmarks("EVTBookMark04a").Range
        LblLetterRecipientName.Text = Me.TextBoxLetterRecipientName.Value
        Dim LblLetterRecipientAddress As Range
        Set LblLetterRecipientAddress = ActiveDocument.Bookmarks("EVTBookMark04b").Range
        LblLetterRecipientAddress.Text = Me.TextBoxLetterRecipientAddress.Value
        Dim LblLetterRecipientPlace As Range
        Set LblLetterRecipientPlace = ActiveDocument.Bookmarks("EVTBookMark04c").Range
        LblLetterRecipientPlace.Text = Me.TextBoxLetterRecipientPlace.Value
        Dim LblLetterRecipientCountry As Range
        Set LblLetterRecipientCountry = ActiveDocument.Bookmarks("EVTBookMark04d").Range
        LblLetterRecipientCountry.Text = Me.TextBoxLetterRecipientCountry.Value
        Dim LblLetterSubject As Range
        Set LblLetterSubject = ActiveDocument.Bookmarks("EVTBookMark05a").Range
        LblLetterSubject.Text = Me.TextBoxLetterSubject.Value
        Dim LblLetterSignatureName As Range
        Set LblLetterSignatureName = ActiveDocument.Bookmarks("EVTBookMark08a").Range
        LblLetterSignatureName.Text = Me.TextBoxLetterSignatureName.Value
        Dim LblLetterSignatureRank As Range
        Set LblLetterSignatureRank = ActiveDocument.Bookmarks("EVTBookMark08b").Range
        LblLetterSignatureRank.Text = Me.TextBoxLetterSignatureRank.Value
Case Is = 6
Select Case ListBoxIOOriginator.ListIndex
Case Is = 0
    AutoTextToBM "EVTBookMark01", ActiveDocument.AttachedTemplate, "IOHeader"
    AutoTextToBM "EVTBookMark02", ActiveDocument.AttachedTemplate, "IOAdresseeSubject"
    AutoTextToBM "EVTBookMark03", ActiveDocument.AttachedTemplate, "IOAim"
    AutoTextToBM "EVTBookMark04", ActiveDocument.AttachedTemplate, "IOBackground"
    AutoTextToBM "EVTBookMark05", ActiveDocument.AttachedTemplate, "IOExecutionTask"
    AutoTextToBM "EVTBookMark06", ActiveDocument.AttachedTemplate, "IOValidity"
    AutoTextToBM "EVTBookMark07", ActiveDocument.AttachedTemplate, "IOSignature"
    With ActiveDocument
        '.Bookmarks("EVTBookMarkMarkingHdr").Range.Text = ComboBoxIOMarking.Value
        '.Bookmarks("EVTBookMarkMarkingFtr").Range.Text = ComboBoxIOMarking.Value
        .Bookmarks("EVTBookMark01a").Range.Text = ComboBoxSignature.Value
        .Bookmarks("EVTBookMark01b").Range.Text = DTDocDate.Value
        .Bookmarks("EVTBookMark01c").Range.Text = "EUMS INTERNAL ORDER " & ComboBoxIOYear.Value & " - " & ComboBoxIONumber.Value
        '.Bookmarks("EVTBookMark01d").Range.Text = ""
    End With
Case Is = 1
    AutoTextToBM "EVTBookMark01", ActiveDocument.AttachedTemplate, "IOHeaderMPCC"
    AutoTextToBM "EVTBookMark02", ActiveDocument.AttachedTemplate, "IOAdresseeSubject"
    AutoTextToBM "EVTBookMark03", ActiveDocument.AttachedTemplate, "IOAim"
    AutoTextToBM "EVTBookMark04", ActiveDocument.AttachedTemplate, "IOBackground"
    AutoTextToBM "EVTBookMark05", ActiveDocument.AttachedTemplate, "IOExecutionTask"
    AutoTextToBM "EVTBookMark06", ActiveDocument.AttachedTemplate, "IOValidity"
    AutoTextToBM "EVTBookMark07", ActiveDocument.AttachedTemplate, "IOSignature"
    With ActiveDocument
        '.Bookmarks("EVTBookMarkMarkingHdr").Range.Text = ComboBoxIOMarking.Value
        '.Bookmarks("EVTBookMarkMarkingFtr").Range.Text = ComboBoxIOMarking.Value
        .Bookmarks("EVTBookMark01a").Range.Text = ComboBoxSignature.Value
        .Bookmarks("EVTBookMark01b").Range.Text = "MILITARY PLANNING AND CONDUCT CAPABILITY"
        .Bookmarks("EVTBookMark01c").Range.Text = DTDocDate.Value
        .Bookmarks("EVTBookMark01d").Range.Text = "MPCC INTERNAL ORDER " & ComboBoxIOYear.Value & "-" & ComboBoxIONumberMPCC.Value
        '.Bookmarks("EVTBookMark01d").Range.Text = ""
    End With
Case Is = 1 & 2
    AutoTextToBM "EVTBookMark01", ActiveDocument.AttachedTemplate, "IOHeaderJoint"
    AutoTextToBM "EVTBookMark02", ActiveDocument.AttachedTemplate, "IOAdresseeSubject"
    AutoTextToBM "EVTBookMark03", ActiveDocument.AttachedTemplate, "IOAim"
    AutoTextToBM "EVTBookMark04", ActiveDocument.AttachedTemplate, "IOBackground"
    AutoTextToBM "EVTBookMark05", ActiveDocument.AttachedTemplate, "IOExecutionTask"
    AutoTextToBM "EVTBookMark06", ActiveDocument.AttachedTemplate, "IOValidity"
    AutoTextToBM "EVTBookMark07", ActiveDocument.AttachedTemplate, "IOSignature"
    With ActiveDocument
        '.Bookmarks("EVTBookMarkMarkingHdr").Range.Text = ComboBoxIOMarking.Value
        '.Bookmarks("EVTBookMarkMarkingFtr").Range.Text = ComboBoxIOMarking.Value
        .Bookmarks("EVTBookMark01a").Range.Text = ComboBoxSignature.Value
        .Bookmarks("EVTBookMark01c").Range.Text = DTDocDate.Value
        .Bookmarks("EVTBookMark01d").Range.Text = "EUMS INTERNAL ORDER " & ComboBoxIOYear.Value & "-" & ComboBoxIONumber.Value
        .Bookmarks("EVTBookMark01e").Range.Text = "MPCC INTERNAL ORDER " & ComboBoxIOYear.Value & "-" & ComboBoxIONumberMPCC.Value
    End With
End Select
    Dim LblSubject As Range
    Set LblSubject = ActiveDocument.Bookmarks("EVTBookMark02a").Range
    LblSubject.Text = Me.TxtSubject.Value
    Dim LblSignatureName As Range
    Set LblSignatureName = ActiveDocument.Bookmarks("EVTBookMark07a").Range
    LblSignatureName.Text = Me.TxtSignatureName.Value
    Dim LblSignatureRank As Range
    Set LblSignatureRank = ActiveDocument.Bookmarks("EVTBookMark07b").Range
    LblSignatureRank.Text = Me.TxtSignatureRank.Value

    Case Is = 7
    Select Case ListBoxNoteOriginator.ListIndex
    Case Is = 0
        AutoTextToBM "EVTBookMark01", ActiveDocument.AttachedTemplate, "NoteHeader"
        AutoTextToBM "EVTBookMark02", ActiveDocument.AttachedTemplate, "NoteSubject"
        AutoTextToBM "EVTBookMark03", ActiveDocument.AttachedTemplate, "NoteTable"
        AutoTextToBM "EVTBookMark04", ActiveDocument.AttachedTemplate, "MAReferences"
        AutoTextToBM "EVTBookMark05", ActiveDocument.AttachedTemplate, "IOBackground"
        AutoTextToBM "EVTBookMark06", ActiveDocument.AttachedTemplate, "IOAim"
        AutoTextToBM "EVTBookMark07", ActiveDocument.AttachedTemplate, "NoteChallenges"
        AutoTextToBM "EVTBookMark08", ActiveDocument.AttachedTemplate, "NoteConsiderations"
        AutoTextToBM "EVTBookMark09", ActiveDocument.AttachedTemplate, "NoteOptions"
        AutoTextToBM "EVTBookMark10", ActiveDocument.AttachedTemplate, "NoteRecommendations"
        AutoTextToBM "EVTBooKMark11", ActiveDocument.AttachedTemplate, "NoteFinalDecision"
    Case Else
        AutoTextToBM "EVTBookMark01", ActiveDocument.AttachedTemplate, "NoteHeaderMPCC"
        AutoTextToBM "EVTBookMark02", ActiveDocument.AttachedTemplate, "NoteSubject"
        AutoTextToBM "EVTBookMark03", ActiveDocument.AttachedTemplate, "NoteTable"
        AutoTextToBM "EVTBookMark04", ActiveDocument.AttachedTemplate, "MAReferences"
        AutoTextToBM "EVTBookMark05", ActiveDocument.AttachedTemplate, "IOBackground"
        AutoTextToBM "EVTBookMark06", ActiveDocument.AttachedTemplate, "IOAim"
        AutoTextToBM "EVTBookMark07", ActiveDocument.AttachedTemplate, "NoteChallenges"
        AutoTextToBM "EVTBookMark08", ActiveDocument.AttachedTemplate, "NoteConsiderations"
        AutoTextToBM "EVTBookMark09", ActiveDocument.AttachedTemplate, "NoteOptions"
        AutoTextToBM "EVTBookMark10", ActiveDocument.AttachedTemplate, "NoteRecommendations"
        AutoTextToBM "EVTBooKMark11", ActiveDocument.AttachedTemplate, "NoteFinalDecision"
     End Select
        With ActiveDocument
            .Bookmarks("EVTBookMark01a").Range.Text = DTNoteDate.Value
            .Bookmarks("EVTBookMark01b").Range.Text = ComboBoxAttnOf.Value
            .Bookmarks("EVTBookMark01c").Range.Text = ComboBoxAim.Value
            .Bookmarks("EVTBookMark03b").Range.Text = ComboBoxRecommendation.Value
            .Bookmarks("EVTBookMark03c").Range.Text = DTDLNote.Value
        End With
        Dim LblNoteSubject As Range
        Set LblNoteSubject = ActiveDocument.Bookmarks("EVTBookMark02a").Range
        LblNoteSubject.Text = Me.TextBoxNoteSubject.Value
        Dim LblIssue As Range
        Set LblIssue = ActiveDocument.Bookmarks("EVTBookMark03a").Range
        LblIssue.Text = Me.TextBoxIssue.Value
        Dim LblFrom As Range
        Set LblFrom = ActiveDocument.Bookmarks("EVTBookMark03d").Range
        LblFrom.Text = Me.TextBoxFrom.Value
        Dim LblAgreedBy As Range
        Set LblAgreedBy = ActiveDocument.Bookmarks("EVTBookMark03e").Range
        LblAgreedBy.Text = Me.TextBoxAgreedBy.Value
 Case Is = 8
AutoTextToBM "EVTBookMark01", ActiveDocument.AttachedTemplate, "EUMSCoverPage"
AutoTextToBM "EVTBookMark02", ActiveDocument.AttachedTemplate, "DGEUMSReportAll"
AutoTextToBM "EVTBookMarkEEASNrRepeatHdr", ActiveDocument.AttachedTemplate, "EEASNrRepeat"
AutoTextToBM "EVTBookMarkEEASNrRepeatFtr", ActiveDocument.AttachedTemplate, "EEASNrRepeat"
With ActiveDocument
            .Bookmarks("EVTBookMark01Class").Range.Text = ComboBoxMarking.Value
End With

Case Else 'Nothing selected
End Select

End Sub

Public Sub AutoTextToBM(strbmName As String, oTemplate As Template, strAutotext As String)

     'Graham Mayor - http://www.gmayor.com - Last updated - 17 Dec 2017
     'strBMName is the name of the bookmark to fill
     'oTemplate is the template with the autotext - probably ActiveDocument.AttachedTemplate
     'strAutotext is the name of the autotext entry
   Dim orng As Range
   On Error GoTo lbl_Exit
   With ActiveDocument
     Set orng = .Bookmarks(strbmName).Range
     Set orng = oTemplate.AutoTextEntries(strAutotext).Insert _
    (Where:=orng, RichText:=True)
    .Bookmarks.Add Name:=strbmName, Range:=orng
   End With
lbl_Exit:
Exit Sub
End Sub

Cheers,

Paskie_be

**Paul_Hossler** · 05-02-2022, 10:09 AM

A few comments

1. Please use CODE tags

Instructions in my signature

2. This is a 16 year old thread that doesn't seem to have anything to do with your question

It's better to start a new one

3. You have 100's lines of code and numerous controls and objects

I can't think of anyone that would be willing to invest time in rebuilding your document to test, especially since they'd be 99.9999% guaranteed of getting it wrong

It's much more efficient to attach a document to your post with the macros, controls, object, etc. the way you really want it. Include any special instructions need to replicate the problem

That way members will be able to more quickly analyze and test

Instructions in my signature

4. On the plus side, I'm glad to see that you gave Graham credit for his macro. Many times that polite step seems to be forgotten.

**Paskie_be** · 05-03-2022, 06:43 AM

Dear Paul,

Document uploaded.

Paskie_be

Thread: VBA to create portrait & landscape pages

Thread Tools

Display

VBA to create portrait & landscape pages

Posting Permissions