Re: Replacing Text w/Autotext - Greg, Ed, Graham,Russ   

"jerem" wrote:

> Summer, 
> 
> Thank you, thank you, thank you.  Someone understand me.   I've been trying 
> to explain in every possible way I could that I want text - What text?  [A], 
> [B], [C], etc. that is dispersed throughout a document to be replaced by its 
> similarly named autotext entry - autotext entry - autotext entry, not 
> autotext code.  (These similarly named autotext entries have been set up 
> prior to running the macro).  The code I've been using (which appears below) 
> works beautifully and fast (about 2 seconds flat replacing all [A], [B], [C], 
> etc. with their similarly named autotext entry) - the only problem was I 
> didn't know how to get it to loop so that if there are 4 [A]'s in the 
> document it finds all 4 and replaces them with their similarly named autotext 
> entry, then do a similar find and replace for the [B]'s, [C]'s and so on and 
> so forth.  So in order to combat that problem I've used a counter
> 
>  Dim i As Integer
>     i = 4 (why because there are 4 [A]'s in this document that I need 
> replaced)
>     Do
>     i = i - 1 
> Selection.Find.ClearFormatting 
> With Selection.Find 
> .Text = "[A]" 
> .Replacement.Text = "" 
> .Forward = True 
> .Wrap = wdFindContinue 
> .Format = False 
> .MatchCase = True 
> .MatchWholeWord = False 
> .MatchWildcards = False 
> .MatchSoundsLike = False 
> .MatchAllWordForms = False 
> End With 
> Selection.Find.Execute 
> Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ 
> "AUTOTEXT [AB] ", PreserveFormatting:=False 
> Loop Unitl i = 0
> i = 6 (why because there are 6 [B]'s in this document that I need replaced)
>     Do
>     i = i - 1 
> Selection.Find.ClearFormatting 
> With Selection.Find 
> .Text = "[B]" 
> .Replacement.Text = "" 
> .Forward = True 
> .Wrap = wdFindContinue 
> .Format = False 
> .MatchCase = True 
> .MatchWholeWord = False 
> .MatchWildcards = False 
> .MatchSoundsLike = False 
> .MatchAllWordForms = False 
> End With 
> Selection.Find.Execute 
> Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ 
> "AUTOTEXT [B] ", PreserveFormatting:=False (this sentence replaces the found 
> text with the autotext entry)
> Loop Unitl i = 0
> 
> The problem (which was not a functional problem) was I didn't want to have 
> to tell it how many [A]'s, [B]'s to replace (what if someone decided to add 
> another [A] in the document later on down the line, then it would become a 
> functional problem because it would miss replacing that text).  So my initial 
> question that was posed was can I get this to somehow do a Replace All for 
> each find or can someone give me a way to loop each set of finds.  This then 
> spawned all kinds of suggestions (which I do appreciate and have tried to 
> implement), however, they don't seem to do anything.  Do I know how to write 
> a macro - yes, have written many.  Am I fluent in VBA - no.  I let my macro 
> recorder do my code-writing.  I scavenge this site and others and grab pieces 
> here and there.
> 
> So, I never had a problem with my macro working - I just wasn't happy with 
> having to designate how many of each bracketed text [A], [B], etc. there were 
> and I only did designate it because I didn't know how to get each Find and 
> Replace to loop until it was done with the [A]'s, [B]'s, [C]'s, etc.
> 
> If you see my previous inquiry (which was similarly named - Replace Found 
> Text wtih AutoText entries)  I also went into detail why this was not being 
> handled by a merge (documents lock up - cannot breach the merge relationship 
> between the documents, which causes blacklining problems).
> 
> So, Greg, Graham, Ed, Russ - if you're out there and reading this:
> 
> I appreciate all of your help.  I cannot get your code to work for my 
> problem and it very well may be that your code is good and my VBA savvy is 
> lacking.  Again, I appreciate your effort in this.
> 
> Graham, here's the example you requested:
> 
> Autotext entries that I have already placed in AutoText [A] = Graham, [B] = 
> Greg, [C] = Ed, [D] = Russ, [E] = Summer, [F] = jerem
> 
> 
> Dear [A], [B], [C], [D],
> 
> Thank you [A],  [B], [C], and [D] for reading my problem and trying to solve 
> it.  I know you have put a lot of thought into my problem.  I'd like to thank 
> [A] for responding so quickly and [B] for being fundamental in his response 
> and [C] for being patient and [D] for his perserverance.
> 
> [B], I'm not familiar with arrays and so when that code didn't work, had no 
> idea why it didn't work.  [C], I'm sure that code was brilliant and am sorry 
> that at this stage I cannot appreciate the genius of it.  I will hold onto it 
> for the future so hopefully I can appreciate it when I do improve my VBA 
> language skills.  [A], I detect your frustation in your last communication 
> and understand it.  I've been trying to communicate EXACTLY what I needed and 
> thought I had in more than one of my communications.
> 
> Again, I appreciate all your help.  Sorry to frustrate any or all of you.  
> [E], [A], [B], [C], [D], anyone have a loop statement for me?
> 
> Very truly yours,
> 
> [F]
> 
> 
> "Summer" wrote:
> 
> > This code is fine - I have ATe code that does this:
> > 
> > Mr [A] saw Mr [C] and went to [B].
> > 
> > Run macro it does this:
> > 
> > Mr AppleA saw Mr JonesC and went to LondonB.
> > 
> > It is calling Autotext named [A] or [B] or [C] from Normal - you may need to 
> > specify location of ATe.
> > 
> > Do you know how to run a macro?
> > 
> > 
> > 
> > "Graham Mayor"  wrote in message 
> > news:%23$KIqD56HHA.3716@TK2MSFTNGP03.phx.gbl...
> > > Before we waste any more time on this, what *EXACTLY* are we looking for 
> > > in the Document
> > > and what *EXACTLY* do you want to replace the found string with?
> > >
> > > Can you reproduce a sample?
> > >
> > > It appears that you have a block of text thus '[AB]' and you want to 
> > > replace it with an autotext field of the same name if
> > > {Autotext "[AB"]} and then presumably update that field to show the 
> > > content of the autotext?
> > >
> > > Is that the full extent, or are there a variety of texts to find and 
> > > replace? If so what are they?
> > >
> > > -- 
> > > <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
> > > Graham Mayor -  Word MVP
> > >
> > > My web site www.gmayor.com
> > > Word MVP web site http://word.mvps.org
> > > <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
> > >
> > >
> > >
> > > jerem wrote:
> > >> Hi Greg, Ed, Russ, etc.
> > >>
> > >> Greg, tried the code you gave me:
> > >> Sub ScrathMacroII()
> > >> Dim myArray As Variant
> > >> Dim i As Long
> > >> Dim oRng As Word.Range
> > >> myArray = Split("[A]|[B]", "|") '[C] etc.
> > >> For i = 0 To UBound(myArray)
> > >> Set oRng = ActiveDocument.Range
> > >> With oRng.Find
> > >> .Text = myArray(i)
> > >> .Replacement.Text = ""
> > >> .Forward = True
> > >> .Wrap = wdFindStop
> > >> While .Execute
> > >> oRng.InsertAutoText
> > >> oRng.Collapse wdCollapseEnd
> > >> Wend
> > >> End With
> > >> Next i
> > >> End Sub
> > >>
> > >> and it doesn't seem to do anything.
> > >>
> > >> Ed, similar problem with the code below:
> > >> Sub Test()
> > >> ReplaceStuff ("[A]")
> > >> ReplaceStuff ("[B]")
> > >> ...
> > >> ...
> > >> End Sub
> > >>
> > >>
> > >> Sub ReplaceStuff(pText As String)
> > >> Dim MyRange As Range
> > >> Dim FindString As String
> > >>
> > >> FindString = Replace(Replace(pText, "[", "\["), "]", "\]")
> > >>
> > >> With Selection.Find
> > >> Do While .Execute(FindText:=FindString, _
> > >> MatchWildcards:=True, _
> > >> Wrap:=wdFindContinue, _
> > >> Forward:=True) = True
> > >> Set MyRange = Selection.Range
> > >> MyRange.InsertAutoText
> > >> Loop
> > >> End With
> > >> End Sub
> > >>
> > >> So.......just one more question with the code below -- rather than
> > >> using the Dim i As Integer
> > >>    i = 4
> > >>    Do
> > >>    i = i - 1
> > >> and the Loop Until i = 0 to get my set of instructions to loop until
> > >> all [A]'s appearing in the document are replaced with similarly named
> > >> autotext entries (and the only reason I'm using these statements is
> > >> because it's the only way I know how to get the darn thing to loop)
> > >>
> > >>
> > >>
> > >> I know all of you have been trying to help me by giving me other
> > >> suggestions (but it's not accomplishing what I need to get done) but
> > >> the code I've come up with does accomplish it.  I just need something
> > >> like
> > >>
> > >> Keep repeating the instructions below
> > >>     Selection.Find.ClearFormatting
> > >>    With Selection.Find
> > >>        .Text = "[AB]"
> > >>        .Replacement.Text = ""
> > >>        .Forward = True
> > >>        .Wrap = wdFindContinue
> > >>        .Format = False
> > >>        .MatchCase = True
> > >>        .MatchWholeWord = False
> > >>        .MatchWildcards = False
> > >>        .MatchSoundsLike = False
> > >>        .MatchAllWordForms = False
> > >>    End With
> > >>    Selection.Find.Execute
> > >>    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty,
> > >>        Text:= _ "AUTOTEXT  [AB] ", PreserveFormatting:=False
> > >> Until there are no more to replace then go to the next set of
> > >> instructions following this one
> > >>
> > >> I know there are Whiles and Wends but have tried to fool around with
> > >> these but can't seem to get them to work.   I just need someone to
> > >> get these instructions to loop without use a counter.  ?????????
> > >
> > > 
> > 
> > 
> >

date: Fri, 15 Aug 2008 13:03:15 -0700   author:   Irene