]] XL-mania [[ Kode VBA untuk Membuat huruf miring pada kondisi tertentu..

 

mas mau tanya nih, 

mengenai kode vba di excel 2010 untuk mengganti text dalam "( )" menjadi italic atau miring.

contoh yang di iginkan seperti ini : 

cleaning service ( petugas kebersihan ) --> yang di inginkan menjadi cleaning service ( petugas kebersihan )

saya sudah pake script ini. 

tapi runtime error 450 terus. kira kira problem solvng nya apa ya ? 

terimaksih

aditia

  Sub Find_and_Italicise()  '  ' Macro recorded by Bird_FAT  ' This macro uses the wildcard '*' to look for text  ' between to underscores, then italicises the text.  ' The While/Wend statement at the end causes it to  ' loop until it reaches the end of the document.  '      Selection.Find.ClearFormatting      With Selection.Find          .Text = "(*)"          .Replacement.Text = ""          .Forward = True          .Wrap = wdFindContinue          .Format = False          .MatchCase = False          .MatchWholeWord = False          .MatchAllWordForms = False          .MatchSoundsLike = False          .MatchWildcards = True      End With      While Selection.Find.Execute      Selection.Font.Italic = wdToggle      Wend  End Sub

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (1)

Recent Activity:

• New Members 62

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Selamat jalan SitiVi, semoga bahagia di sisi-Nya...               |
| Maaf moderasi lemooOooOott... momods siboek                       |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di :                                            |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___