How to code carriage return in a macro 4

[sinbad99]

In a Word macro for a header and footer, I want to have two lines on the header. I need in some way to declare char(10).

This is what I have, but the second line - the fullpoints as a dotted rule - doesn't appear.

 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 some advice.

 

[kermit01de]

Try that ...

Dim MyText As String
MyHeaderText = "..........................." & vbCrLf & "Paul | new words for the week | Best-English.org | 1 of 1"

etc.

Kind regards
Mirko
--------------------------------------
>>>>>> ... I am sure, some supportissues are a matter of PEBKAC ... <<<<<

 

[MazeWorX]

MyHeaderText = "..........................." & vbNewLine _
             & "Paul | new words for the week | Best-English.org | 1 of 1"

HTH << MaZeWorX >> "I have not failed I have only found ten thousand ways that don't work" <<Edison>>

 

[sinbad99]

Thanks very much, kermit01de and MazeWorX. That very nearly does the trick, only perhaps I was wrong to call it a carriage return. What I need is the space that comes with using shift and enter together.

I thought MazeWorX's 'vbNewLine' would do it, but that makes the gap too big, too.

Is there a way to say a non-paragraph line break, please?

 

[kermit01de]

Then try vbCr or vbLf instead

One of them should do what you expect

Kind regards
Mirko
--------------------------------------
>>>>>> ... I am sure, some supportissues are a matter of PEBKAC ... <<<<<

 

[sinbad99]

Thanks very much, Mirko, and yes, you'd think that one of the two should work, but strange to relate, no.

Could it be something on the page that is stopping the macro from obliging? But, no, because if I do an Enter-Shift non-paragraph line break in the header space, it works just as required.

So presumably, there must be some separate code for a non-paragraph line break???

 

[kermit01de]

Hmmm, what exactly do you expect as result?

For what should it be? - Just for me to understand better.

Kind regards
Mirko
--------------------------------------
>>>>>> ... I am sure, some supportissues are a matter of PEBKAC ... <<<<<

 

[fumei]

Shift+Enter is a vertical Tab - Chr(11).

 

[fumei]

or of course the VBA constant - vbVerticalTab.

Although I must say, WHY are you do it this way? Why are you making it a non-paragraph line break? Generally, this is a bad thing to do, and unless you have a really good reason to do so, should be avoided. So...what is your reason? Just curious.

 

[sinbad99]

First prize, fumei! And I've found the code - vbVerticalTab.

Thank you very much - and thanks, too, to Mirko and kermit01de and MazeWorX. Excellent, gentlemen, and I'm very grateful. Cheers paul

 

[sinbad99]

Hello fumei - Your code for the vertical tab arrived after I sent the previous message (though it appears here above it).

I want it because I like to have two lines in the header of some documents. I have the message and the page number of the number of pages. And then it looks good to have a rule of dots underscoring it.

I use this style in my resources for English language students, and for manuscripts. It is just for style - or what perhaps foolishly I take for style - fumei. Now instead of typing it each time, I can have a macro performing it.
Cheers paul

 

[fumei]

But if you want two lines why not HAVE two lines?? I do not understand why the non-paragraph break. The reason it is not a good idea is that if you ever want to use VBA to change the text it makes it much harder. If you want two lines then have two lines.

 

[sinbad99]

With two lines, Fumei, we have a considerable space between the lines. Of course - at least, I'm sure - one could code to reduce the space - but using 'vertical tab' means the lines are close together, which looks good.

So it is just a matter of aesthetics, though I note well your comments,and thank you for the warning. All the best paul

 

[strongm]

Why not just border the header and footer?

[blue]Dim MyHeaderText As String
Dim MyFooterText As String

MyHeaderText = "Paul | new words for the week | Best-English.org | 1 of 1"
MyFooterText = "Best-English dot org"

With ActiveDocument.Sections(1)
    With .Headers(wdHeaderFooterPrimary)
        .Range.Font.Name = "Courier"
        .Range.Font.Size = 9
        .Range.Text = MyHeaderText
        .Range.Borders(wdBorderBottom).LineStyle = wdLineStyleDot
    End With
    With .Footers(wdHeaderFooterPrimary)
        .Range.Font.Name = "Courier"
        .Range.Font.Size = 9
        .Range.Text = MyFooterText
        .Range.Borders(wdBorderTop).LineStyle = wdLineStyleDot
    End With
End With[/blue]

 

[sinbad99]

Nice one, strongm. Why not indeed? ASs my neighbours would say, There's posh for you. Many thanks indeed.

 

[MazeWorX]

Also see

http://www.tek-tips.com/viewthread.cfm?qid=1675726

regarding carriage return. There is a good example by TheAceman1 using Constants and SkipVought has some good insight regarding "Carriage return"

HTH << MaZeWorX >> "I have not failed I have only found ten thousand ways that don't work" <<Edison>>

 

[sinbad99]

Many thanks, MazeWorkX, will do.

 

[strongm]

>a good example

I'm afraid I'd have to disagree. This may seem pedantic, but in that example there is frankly no need to (re)declare vbNewLine as NL. vbNewline is already a perfectly global constant, and has a more meaningful name, thus helping to document the code.

 

[macropod]

With two lines, Fumei, we have a considerable space between the lines. Of course - at least, I'm sure - one could code to reduce the space - but using 'vertical tab' means the lines are close together, which looks good.

In that case, and assuming the result is intended to remain in Word rather than in a text file, you should apply an appropriate Style to the header paragraphs. Your workaround is a kludge. If the result is being exported to a plain text file, the formatting in Word is of no consequence and you can safely use paragraph breaks.

Cheers
Paul Edstein
[MS MVP - Word]

 

[macropod]

Cross-posted at:

http://www.msofficeforums.com/vba/11394-coding-into-macro-carriage-return.html

For cross-posting etiquette, please read:

http://www.excelguru.ca/content.php?184

Cheers
Paul Edstein
[MS MVP - Word]