Repeated Character

Question

Hello, i have some problems with repeated characters, for example some word said

wwoorrdd or WWWWoordd or ----wwwooorrd

 i didn't know how much characters are repeated or wich one they are, i tried with wildcards but i don't know how said that is the same chracter i tried with

(?){2,}

repleace:\1

but it look for any character so it see

tp 

like a posibility, anyone can help me please thz

Answer 1

Cross-posted (and answered) at: http://www.msofficeforums.com/word/23433-repeated-character.html#post73101

For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184

Answer 2

You could use a macro containing the following code:

Dim i As Long

Dim strFind As String

For i = 65 To 122

    If i < 91 Or i > 96 Then

        strFind = "[" & Chr(i) & "]{2,}"

        Selection.HomeKey wdStory

        Selection.Find.ClearFormatting

        With Selection.Find

            Do While .Execute(FindText:=strFind, Forward:=True, _

                MatchWildcards:=True, Wrap:=wdFindStop) = True

                Selection.Range.Text = Chr(i)

            Loop

        End With

    End If

Next I

but, it would change any replace the repeated characters in words like better, foot, feet, feed with just a single instance of the repeated character so that in the case of these examples, you would end up with beter, fot, fet, fed.

Answer 3

hello, thz sorry for answer late, i use the method that you show me last week. 

Sorry about Cross-posted, i knew that i problably haven't my pc or office for about 1 or 2 weeks and i needed resolve it before it happend, thz and sorry again.

Cross-posted (and answered) at: http://www.msofficeforums.com/word/23433-repeated-character.html#post73101

For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184

Answer 4

thz for your answer, sorry for answer you too late, i didn't have acces to my pc until know, thz

You could use a macro containing the following code:

Dim i As Long

Dim strFind As String

For i = 65 To 122

    If i < 91 Or i > 96 Then

        strFind = "[" & Chr(i) & "]{2,}"

        Selection.HomeKey wdStory

        Selection.Find.ClearFormatting

        With Selection.Find

            Do While .Execute(FindText:=strFind, Forward:=True, _

                MatchWildcards:=True, Wrap:=wdFindStop) = True

                Selection.Range.Text = Chr(i)

            Loop

        End With

    End If

Next I

but, it would change any replace the repeated characters in words like better, foot, feet, feed with just a single instance of the repeated character so that in the case of these examples, you would end up with beter, fot, fet, fed.