replace paragraph marks

Hi, I know how to use Replace to remove paragraph markers at the end of each
line. But I have many pages of text like this below. Every line has a
paragraph marker at the end of it, including the number line.

I want to remove the paragraph markers ONLY from the lines with text, not
the line with a number. So I probably need some code to do this. Is there
some simple code that would accomplish this? Thanks, Harold

1
Tub muaj coob leej yooj xeeb sau
tej xwm txheej kws muaj tshwm
lug tav taag rua huv peb lawm,
2
lawv
le cov tuabneeg kws qhov muag pum
txwj thaus chiv lub keeb lug hab yog
cov kws qha txuj xuv zoo tau muab
cob rua peb lawm.
3
Kuv tub ua tuab
zoo tshawb nrhav txhua yaam nuav
txwj thaus chiv lub keeb lug lawm,
kuv txhad pum zoo muab sau ua ib
qeb zuj zug qha rua koj The-au_la
kws saib hlub,
4
sub koj txhad paub
qhov tseeb txug zaaj nuav kws tub
txeev muaj tuabneeg qha rua koj
paub lawd.
Qha txug yuav yug Yauhaa
5

Doug
Sun Sep 16 02:48:49 CDT 2007

Use a Wildcard Replace to replace [0-9]{1,}^13 with ###; then use an
ordinary Replace to remove the paragraph marks from the ends of the lines of
text, and then another ordinary Replace to replace the ### with ^p to
reinstate the paragraph marks after the numbers.

Are you sure however that you want to replace the paragraph mark at the end
of the text immediately before a number.

If not, in place of the above Wildcard Replace, use ^13([0-9]{1,})^13 and
replace it with ###\1###

For an explanation, see the article "Finding and replacing characters using
wildcards" at:

http://www.word.mvps.org/FAQs/General/UsingWildcards.htm


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"HGood" <HGood@discussions.microsoft.com> wrote in message
news:51138A16-2E99-4796-9DAC-D1CF86C59B81@microsoft.com...
> Hi, I know how to use Replace to remove paragraph markers at the end of
> each
> line. But I have many pages of text like this below. Every line has a
> paragraph marker at the end of it, including the number line.
>
> I want to remove the paragraph markers ONLY from the lines with text, not
> the line with a number. So I probably need some code to do this. Is there
> some simple code that would accomplish this? Thanks, Harold
>
> 1
> Tub muaj coob leej yooj xeeb sau
> tej xwm txheej kws muaj tshwm
> lug tav taag rua huv peb lawm,
> 2
> lawv
> le cov tuabneeg kws qhov muag pum
> txwj thaus chiv lub keeb lug hab yog
> cov kws qha txuj xuv zoo tau muab
> cob rua peb lawm.
> 3
> Kuv tub ua tuab
> zoo tshawb nrhav txhua yaam nuav
> txwj thaus chiv lub keeb lug lawm,
> kuv txhad pum zoo muab sau ua ib
> qeb zuj zug qha rua koj The-au_la
> kws saib hlub,
> 4
> sub koj txhad paub
> qhov tseeb txug zaaj nuav kws tub
> txeev muaj tuabneeg qha rua koj
> paub lawd.
> Qha txug yuav yug Yauhaa
> 5
>

Helmut
Sun Sep 16 05:19:53 CDT 2007

Hi HGood,

nothing wrong with Doug's suggestions for sure,
and, if you've followed his advice,
the task would have been completed
long before the code was put together.

OK, there was no other amusement: :-)

Sub Macro7()
Dim oPrg As Paragraph
For Each oPrg In ActiveDocument.Paragraphs
If Not (oPrg.Next Is Nothing) Then
If Not IsNumeric(oPrg.Range.Text) And _
Not IsNumeric(oPrg.Next.Range.Text) Then
oPrg.Range.Characters.Last = " "
End If
End If
Next
End Sub

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

HGood
Sun Sep 16 20:18:01 CDT 2007

Thanks, I'm traveling right now, I look forward to trying this!
Harold

"Helmut Weber" wrote:

> Hi HGood,
>
> nothing wrong with Doug's suggestions for sure,
> and, if you've followed his advice,
> the task would have been completed
> long before the code was put together.
>
> OK, there was no other amusement: :-)
>
> Sub Macro7()
> Dim oPrg As Paragraph
> For Each oPrg In ActiveDocument.Paragraphs
> If Not (oPrg.Next Is Nothing) Then
> If Not IsNumeric(oPrg.Range.Text) And _
> Not IsNumeric(oPrg.Next.Range.Text) Then
> oPrg.Range.Characters.Last = " "
> End If
> End If
> Next
> End Sub
>
> --
> Greetings from Bavaria, Germany
>
> Helmut Weber, MVP WordVBA
>
> Win XP, Office 2003
> "red.sys" & Chr$(64) & "t-online.de"
>

HGood
Sun Sep 16 20:20:00 CDT 2007

Thanks very much, I'm traveling right now but I look forward to trying this.
I hadn't thought of wildcards.

Harold

"Doug Robbins - Word MVP" wrote:

> Use a Wildcard Replace to replace [0-9]{1,}^13 with ###; then use an
> ordinary Replace to remove the paragraph marks from the ends of the lines of
> text, and then another ordinary Replace to replace the ### with ^p to
> reinstate the paragraph marks after the numbers.
>
> Are you sure however that you want to replace the paragraph mark at the end
> of the text immediately before a number.
>
> If not, in place of the above Wildcard Replace, use ^13([0-9]{1,})^13 and
> replace it with ###\1###
>
> For an explanation, see the article "Finding and replacing characters using
> wildcards" at:
>
> http://www.word.mvps.org/FAQs/General/UsingWildcards.htm
>
>
> --
> Hope this helps.
>
> Please reply to the newsgroup unless you wish to avail yourself of my
> services on a paid consulting basis.
>
> Doug Robbins - Word MVP
>
> "HGood" <HGood@discussions.microsoft.com> wrote in message
> news:51138A16-2E99-4796-9DAC-D1CF86C59B81@microsoft.com...
> > Hi, I know how to use Replace to remove paragraph markers at the end of
> > each
> > line. But I have many pages of text like this below. Every line has a
> > paragraph marker at the end of it, including the number line.
> >
> > I want to remove the paragraph markers ONLY from the lines with text, not
> > the line with a number. So I probably need some code to do this. Is there
> > some simple code that would accomplish this? Thanks, Harold
> >
> > 1
> > Tub muaj coob leej yooj xeeb sau
> > tej xwm txheej kws muaj tshwm
> > lug tav taag rua huv peb lawm,
> > 2
> > lawv
> > le cov tuabneeg kws qhov muag pum
> > txwj thaus chiv lub keeb lug hab yog
> > cov kws qha txuj xuv zoo tau muab
> > cob rua peb lawm.
> > 3
> > Kuv tub ua tuab
> > zoo tshawb nrhav txhua yaam nuav
> > txwj thaus chiv lub keeb lug lawm,
> > kuv txhad pum zoo muab sau ua ib
> > qeb zuj zug qha rua koj The-au_la
> > kws saib hlub,
> > 4
> > sub koj txhad paub
> > qhov tseeb txug zaaj nuav kws tub
> > txeev muaj tuabneeg qha rua koj
> > paub lawd.
> > Qha txug yuav yug Yauhaa
> > 5
> >
>
>
>