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