underscore line

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

MarcoPolo - 04 Feb 2006 13:53 GMT

another qucik question:

If i have "year ________ month _______ day _________ in ________"
and i need to delete all the underscore line with a text , how can i do it?

i dont know how long is the line cause it comes from different procedures
and lenght is not always same

Reply to this Message

MarcoPolo - 04 Feb 2006 16:58 GMT

I mean how can I select the underscore line as a "doucle click" with the
mouse?

> another qucik question:
>
[quoted text clipped - 4 lines]
> i dont know how long is the line cause it comes from different procedures
> and lenght is not always same

Reply to this Message

Cindy M -WordMVP- - 04 Feb 2006 17:46 GMT

Hi MarcoPolo,

> another qucik question:
>
[quoted text clipped - 3 lines]
> i dont know how long is the line cause it comes from different procedures
> and lenght is not always same

Your requirement isn't clear. Do you need to delete only the underlines, or
also some text? If yes, which text? Or do you mean you need to delete the
entire line (or even paragraph)?

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail :-)

Reply to this Message

MarcoPolo - 04 Feb 2006 17:54 GMT

Grüßgott Cindy:-)

I meant that i need to replace allthe underscore with variables
for example "year ____" gets "year 2005" and "month _______" gets "month
February"
or "year ______________" gets "year 2005" and "month
______________" gets "month February"
how can i replace the underscore with the locYear and aMonth(i)
as i dont know how long can be the underscore line?

"Cindy M -WordMVP-" <C.Meister-C@hispeed.ch> ha scritto nel messaggio
news:VA.0000b92a.008e61e3@speedy...

> Hi MarcoPolo,
>
[quoted text clipped - 19 lines]
> This reply is posted in the Newsgroup; please post any follow question or
> reply in the newsgroup and not by e-mail :-)

Reply to this Message

Doug Robbins - Word MVP - 04 Feb 2006 21:44 GMT

Why don't you use formfields in place of the underlines.

Signature

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

> Grüßgott Cindy:-)
>
[quoted text clipped - 32 lines]
>> This reply is posted in the Newsgroup; please post any follow question or
>> reply in the newsgroup and not by e-mail :-)

Reply to this Message

MarcoPolo - 04 Feb 2006 22:24 GMT

I can't cause it comes from an external society and they make this funny
documents..
i'm using now Replace all for it but...not any toher idea?

> Why don't you use formfields in place of the underlines.
>
[quoted text clipped - 36 lines]
>>> or
>>> reply in the newsgroup and not by e-mail :-)

Reply to this Message

Helmut Weber - 05 Feb 2006 00:24 GMT

Hi Marco,

like this:

Public Sub test0001234()
Dim rDcm As Range
Set rDcm = ActiveDocument.Range
With rDcm.Find
.MatchWildcards = True
.Text = "year _{1,}"
.Replacement.Text = "year 2005"
.Execute Replace:=wdReplaceAll
.Text = "month _{1,}"
.Replacement.Text = "month February"
.Execute Replace:=wdReplaceAll
.Text = "day _{1,}"
.Replacement.Text = "day Monday"
.Execute Replace:=wdReplaceAll
' ... more
End With
End Sub

Note: in "{1,}" for "one or more underline characters"
the comma is the listseperator in, lets call it,
international or english versions of word.
In German, Dutch, Norwegian etc. versions it is
a semicolon ";".

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

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

Reply to this Message

MarcoPolo - 05 Feb 2006 11:37 GMT

NA ENDLICH!!! SUPER!!!!

> Hi Marco,
>
[quoted text clipped - 23 lines]
> In German, Dutch, Norwegian etc. versions it is
> a semicolon ";".

Reply to this Message