E
EAJSewell
I have a macro that breaks up paragraphs in powerpoint. Within I have
code to delete the carriage return from the end of the newly created
smaller paragraphs. In PPT2003 this works... (OK it is clunky)
Do
Paraend = Right(NewPara.text, 1)
ParaendAsc = Asc(Paraend)
If ParaendAsc = 10 Then
LastChar = Left(Right(NewPara.text, 7), 5)
NewPara.Replace LastChar & vbCrLf, LastChar
End If
Loop Until ParaendAsc <> 10
This does not work in PPT2007, I know the end of para in 2007/later is
now vbCr (Char(13)) but just replacing the code with...
Do
Paraend = Right(NewPara.text, 1)
ParaendAsc = Asc(Paraend)
If ParaendAsc = 13 Then
LastChar = Left(Right(NewPara.text, 7), 6)
NewPara.Replace LastChar & vbCr, LastChar
End If
Loop Until ParaendAsc <> vbCr
does not work (in fact it is continuous loop) because I cannot get rid
of the Carriage return. I have tried lots of methods like
Set NewPara = NewPara.Characters(, Len(NewPara.text) - 1)
and looked (I think) everywhere. The finished paragraph always ends
up with a blank line Any ideas much appreciated.
Thanks
code to delete the carriage return from the end of the newly created
smaller paragraphs. In PPT2003 this works... (OK it is clunky)
Do
Paraend = Right(NewPara.text, 1)
ParaendAsc = Asc(Paraend)
If ParaendAsc = 10 Then
LastChar = Left(Right(NewPara.text, 7), 5)
NewPara.Replace LastChar & vbCrLf, LastChar
End If
Loop Until ParaendAsc <> 10
This does not work in PPT2007, I know the end of para in 2007/later is
now vbCr (Char(13)) but just replacing the code with...
Do
Paraend = Right(NewPara.text, 1)
ParaendAsc = Asc(Paraend)
If ParaendAsc = 13 Then
LastChar = Left(Right(NewPara.text, 7), 6)
NewPara.Replace LastChar & vbCr, LastChar
End If
Loop Until ParaendAsc <> vbCr
does not work (in fact it is continuous loop) because I cannot get rid
of the Carriage return. I have tried lots of methods like
Set NewPara = NewPara.Characters(, Len(NewPara.text) - 1)
and looked (I think) everywhere. The finished paragraph always ends
up with a blank line Any ideas much appreciated.
Thanks