Dear All Excel-lent berikut adalah code untuk MS WORD finding and permanen highlighting (saya copas dari forum tetangga sebelah)
Sub Find_and_Highlight_Loop() ' ' This macro will find the word in speech marks "", select it, highlight it and ' then move on and find the next one until it reaches the end of the document. ' ' To add more words, then copy the text between the markers and paste after the ' last marker ' Don't forget to replace the word ;-) ' <----------------> Selection.Find.ClearFormatting With Selection.Find .Text = "22" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Do While Selection.Find.Execute Options.DefaultHighlightColorIndex = wdYellow Selection.Range.HighlightColorIndex = wdYellow Loop ' <----------------> End Sub sekiranya bisa di modifikasi untuk kasus saya. Regards. Pada Minggu, 9 Februari 2014 11:26, "angan_l...@yahoo.co.id" <angan_l...@yahoo.co.id> menulis: Kepada para Bapak/Ibu excel-lent senua, mohon bantuan dan bimbingannya untuk menyelesaikan kasus angka berikut. file terlampir (Kerja Manual) Regards.
