macro fix

[mailman]

Window XP home , Office 97
I have to change that {4T 184.1} for that {Testimonies for the Church Vol. 4, 184.1} and this is the macro that does it for me but there is a problem because sometimes in other document to change there is no bracket in the front and the back of course so how to retrace to the first number value whatever it is and be sure it will not grab some text before or after. Thoses book references are inserted at the end of other text like so.

and Israel would have been spared the untold woe of fire and carnage and famine. {4Testimonies for the Church Vol. 1, 184.1}

I would like also to make sure that if it does not find the searched text that it stop andpop a message to tell it to the person Thanks

Sub T()
'
' T Macro
' Macro recorded 05/23/04 by Gilles Boudreau
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "T "
.Replacement.Text = "Testimonies for the Church Vol. 1, "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Selection.Find.Execute Replace:=wdReplaceOne
Selection.MoveRight Unit:=wdWord, Count:=3, Extend:=wdExtend
With Selection.Font
.Name = "Arial"
.Size = 13
.Italic = True
.ColorIndex = wdViolet
End With
Selection.EndKey Unit:=wdLine
Selection.MoveLeft Unit:=wdWord, Count:=12
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
With Selection.Font
.Name = "Arial"
.Size = 13
.Italic = True
.ColorIndex = wdViolet
End With
Selection.Copy
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdWord, Count:=6
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Paste
Selection.EndKey Unit:=wdLine
End Sub

 

[Doug Robbins - Word MVP]

I can't follow what you are doing with the Selection/violet font stuff, but
you can replace either

{4T 184.1} or 4T 184.1

with

Testimonies for the Church Vol. 4, 184.1

just by using a wildcard edit replace with

([0-9]{1,})(T)

in the Find what control, and

Testimonies for the Church Vol. \1

in the Replace with control

--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

Window XP home , Office 97
I have to change that {4T 184.1} for that {Testimonies for the Church

Vol. 4, 184.1} and this is the macro that does it for me but there is a
problem because sometimes in other document to change there is no bracket
in the front and the back of course so how to retrace to the first number
value whatever it is and be sure it will not grab some text before or after.
Thoses book references are inserted at the end of other text like so.

and Israel would have been spared the untold woe of fire and carnage and

famine. {4Testimonies for the Church Vol. 1, 184.1}

I would like also to make sure that if it does not find the searched text

that it stop andpop a message to tell it to the person Thanks

 

[Helmut Weber]

Hi,
have a look at this one and at
http://word.mvps.org/FAQs/General/UsingWildcards.htm
Sub Test190()
Dim oRng As Range
Dim sRpl As String
Dim bFnd As Boolean
Set oRng = ActiveDocument.Range
sRpl = "Testimonies for the Church Vol. "
With oRng.Find
.Text = "([0-9]{1,})(T )([0-9]{1,}.[0-9]{1,})"
.MatchCase = True
With .Replacement
.Text = sRpl & "\1 \3"
.Font.Name = "Arial"
.Font.Size = 13
.Font.Italic = True
.Font.ColorIndex = wdViolet
End With
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
If Not .Found Then
MsgBox "Searchtext not found"
End If
End With
End Sub
"," must be replaced by ";" in some localized versions.

Ask, if you need an explanation.

 

[mailman]

Hi Helmut and Doug , I am learning a lot here. I suppose that instead of creating a lot of little macros, one for each book ( over a 100). It would have been better to create one big macro with lots of if possibilities but I do not know very well how to use the " if " . I will give you the two major example of books one with a number in front and one without. Can you suggest a solution to cover both if possible and the violet section is to highlite the results for the reader. But would that be to big of a macro I wonder. Still a learner here. Thanks for any help
example for 1T 567
Sub T()
'
' T Macro
' Macro recorded 05/23/04 by Gilles Boudreau
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "T "
.Replacement.Text = "Testimonies for the Church Vol. 1, "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Selection.Find.Execute Replace:=wdReplaceOne
Selection.MoveRight Unit:=wdWord, Count:=3, Extend:=wdExtend
With Selection.Font
.Name = "Arial"
.Size = 13
.Italic = True
.ColorIndex = wdViolet
End With
Selection.EndKey Unit:=wdLine
Selection.MoveLeft Unit:=wdWord, Count:=12
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
With Selection.Font
.Name = "Arial"
.Size = 13
.Italic = True
.ColorIndex = wdViolet
End With
Selection.Copy
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdWord, Count:=6
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Paste
Selection.EndKey Unit:=wdLine
End Sub

