How to loop once through document

Seti · #1 04-09-2020, 12:41 PM

Hi,

It can be repeated forever if you move to the end of the line after making the edit, I think. The code below works for me, anyways:

Code:

Sub Invited()


    'Go to the beginning of the document
    Selection.HomeKey Unit:=wdStory
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "invited"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = True
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        
    End With

    While Selection.Find.Execute
    
        Selection.HomeKey Unit:=wdLine
        Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        
        Dim strW As String
        strW = ChrW(55357) & ChrW(56395)
        Selection.TypeText Text:=strW
    

        'Without line this it runs forever

        Selection.EndKey Unit:=wdLine
        
    Wend
    
End Sub

I'm guessing the reason it kept going forever before was that the Selection kept on jumping to the start of the line, before the previous thing it found, and then went on to find the previous thing it found, again, and so on!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
vba for next loop	phoenixmoto	Word VBA	4	11-06-2018 01:59 PM
Loop thru document and create bookmarks	jeffreybrown	Word VBA	3	09-22-2018 06:04 AM
Loop true all opned word document	elbartje	Word VBA	1	06-12-2017 05:27 PM
VB for Word - Need macro to loop each line in a document	NDeane	Word VBA	5	12-22-2015 08:12 PM
Loop through files and Copy Table Row and Paste into Different Document	spiderman1369	Word VBA	2	10-15-2014 08:30 AM