RE: Line Numbers in ASCII File

Subject: RE: Line Numbers in ASCII File
From: "Steve Hudson" <cruddy -at- optushome -dot- com -dot- au>
To: "TECHWR-L" <techwr-l -at- lists -dot- raycomm -dot- com>
Date: Fri, 8 Feb 2002 03:58:31 +1100

I have a pre-made solution that looks like this:

Private Sub FindNextWordFromDic(DicFile As String)
Dim r As Range, Flag As Boolean
Dim NextWord As String

Open DicFile For Input As 1
Flag = False
Set r = ActiveDocument.Range
With r.Find
While Not EOF(1) And Not Flag
Line Input #1, NextWord
.Text = NextWord
Flag = .Execute(Replace:=wdReplaceNone)
End With
Close #1
If Flag Then
MsgBox "None found."
End If
End Sub

Steve Hudson, Word Heretic
Word help and tools: heretic -at- tdfa -dot- com

Collect Royalties, Not Rejection Letters! Tell us your rejection story when you
submit your manuscript to iUniverse Nov. 6 -Dec. 15 and get five free copies of
your book. What are you waiting for?

Have you looked at the new content on TECHWR-L lately?
See and check it out.

You are currently subscribed to techwr-l as: archive -at- raycomm -dot- com
To unsubscribe send a blank email to leave-techwr-l-obscured -at- lists -dot- raycomm -dot- com
Send administrative questions to ejray -at- raycomm -dot- com -dot- Visit for more resources and info.

Line Numbers in ASCII File: From: Steve Goldberg

Previous by Author: RE: Do you include a sentence identifying the dialog name?
Next by Author: RE: Skillset Networking and Value-By-Association
Previous by Thread: Re: Line Numbers in ASCII File
Next by Thread: Re: Line Numbers in ASCII File

What this post helpful? Share it with friends and colleagues:

Sponsored Ads