example for AA 789

Sub AA()
'
' AA Macro
' Macro recorded 06/04/04 by Gilles Boudreau
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "AA "
.Replacement.Text = "Acts of the Apostles, The "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Selection.Find.Execute Replace:=wdReplaceOne
Selection.MoveRight Unit:=wdWord, Count:=3, Extend:=wdExtend
With Selection.Font
.Name = "Arial"
.Size = 13
.Italic = True
.ColorIndex = wdViolet
End With
Selection.EndKey Unit:=wdLine

End Sub

Hi,
have a look at this one and at
http://word.mvps.org/FAQs/General/UsingWildcards.htm
Sub Test190()
Dim oRng As Range
Dim sRpl As String
Dim bFnd As Boolean
Set oRng = ActiveDocument.Range
sRpl = "Testimonies for the Church Vol. "
With oRng.Find
.Text = "([0-9]{1,})(T )([0-9]{1,}.[0-9]{1,})"
.MatchCase = True
With .Replacement
.Text = sRpl & "\1 \3"
.Font.Name = "Arial"
.Font.Size = 13
.Font.Italic = True
.Font.ColorIndex = wdViolet
End With
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
If Not .Found Then
MsgBox "Searchtext not found"
End If
End With
End Sub
"," must be replaced by ";" in some localized versions.

Ask, if you need an explanation.
---
Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

 

[Doug Robbins - Word MVP]

You can create a two column table with the Find Text in the first column and
the Replacement Text in the second column and the interate through the rows
of that table to obtain each pair in succession and pass them to your macro.

Something like this:

Dim Source As Document, Target As Document, FText As Range, Rtext As Range,
i As Long
Set Target = ActiveDocument 'the document on which you want to perform the
operation
' Open the document containing the table of replacements
With Dialogs(wdDialogFileOpen)
.Show
End With
Set Source = ActiveDocument
Target.Activate
For i = 1 To Source.Tables(1).Rows.Count
Set FText = Source.Tables(1).Cell(i, 1).Range
FText.End = FText.End - 1
Set Rtext = Source.Tables(1).Cell(i, 2).Range
Rtext.End = Rtext.End - 1
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:=FText, ReplaceWith:=Rtext,
MatchWildcards:=True, Wrap:=wdFindStop, Forward:=True) = True
'Do your bit with the violets. See note
Loop
End With

Note: If there are variable actions to be take with the violets, add the
necessary columns to the table and include the values of those variables in
those columns and declare (Dim) some corresponding variables in the code and
load them in the same way that the FText and RText are loaded and feed the
variables to the code.

--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

Hi Helmut and Doug , I am learning a lot here. I suppose that instead of

creating a lot of little macros, one for each book ( over a 100). It would
have been better to create one big macro with lots of if possibilities but I
do not know very well how to use the " if " . I will give you the two major
example of books one with a number in front and one without. Can you suggest
a solution to cover both if possible and the violet section is to highlite
the results for the reader. But would that be to big of a macro I wonder.
Still a learner here. Thanks for any help

example for 1T 567
Sub T()
'
' T Macro
' Macro recorded 05/23/04 by Gilles Boudreau
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "T "
.Replacement.Text = "Testimonies for the Church Vol. 1, "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Selection.Find.Execute Replace:=wdReplaceOne
Selection.MoveRight Unit:=wdWord, Count:=3, Extend:=wdExtend
With Selection.Font
.Name = "Arial"
.Size = 13
.Italic = True
.ColorIndex = wdViolet
End With
Selection.EndKey Unit:=wdLine
Selection.MoveLeft Unit:=wdWord, Count:=12
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
With Selection.Font
.Name = "Arial"
.Size = 13
.Italic = True
.ColorIndex = wdViolet
End With
Selection.Copy
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdWord, Count:=6
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Paste
Selection.EndKey Unit:=wdLine
End Sub

example for AA 789

