macro help needed

[qmann]

You all have been extremely helpful and a need a little bit of a hand. I'm kind of getting away from excel here but he outcome i'm sure would be the same. This is actually a word problem.
I need to set up a button macro that will search for a string and if it finds that string replace it with another string, then autosave the document.

So if I need to change every value of H001 with H00 then autosave what would be the code for that macro.

Like i said i know this is getting away from excel but you guys have been extremely helpful in the paste and you all seem to know your macros very well.

 

[Joe4]

If you don't get an answer, trying posting the question to a Word site, like http://www.theofficeexperts.com/forum/

 

[Smitty]

I hate Word, but if you're forced to use it, why not try the recorder?

Here's what I got:

Sub FindReplace()

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "H001" ' I suppose you could add an Input Box here if you wanted
        .Replacement.Text = "H00"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ActiveWindow.ActivePane.SmallScroll Down:=-9

End Sub

I imagine that there's a way to get rid of the Selects, but I don't mess with Word, let alone use VBA with it.

Hope that helps,

Smitty

 

[TommyGun]

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> ReplaceCode()
    <SPAN style="color:#00007F">Dim</SPAN> findValue <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
    <SPAN style="color:#00007F">Dim</SPAN> replaceValue <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
    
    findValue = "code"
    replaceValue = "stuff"
    
    <SPAN style="color:#00007F">With</SPAN> ActiveDocument.Range.Find
        .ClearFormatting
        .Text = findValue
        <SPAN style="color:#00007F">With</SPAN> .Replacement
            .ClearFormatting
            .Text = replaceValue
        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>
        .Execute MatchCase:=True, MatchWholeWord:=True, Format:=True, Replace:=wdReplaceAll
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>

 

[qmann]

Thanks for your reply!! I want it all to correspond to a button click so i have inserted a button and i have the save aspect no problem.. but am still having a problem with the find replace.

I have:

Private Sub CommandButton1_Click()
f = "F:\Save Template\"
ActiveDocument.SaveAs f & Format(Now(), "DDMMYYYYHHSS") & ".doc"
End Sub

This works fine for the saving but i am still having a tough time getting the find replace going

 

[TommyGun]

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> CommandButton1_Click()
    <SPAN style="color:#00007F">Dim</SPAN> findValue <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
    <SPAN style="color:#00007F">Dim</SPAN> replaceValue <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
    
    findValue = "H001"
    replaceValue = "H00"
    
    <SPAN style="color:#00007F">With</SPAN> ActiveDocument.Range.Find
        .ClearFormatting
        .Text = findValue
        <SPAN style="color:#00007F">With</SPAN> .Replacement
            .ClearFormatting
            .Text = replaceValue
        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>
        .Execute MatchCase:=True, MatchWholeWord:=True, Format:=True, Replace:=wdReplaceAll
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>

    ActiveDocument.SaveAs "F:\Save Template\" & Format(Now(), "DDMMYYYYHHSS") & ".doc"
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[qmann]

thank you tremendously.. works like a charm!!!!