Word VBA select range of text

SngTao · Mar 14th 2005

Hi guys,

I'm currently writing a word VBA and I have ran into problems.

My macro is supposed to search for the word "Forms" and select all the text until it reaches the word "Mixing".

Attached is a image and my source code, I'm new to VBA and would appreciate it if someone could help me.

Thanks :thanx:

[Blocked Image: http://img217.exs.cx/img217/7776/untitled5vh.jpg]

Code

Private Sub CommandButton1_Click()


'find the word "forms"
Selection.HomeKey
Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "forms"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
   


End Sub


Private Sub CommandButton2_Click()
'select until "Mixing" is found


While Selection.Find.Text <> "Mixing"
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Wend
 
End Sub

Display More

Dreamboat · Mar 14th 2005

Re: Word VBA select range of text

Do you require 2 clicks?

Something like this:

Code

Sub Macro3()


    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "forms"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute
    Selection.Extend
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "mixing"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
    End With
    Selection.Find.Execute
End Sub

Display More

I recorded that. Extend is the EXT button at the bottom of Word's application window...it extends the selection. I also removed a bunch of recorded lines that had =false at the end.

Word VBA select range of text

Participate now!

Share