Coding into a macro a carriage return

sinbad · #1 02-25-2012, 09:52 AM

I can't find a way to put two lines into a header via a macro. I want to say, Put this text in the header .... 'header text header text'
And put these full points underneath '..................................'
So it's a two-line header.

My macro doesn't work this way ....

Quote:

Sub HeaderFooterObjectBest_English()
Dim MyText As String

MyHeaderText = "..........................."
MyHeaderText = "Paul | new words for the week | Best-English.org | 1 of 1"
MyFooterText = "Best-English dot org"
Selection.Font.Name = "Courier New"
Selection.Font.Size = 9
With ActiveDocument.Sections(1)
.Headers(wdHeaderFooterPrimary).Range.Text = MyHeaderText
.Footers(wdHeaderFooterPrimary).Range.Text = MyFooterText
End With
End Sub

Be very grateful for guidance.

Stefan Blom · #2 02-25-2012, 06:11 PM

You can work with the range object directly to easily add a return (paragraph mark):

Code:

Sub AddTwoLinesToHeader()
Dim r As Range
Set r = ActiveDocument.Sections(1).Headers _
(wdHeaderFooterPrimary) _
.Range.Duplicate
r.Text = ""  'clear header content
With r
.InsertAfter "This is some text."
.InsertParagraphAfter
.InsertAfter "This is a new para."
End With
End Sub

sinbad · #3 02-26-2012, 02:50 AM

Thanks very much, Stefan. Interesting to see it done that way. I think the term I looked for was a 'vertical tab' which I think is coded as vbVerticalTab. Glad to see this other way. Very grateful. Cheers paul

Stefan Blom · #4 02-26-2012, 03:35 PM

A vertical tab is a line that "cuts" vertically through the paragraph at the specified location. In the user interface, you can add it by clicking on the horizontal ruler (if you first click to display the | symbol on the tab/indent selector). You can add it by working with the appropriate range object.

macropod · #5 02-26-2012, 10:10 PM

Cross-posted at: http://www.tek-tips.com/viewthread.cfm?qid=1676130
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184

strongm · #6 02-27-2012, 02:53 AM

Quote:

Originally Posted by Stefan Blom

A vertical tab is a line that "cuts" vertically through the paragraph at the specified location.

That is a bar tab, which is really just a text decoration, and nothing like a vertical tab.

Stefan Blom · #7 02-27-2012, 03:51 AM

OK, then we have established that I am not 100% sure what you are trying to accomplish. :-)

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Paragraph (carriage) return font size	revrossreddick	Word	2	12-28-2011 01:33 PM
Converting data-table into coding text	niuri_cigarete	Excel	2	12-10-2011 02:57 AM
Extreme Color Coding Outlook	boodmatt	Outlook	0	06-27-2011 02:13 AM
Return to in box	cjwilson2740	Outlook	0	04-05-2010 02:27 PM
Carriage Return Help	UCHelp	Word	1	04-04-2010 10:11 PM