Click here to Skip to main content
15,896,118 members

Create a new page, with headers, in Word 2010 VBA

Greg Gregerson asked:

Open original thread
I have a two page template with traditional centered header on page one with an even header (left justified) on page 2 (footers are the same for all pages). When a user selects "bcc" (blind carbon copy) from the userform I want to, in VBA, create a new page complete with headers and footers and the text "bcc:" on the first line of the new page.

I have figured out how to create a new page, sort of: (my custom bookmark)

VB
With Selection
    If frmLetter.chkBCC.Value = True Then
        .GoTo what:=wdGoToBookmark, Name:="EOD"
        .InsertNewPage
        .TypeText "bcc:" vbTab
    End If
End With

This creates two new pages - a blank page 3 and then page 4 replete with headers and footers. I presume the problem has something to do with the odd and even headers thing but how would I create a reverse image header (right justified) for the odd page.

Any help would be greatly appreciated.

Regards, Greg
Tags: VBA, Microsoft Word

Plain Text
ASM
ASP
ASP.NET
BASIC
BAT
C#
C++
COBOL
CoffeeScript
CSS
Dart
dbase
F#
FORTRAN
HTML
Java
Javascript
Kotlin
Lua
MIDL
MSIL
ObjectiveC
Pascal
PERL
PHP
PowerShell
Python
Razor
Ruby
Scala
Shell
SLN
SQL
Swift
T4
Terminal
TypeScript
VB
VBScript
XML
YAML

Preview



When answering a question please:
  1. Read the question carefully.
  2. Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
  3. If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
  4. Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.
Let's work to help developers, not make them feel stupid.
Please note that all posts will be submitted under the http://www.codeproject.com/info/cpol10.aspx.



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900