This macro will fix your unstandard repeating words in Indonesian document. For example sometimes you say many people with "orang2" instead "orang-orang". This macro allow you to fix all word followed by "2" character to Indonesian valid repeated word.

More Example:
Makan2 -> Makan-makan
Tidur2an -> Tidur-tiduran
Burung2 -> Burung-burung

This macro is smart. It wont fix number, for example it wont fix 2432 become 243-243. Believe me it is very smart.

To install the macro: you just simply copy and paste it to your microsoft visual basic editor in your microsoft word application, and make a menu which refer to the macro.

For more information please send it to my email at leave_fun_for_me@yahoo.com

I am use Indonesian and English language. Thank you
Sub valid()
'
' valid Macro
' Macro recorded 1/4/2006 by Leave Fun
' thekata is the word will be repeated
'
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "^$2"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    If Selection.Find.Execute() = False Then
     Exit Sub
    End If
    
    Selection.MoveRight unit:=wdCharacter, count:=1
    Selection.MoveLeft unit:=wdWord, count:=1, Extend:=wdExtend
    
    thekata = Selection.Text
    thekata = Left(thekata, Len(thekata) - 1)
    
    Selection.Text = thekata & "-" & LCase(thekata)
    Selection.MoveRight unit:=wdWord, count:=1
End Sub
Make your own free website on Tripod.com