Sub AA()
'
' AA Macro
' Macro recorded 06/04/04 by Gilles Boudreau
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "AA "
.Replacement.Text = "Acts of the Apostles, The "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Selection.Find.Execute Replace:=wdReplaceOne
Selection.MoveRight Unit:=wdWord, Count:=3, Extend:=wdExtend
With Selection.Font
.Name = "Arial"
.Size = 13
.Italic = True
.ColorIndex = wdViolet
End With
Selection.EndKey Unit:=wdLine

End Sub

Hi,
have a look at this one and at
http://word.mvps.org/FAQs/General/UsingWildcards.htm
Sub Test190()
Dim oRng As Range
Dim sRpl As String
Dim bFnd As Boolean
Set oRng = ActiveDocument.Range
sRpl = "Testimonies for the Church Vol. "
With oRng.Find
.Text = "([0-9]{1,})(T )([0-9]{1,}.[0-9]{1,})"
.MatchCase = True
With .Replacement
.Text = sRpl & "\1 \3"
.Font.Name = "Arial"
.Font.Size = 13
.Font.Italic = True
.Font.ColorIndex = wdViolet
End With
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
If Not .Found Then
MsgBox "Searchtext not found"
End If
End With
End Sub
"," must be replaced by ";" in some localized versions.

Ask, if you need an explanation.
---
Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

 

[Helmut Weber]

Hi Gilles,
(is that your name?)
as Doug uses ".MatchWildcards = true" as well,
I'm thinking, you might like to know a bit more on that topic.
"([0-9]{1,})(T )([0-9]{1,}.[0-9]{1,})" means:
Search for one or more {1,} digits [0-9]
followed by "T "
followed by one or more digits again [0-9]{1,}
followed by "."
followed by one or more digits again [0-9]{1,}.
All that is searched for is grouped in 3 groups.
A group is an expression inclosed in ().
replacement.Text = sRpl & "\1 \3" means:
cut off the found text
put in what is represented by sRpl
followed by what is in group 1 "\1"
followed by a space
followed by what is in group 1 "\3"
The inserted text is then formated.
With .Replacement
.Font.Name = "Arial"
.Font.Size = 13
.Font.Italic = True
.Font.ColorIndex = wdViolet
End With
In case, that e.g. "Testimonies for the Church Vol. " is not
preceded by a number, the search string would be:
"(T )([0-9]{1,}.[0-9]{1,})"
the replacement text would be
sRpl & "\2"
Here group 2 is replaced by itself,
in order to enable Word to apply the formating
to the replacement string. The advantage of range
over selection is that range is lightening fast.
The drawback is that you hardly see what is going on.
---
But as such texts were usually typed in by humans,
they will hardly be absolutely consistent. So don't
expect too much. Try cleaning the text beforehand of
double spaces, make sure that groups of digits like
([0-9]{1,}.[0-9]{1,}) are not ([0-9]{1,} .[0-9]{1,})
or ([0-9]{1,}:[0-9]{1,}) or ([0-9]{1,},[0-9]{1,})...
A lot of work, and pretty difficult, too.
Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98

 

[mailman]

thank for the details Helmut but since no one answer my question about puting it all in one single macro must be impossible unless i do not understand the suggestions. Do not forget people who will used that macro are reading different chapters from different books paste them together and would fire the macro to add the full names for the source books. Hope I am clear enough, please forgive me if I am not.

 

[Doug Robbins - Word MVP]

If you saw my post, then you did not understand the suggestion.

--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

thank for the details Helmut but since no one answer my question about

puting it all in one single macro must be impossible unless i do not
understand the suggestions. Do not forget people who will used that macro
are reading different chapters from different books paste them together and
would fire the macro to add the full names for the source books. Hope I am
clear enough, please forgive me if I am not.

--
XP home , Office 97

any or all responses are gratefully accepted and thank you for your time

