ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[¤À¨É] ¤@¦¸§R°£¤å³¹¤º¦h¾lªºªÅ¥Õ

[¤À¨É] ¤@¦¸§R°£¤å³¹¤º¦h¾lªºªÅ¥Õ

¥»©«³Ì«á¥Ñ °¶ÔÐ ©ó 2010-5-8 01:09 ½s¿è

³o­Ó°ÝÃD¬Oºô¤Í¨Ó«H°Ý¨ìªº°ÝÃD,¦b¦¹¶K¥X¨Ó¨Ñ¤j®a°Ñ¦Ò
1.[½s¿è]>[¨ú¥N]
2.[´M§ä¥Ø¼Ð]«á¤è¿é¤J¤@­ÓªÅ¥Õ(´N¬O«ö¤@­ÓªÅ¥ÕÁä)
3.[¨ú¥N¬°]«á­±³£¤£¥Î¿é¤J¥ô¦óªF¦è
4.«ö[¥þ³¡¨ú¥N]

¤å³¹¤¤­Y¦³­^¤å¦r,¥H¤W§@ªk·|¨Ï­^¤å¥y¤l³s¦b¤@°_
·Q¨ìªº¤èªk¥u¦³¥H¤U,¤£«ç»ò¦³®Ä²v,¦ý¥i°Ñ¦Ò¬Ý¬Ý
1.¥ý±N[enter](§Y^p)¥Î0¨ú¥N
2.[´M§ä¥Ø¼Ð]¿é¤J[!a-zA-Z0-9],§Y´M§ä¤¤¤å¦r,[¨ú¥N¬°]¤º¤£¿é¤J
3.[´M§ä¥Ø¼Ð]¿é¤J0,[¨ú¥N¬°]¿é¤J[^p]
­Yºô¤Í¦³§ó¦nªº¤èªk,Åwªï¤À¨É!

µù¡G©óª©2005-01-24µoªí
°¶Ôйq¤l®Ñ,Åwªï§K¶O¤U¸ü°Ñ¦Ò
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
°¶ÔÐÂîѮw---https://www.facebook.com/groups/669579416484096/
¦³¤@®a¬a¥J©±---https://www.facebook.com/sadodona

½Ð°Ý  ±N[enter](§Y^p)¥Î0¨ú¥N  ¤¤¡A^p¬O¤°»ò·N«ä©O

TOP

¦^´_ 3# ­Ü¥Ð³z

^p ´N¬O[¬q¸¨¼Ð°O],¤]´N¬O«ö¤UEnterªº·N«ä
°¶Ôйq¤l®Ñ,Åwªï§K¶O¤U¸ü°Ñ¦Ò
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
°¶ÔÐÂîѮw---https://www.facebook.com/groups/669579416484096/
¦³¤@®a¬a¥J©±---https://www.facebook.com/sadodona

TOP

¦^´_ 3# ­Ü¥Ð³z


    ­Y·Qª¾¹D§ó¦h¤è¦¡¡G¦b"´M§ä¤Î¨ú¥N"¹ï¸Ü®Ø¤¤¥¡¤U¤è¦³­Ó"§ó¦h¡¿(M)"ªº«ü¥O«ö¶s¡A«ö¤U«á¡A¹ï¸Ü®Ø¤U¤è¤S¦h¥X"«ü©w¤è¦¡(E)¡¿"ªº«ü¥O«ö¶s¡C«ö¤U«á¥i¥H±o¨ì§ó¦hªº¥N½X¤è¦¡¡C




ª©¥Dªº³o¯µ³Z¹ï¤¤­^¤å¥æÂøªº³B¸Ì¡A¯u¬O¦n¥Îªº³B¸Ì¤è¦¡¤Î«ä¦Ò¤è¦V¡CÁÂÁ¡I

TOP

½Ð°Ý[!a-zA-Z0-9]¤¤ !¥Nªíªº·N¸q¬°¦ó?
¦³¬d¨ì[A-Za-z0-9]  ¥Nªí¤j¤p¼g¦r¥À©M¼Æ¦r¥ô¿ï

TOP

¦^´_ 6# infoverdad

[!a-zA-Z0-9] ªí¥Ü"±Æ°£"a-zA-Z0-9
°¶Ôйq¤l®Ñ,Åwªï§K¶O¤U¸ü°Ñ¦Ò
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
°¶ÔÐÂîѮw---https://www.facebook.com/groups/669579416484096/
¦³¤@®a¬a¥J©±---https://www.facebook.com/sadodona

TOP

¦^´_ 7# °¶ÔÐ


    ­ì¨Ó¦p¦¹,¾Ç²ß¤F!ÁÂÁ±z!!

TOP

¥i¸Õ¸Õ¬Ý¥H¤U³o­Ó Word VBA¡A
¥u§R°£¤¤¤åµ¥¥þ§Î¦r¤§¶¡ªºªÅ¥Õ¡A
¤£·|§R°£­^¤å¦r¤§¶¡ªºªÅ¥Õ¡C
  1. Sub DeleteMiddleBlank()
  2.     ' Delete Middle Blanks¡G¥h°£¥þ§Î¦r¶¡ªº³æ¤@ªÅ¥Õ
  3.    
  4.     ActiveDocument.Content.Select
  5.    
  6.     With Selection
  7.         .InsertParagraphBefore
  8.         Do While .Find.Execute(FindText:=" ")
  9.             If Asc(.Previous) < 0 Then     ' ­YªÅ¥Õ«e¬°¥þ§Î¦r
  10.                 If Asc(.Next) < 0 Then     ' ¥BªÅ¥Õ«á¬°¥þ§Î¦r
  11.                     .Delete
  12.                 End If
  13.             End If
  14.         Loop
  15.     End With
  16.    
  17.     With ActiveDocument.Range(0, 0)
  18.         .Delete
  19.         .Select
  20.     End With
  21.    
  22. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD