Macro Please

[Steved]

Hello from Steved

The Professor=Noble Bijou

Using below Delete everything,leave like the above please.

13. 05x60 The Professor (13) 5g b
Grosvenor-Princess Lily (by Noble Bijou)
Sarah Boyd (3)(62)
Stats:
Trnr: Colin Jillings/Richard Yuill (Takanini)
Ownr: Sir Patrick Hogan, P K Johnston, B G Neville-White,
M Nicholson, R
M Petricevic & P J Walker
All 15:0:1:3:1
Prz $3,350
F 8:0:2
E 3:0:1
S 4:0:1
H 0:0:0
C 1:0:0
D 0:0:0 F90 3:0:0:1
F30 3:0:0:0
2Up 3:0:0:0 Fav 3:0:0:0
2 Fav 3:0:0:1
Win $0.00
Plc $0.93
Perf: TARO 08 Oct 2003 - 7 of 18 Mdn cg&e $5K 1200 S3.9
Samantha Spratt 56->55 (8) 8/7 $19.35 1st: Heza Cool Dude
1:11.70 8.2L
WAIK 08 Nov 2003 31 dys 11 of 16 F-Mdn $8K 1400 F2.2
Grant Cooksley 56 (9) 8/8 $14.70 1st: Pride Of The Class
1:22.98 8.1L
AUCK 14 Dec 2003 36 dys 13 of 15 F-Mdn $7K 1600 F2.3 Lee
Rutherford 56 (4) 7/8 $17.75 1st: Buckle My Shoe (AUS)
1:35.84 8.2L
WELL 17 Jan 2004 34 dys 5 of 15 P-Mdn $10K 2200 F2.3 Lee
Rutherford 56 (11) 5/5 $12.25 1st: Stitched 2:17.33 2.9L
AVON 29 Sep 2004 - 6 of 9 Mdn $5K 1400 S4.9 Lee
Rutherford 56 (6) 6/6 $11.75 1st: Trubonn 1:26.95 3.1L
WHAN 13 Oct 2004 14 dys 14 of 14 Mdn $5K 1600 E2.8 Lee
Rutherford 56 (13) 11/13 $27.55 1st: Tattinger 1:37.03
7.8L
Making hurdle debut. Has disappointed on the flat. Stable
will have him ready for a bold run.

 

[Doug Robbins]

You would have to tell us some more about what you want to do.

For example, if that is all that is in the document, you would just use

ActiveDocument.Range = "The Professor=Noble Bijou"

But I am sure that is not all that you want to do.
--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP

 

[Steved]

That's what I required and I thankyou

Question if I have Several would the below
be the way to go

ActiveDocument.Range = "The Professor=Noble Bijou"
ActiveDocument.Range = "Hotspurs=Truly Vain"

Thankyou.

 

[Doug Robbins]

No, because then all that your document will contain is the Hotspurs=Truly
Vain

You will really have to tell us some more about what you are starting with.

--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP

 

[Guest]

1. 62455 Crown Dancer (7) 9m b
Just A Dancer-Confederacy (by Imperialist)

The result from the above is Crown Dancer=Imperialist


2. 34916 Van Winkle (1) 8g br
Yachtie (AUS)-La Resuelto (by Show King)

The result from the above is Van Winkle=Show King


3. 1x211 Blakes Boy (11) 5g b
Yachtie (AUS)-Shenton Way (by Noble Bijou)

The result from the above is lakes Boy=Noble Bijou


4. 16052 Royal Keel (6) 7g br
Blazing Keel (AUS)-Royal Auk (W1 by Auk)

The result from the above is Royal Keel=Auk

Looking at the above examples How would one go about
writing a macro please the information is always on the
first 2 lines of information.

Thankyou

 

[Steved]

Hello from Steved

1. 62455 Crown Dancer (7) 9m b
Just A Dancer-Confederacy (by Imperialist)

The result from the above is Crown Dancer=Imperialist


2. 34916 Van Winkle (1) 8g br
Yachtie (AUS)-La Resuelto (by Show King)

The result from the above is Van Winkle=Show King


3. 1x211 Blakes Boy (11) 5g b
Yachtie (AUS)-Shenton Way (by Noble Bijou)

The result from the above is lakes Boy=Noble Bijou


4. 16052 Royal Keel (6) 7g br
Blazing Keel (AUS)-Royal Auk (W1 by Auk)

The result from the above is Royal Keel=Auk

Looking at the above examples How would one go about
writing a macro please. The information I require is
always on the first 2 lines of information.

Thankyou

 

[Beth Melton]

You should be able to use Find/Replace for most of this.

To help get you started use: " \(*by" (without the quotes) and replace
with "="

Then it's just a matter of some minor cleanup such as removing ")",
the digits, period, etc.

--
Please post all follow-up questions to the newsgroup. Requests for
assistance by email can not be acknowledged.

~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP

Word FAQ: http://mvps.org/word
TechTrax eZine: http://mousetrax.com/techtrax/
MVP FAQ site: http://mvps.org/

 

[Steved]

Thanks Beth

-----Original Message-----
You should be able to use Find/Replace for most of this.

To help get you started use: " \(*by" (without the quotes) and replace
with "="

Then it's just a matter of some minor cleanup such as removing ")",
the digits, period, etc.

--
Please post all follow-up questions to the newsgroup. Requests for
assistance by email can not be acknowledged.

~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP

Word FAQ: http://mvps.org/word
TechTrax eZine: http://mousetrax.com/techtrax/
MVP FAQ site: http://mvps.org/





.