Hi Gilles,
(is that your name?)
as Doug uses ".MatchWildcards = true" as well,
I'm thinking, you might like to know a bit more on that topic.
"([0-9]{1,})(T )([0-9]{1,}.[0-9]{1,})" means:
Search for one or more {1,} digits [0-9]
followed by "T "
followed by one or more digits again [0-9]{1,}
followed by "."
followed by one or more digits again [0-9]{1,}.
All that is searched for is grouped in 3 groups.
A group is an expression inclosed in ().
replacement.Text = sRpl & "\1 \3" means:
cut off the found text
put in what is represented by sRpl
followed by what is in group 1 "\1"
followed by a space
followed by what is in group 1 "\3"
The inserted text is then formated.
With .Replacement
.Font.Name = "Arial"
.Font.Size = 13
.Font.Italic = True
.Font.ColorIndex = wdViolet
End With
In case, that e.g. "Testimonies for the Church Vol. " is not
preceded by a number, the search string would be:
"(T )([0-9]{1,}.[0-9]{1,})"
the replacement text would be
sRpl & "\2"
Here group 2 is replaced by itself,
in order to enable Word to apply the formating
to the replacement string. The advantage of range
over selection is that range is lightening fast.
The drawback is that you hardly see what is going on.
---
But as such texts were usually typed in by humans,
they will hardly be absolutely consistent. So don't
expect too much. Try cleaning the text beforehand of
double spaces, make sure that groups of digits like
([0-9]{1,}.[0-9]{1,}) are not ([0-9]{1,} .[0-9]{1,})
or ([0-9]{1,}:[0-9]{1,}) or ([0-9]{1,},[0-9]{1,})...
A lot of work, and pretty difficult, too.
Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98

 

[Helmut Weber]

Hi Gilles,

since no one answer my question about puting it all
in one single macro must be impossible
unless i do not understand the suggestions.

The latter. :-( Quite as Doug wrote, you need a list,
that contains information on what to search for,
whether it is preceeded by a number, and what to replace with,
besides of the color issue. You would then work your way
through the list, and built find-strings and replace-strings
according to the information in the list.

Anyway, forgive me for saying so, details might only increase
confusion on your side. The first and most important thing
is to know, that it can be done.
Keep on!
Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98

 

[mailman]

well I am beginning to understand the reasonning here but after trying it it block at the bottom for some reason I am not able to understand. May be I have to enter some thing somewhere please do not give up on me . I made a document containing two colums with all the corresponding abbrev , open an other sammple test document to try the macro with a few books abbrev to change .. Than try the macro and as I say it stop at the bottom at the Do while . . . .

 

[Doug Robbins - Word MVP]

Copy and paste the code of the macro that you now have into a message so we
can see it.

--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

well I am beginning to understand the reasonning here but after trying it

it block at the bottom for some reason I am not able to understand. May be I
have to enter some thing somewhere please do not give up on me . I made a
document containing two colums with all the corresponding abbrev , open an
other sammple test document to try the macro with a few books abbrev to
change .. Than try the macro and as I say it stop at the bottom at the Do
while . . . .

 

[mailman]

sorry I had in mine to send it but forgot it here it is
Sub testfour()
Dim Source As Document
Dim Target As Document
Dim FText As Range
Dim Rtext As Range
Dim i As Long
Set Target = ActiveDocument 'the document on which you want to perform the
'
' Open the document containing the table of replacements
With Dialogs(wdDialogFileOpen)
.Show
End With
Set Source = ActiveDocument
Target.Activate
For i = 1 To Source.Tables(1).Rows.Count
Set FText = Source.Tables(1).Cell(i, 1).Range
FText.End = FText.End - 1
Set Rtext = Source.Tables(1).Cell(i, 2).Range
Rtext.End = Rtext.End - 1
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:=FText, ReplaceWith:=Rtext,
MatchWildcards:=True, Wrap:=wdFindStop, Forward:=True) = True
'Do your bit with the violets. See note
Loop
End With

End Sub

 

[Helmut Weber]

Hi Gilles,
what exactly is in the table cells?
I guess the bit that is missing is the construction
of find-string and replace-string.
Must result to something like
"([0-9]{1,})(T )([0-9]{1,}.[0-9]{1,})"
Check it by debug.print Ftext
in case of the find-string.
If there was "T " in a cell and that expression
was preceeded by a number, the find-string would be
contructed like this:
"([0-9]{1,})(" & FText & ")([0-9]{1,}.[0-9]{1,})"
Or, you put "(T )" in the cell, the find-string would be
"([0-9]{1,})" & FText & "([0-9]{1,}.[0-9]{1,})"
Or you put the whole find-string in a cell
Then Doug's example should work without alteration.
Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98

 

[mailman]

