Hi JWirt

like that:

Sub Test007()
Dim rDcm As Range
Set rDcm = ActiveDocument.Range
With rDcm.Find
  .Text = "KE\[ *^13"
  .MatchWildcards = True
  While .Execute
     rDcm.Text = Replace(rDcm.Text, ",", ";")
  Wend
End With
End Sub

The range rDcm shrinks to the found spot
and extends automatically to end of the doc.

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

Helmut,

I have run into a program in applying your coding ideas in the procedure
I am working on.

What I am doing is writing some VBA code to reformat a large number of
citations to journal articles in the academic literature in such a
record form:

TY[ JOURNAL
TI[ When Bigger Is Not Better: Family Size, Parental Resources, and
Children's Educational Performance
AU[ Smith,Eugene
AU[ Downey,Douglas B.
JO[ American Sociological Review
VO[ 60
NO[ 5
DA[ Oct., 1995
PP[ 746-761
WE[
http://links.jstor.org/sici?sici=0003-1224%28199510%2960%3A5%3C746%3AWBINBF%3E2.
0.CO%3B2-T
IN[ 00031224
AB[ Although the inverse relationship between the number of siblings and
children's educational performance has been well established,
explanations for this relationship remain primitive. One explanation,
resource dilution, posits that parents have finite levels of resources
(time, energy, money, etc.) and that these resources are diluted among
children as ...snipped out to shorten...whether the resource is
interpersonal or economic. Second, parental resources explain most or
all of the inverse relationship between sibship size and educational
outcomes. Finally, interactions between sibship size and parental
resources support the dilution model as children benefit less from
certain parental resources when they have many versus few siblings.
KE[ Family background
KE[ Parental education
KE[ Achievement
KE[ Siblings
ER[

There are several hundred of these in a .txt file which I load into Word
and run the code I am writing with your help.

So far, with your code I have reformatted the AU[ (author) and KE[
(keyword) fields

The next step is to reformat the article pages specified in PP[. I want
to split them into two separate fields, setting the first number before
the hyphen to the Start Page (SP) and the second number to the End Page
(EP). ER[ is the end of record symbol.

I wrote this code to

Public Sub SeparateStartEndPagesA()
    Selection.HomeKey Unit:=wdStory
    Set rDcm = ActiveDocument.Range
    With rDcm.Find
        .Text = "PP\[ *^13"
        .MatchWildcards = True
        While .Execute
             rDcm.Text = Replace(rDcm.Text, "PP[", "SP[")
             rDcm.Text = Replace(rDcm.Text, "-", vbCrLf & "EP[ ")
        Wend
    End With
End Sub

I found that this code only converts the first PP[ field and then stops.
 Only one record is changed.

By the subroutine again, the second record is changed. And so on. For
some reason, the While-.Execute-Wend loop stops working.

To solve this problem, I tried rewriting this PP[ code as two separate
operations:

Public Sub SeparateStartEndPagesA()
    Selection.HomeKey Unit:=wdStory
    Set rDcm = ActiveDocument.Range
    With rDcm.Find
        .Text = "PP\[ *^13"
        .MatchWildcards = True
        While .Execute
             rDcm.Text = Replace(rDcm.Text, "PP[", "SP[")
        Wend
    End With
End Sub

Public Sub SeparateStartEndPagesB()
    Selection.HomeKey Unit:=wdStory
    Set rDcm = ActiveDocument.Range
    With rDcm.Find
        .Text = "SP\[ *^13"
        .MatchWildcards = True
        While .Execute
             rDcm.Text = Replace(rDcm.Text, "-", vbCrLf & "EP[ ")
        Wend
    End With
End Sub

Same problem. As before, the PP[ field is reformatted only in the first
record (the first one where PP[ is found).

I don't understand this. Why does the While-.Execute-Wend loop reformat
the AU[ field but not the PP[ field.

When I used your code to split the authors into separate fields for each
 author, it worked fine:

Public Sub ReplaceSemiColonswFieldInAU()
    Dim rDcm As Range
    Selection.HomeKey Unit:=wdStory
    Set rDcm = ActiveDocument.Range
    With rDcm.Find
        .Text = "AU\[ *^13"
        .MatchWildcards = True
        While .Execute
             rDcm.Text = Replace(rDcm.Text, ";", vbCrLf & "AU\[ ")
        Wend
    End With
End Sub

Originally, the AU[ field for the record at the beginning of this
message was like this:

AU[ Smith, Eugene ; Downey, Douglas B.

When I ran the code just above for ReplaceSemiColonswFieldInAU, it
ripped through all of the records and parsed the authors in each one (up
to four authors). Why does the same code as written for the AU[ field
stop one record in reformating the PP{ field?

Also, as you can see above, I found that I had to remove the "\" from
the Replace text statement for the PP[ field but not the AU[ field.

Thanks again.

John Wirt