Two Lines in Footer

[aehan]

I have created a user form that allows people to have two lines in the
footer. I'm using a text box with multilines to do that. However, I'm
having a problem with it. An additions character (a small square) appears to
the left of the second line. Does anyone have any idea how to get rid of it?
Help.....

Thank you all for the help I've received in the past. I'm not sure whether
I'm posting to the correct group, I wasn't sure if it should have been Office
Developer so apologies if I've chosen the wrong one.

Cheers
Aehan

 

[vindys]

it should be some problem related to unicode or so. can you put snipet of
your code?

 

[aehan]

Thanks for getting back. The code is on the OK button of the user form and is:
Private Sub cmdOK_Click()

Set mySlidesHF = ActivePresentation.SlideMaster.HeadersFooters

With mySlidesHF
.Footer.Visible = True
.Footer.Text = txtFooter
End With

SetFooter.Hide

End Sub

I've set up the text box, txtFooter properties for EnterKeyBehaviour True,
MultiLine True and WordWrap True.

Thankyou.
Aehan

 

[vindys]

Do you have XP SP2?

Check this url
http://pptfaq.com/FAQ00518.htm

 

[aehan]

Hello, yes I do have XP SP2 and Office SP3. I saw the article you sent and
thought that may be the answer, but when I checked I had SP2. I don't know
if I need to install the hotfix separately, I'll go back and have a look at
that. Thanks for your help, it's really appreciated.

Aehan

 

[vindys]

Hey,

I m sorry I was bit lazy in the morning to work your code and check it.
Later I found I am also having the error for me with this code.

Dim MyString As String
MyString = "This is the first line of my string." & Chr(13) & _
"This is the second line of my string." & Chr(13) & _
"This is the third line of my string."


Set mySlidesHF = ActivePresentation.SlideMaster.HeadersFooters

With mySlidesHF
..Footer.Visible = True
..Footer.Text = MyString
End With


SetFooter.Hide

culprit is vbcrlf if you using it...

 

[aehan]

Hello again, it works! it works!, code is now
Private Sub cmdOK_Click()

Set mySlidesHF = ActivePresentation.SlideMaster.HeadersFooters

With mySlidesHF
.Footer.Visible = True
.Footer.Text = Replace(txtFooter, vbCrLf, vbCr)
End With

SetFooter.Hide

End Sub

Bad vbCrLF - thanks so much for your help.

Cheers
Aehan