that is what I made to try it but sorry I am not following you now
CC Conflict and Courage
CCh Counsels for the Church
CD Counsels on Diet and Foods
CE Christian Education
CET Christian Experience and Teaching
CEv Colporteur Evangelist
CG Child Guidance
CH Counsels on Health
ChL Christian Leadership
ChS Christian Service
CL Country Living
CM Colporteur Ministry
COL Christ's Object Lessons
Con Confrontation
COS Christ Our Saviour
CS Counsels on Stewardship
CSW Counsels on Sabbath School Work
CT Counsels to Parents, Teachers, and Students
what really is missing and where please if it is not too much to ask

 

[Doug Robbins - Word MVP]

The following code will replace each instance of the code in the first
column of the table with the text that is in the second column:

Dim Source As Document
Dim Target As Document
Dim FText As Range
Dim Rtext As Range
Dim i As Long
Set Target = ActiveDocument 'the document on which you want to perform the
'
' Open the document containing the table of replacements
With Dialogs(wdDialogFileOpen)
.Show
End With
Set Source = ActiveDocument
Target.Activate
For i = 1 To Source.Tables(1).Rows.Count
Set FText = Source.Tables(1).Cell(i, 1).Range
FText.End = FText.End - 1
Set Rtext = Source.Tables(1).Cell(i, 2).Range
Rtext.End = Rtext.End - 1
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:=FText, MatchWholeWord:=True,
MatchWildcards:=False, Wrap:=wdFindStop, Forward:=True) = True
Selection.Text = Rtext
Selection.Collapse wdCollapseEnd
Loop
End With
Next


--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

that is what I made to try it but sorry I am not following you now
CC Conflict and Courage
CCh Counsels for the Church
CD Counsels on Diet and Foods
CE Christian Education
CET Christian Experience and Teaching
CEv Colporteur Evangelist
CG Child Guidance
CH Counsels on Health
ChL Christian Leadership
ChS Christian Service
CL Country Living
CM Colporteur Ministry
COL Christ's Object Lessons
Con Confrontation
COS Christ Our Saviour
CS Counsels on Stewardship
CSW Counsels on Sabbath School Work
CT Counsels to Parents, Teachers, and Students
what really is missing and where please if it is not too much to ask
--
XP home , Office 97

any or all responses are gratefully accepted and thank you for your time

Hi Gilles,
what exactly is in the table cells?
I guess the bit that is missing is the construction
of find-string and replace-string.
Must result to something like
"([0-9]{1,})(T )([0-9]{1,}.[0-9]{1,})"
Check it by debug.print Ftext
in case of the find-string.
If there was "T " in a cell and that expression
was preceeded by a number, the find-string would be
contructed like this:
"([0-9]{1,})(" & FText & ")([0-9]{1,}.[0-9]{1,})"
Or, you put "(T )" in the cell, the find-string would be
"([0-9]{1,})" & FText & "([0-9]{1,}.[0-9]{1,})"
Or you put the whole find-string in a cell
Then Doug's example should work without alteration.
Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98

 

[Helmut Weber]

Hi Gilles,
If you send me some sample documents
and the doc containing the table,
I will have a closer look at it,
if I can find the time.
---
replace chr(64) by @ and remove quotation marks
Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98

 

[mailman]

thank you but should I sent all that in a post?

 

[Helmut Weber]

EMail to
---
"red.sys" & chr(64) & "t-online.de"

replace chr(64) by @ and remove quotation marks

Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98

 

[Doug Robbins - Word MVP]

Did you try the code that I gave you?

--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

 

[mailman]

yes Doug I have tried it but I am not sure if I have everything Ok here for it to run properly. It is still stopping at the Do while ....I appreciate your sincere effort to help me but because of lack of knowledge I can't understand why it does not work . Am I suppose to add the name of my files in your code , what should be open etc . Sorry but as much as I would like to master more that vba knowledge, I am not a guru in it far from it. It is only by God's grace that I can create and understand some of it. So it could be all my fault why it is not working and really thank you again for your effort and your precious time. I will send my stuff to Helmut but I am open still to your help , no preference here , I do not want to abuse of your patience . In my ignorance I might not realize it. Thanks again
XP home , Office 97

any or all responses are gratefully accepted and thank you for your time