[µo°Ý] Ū¨úªí®æ

kannas

½Ð°Ý¦p¦ó¥ÎExcel ªºVB¡A¼g¦¨Åª¨úwordªºªí®æ¡A
¨Ã§â¥¦ÂàÅܦbExcel¤W­±¡A®æ¦¡­n¸òword¤Wªº¤@¼Ë¡C

kannas

§Ú«üªº¬Oµ{¦¡°õ¦æ®É¡A
·|¦Û°ÊŪ¨ú«ü©w¸ô®|ªºwordÀɮסA
¨Ã§âÀÉ®×¼g¦^Excel¤W­±¡A
¦ý§Ú§Æ±æ¥Lªº®æ¦¡¤£·|ÅÜ¡C

¦³ÂI¹³¬O
http://tw.myblog.yahoo.com/jw!_DIL5waFHwVKfL8odMZ4urti/article?mid=1617&prev=1572&next=1615&l=f&fid=16
³o­Óªºµ{¦¡
¦ý¬O§Ú¥Î³o­Ó§Ë¡A®æ¦¡·|ÅÜ¡AÁöµM¦ì¤l¤@¼Ë¡A¦ý®æ¦¡«o¨S¤F¡C

kannas

§Úªºªí®æ¤W¦³¨Ç®æ¤º¦³¤À¦æ
§Ú·QÅý¥L¦bExcel¤º¥u¦b¤@­Ó®æ·Q¥ÎChr¨Ó¤À¦æ

¤W­±¨º­Óµ{¦¡¥L·|§ó§ï¨ìwordªº¸ê®Æ¡AÅܱo¨C¦¸³£·|°Ý¬O§_¦swordÀÉ®×

¥i¥Hªº¸Ü¥i¥H¸ÑÄÀ¨C­Óµ{¦¡ªº·N«ä¶Ü?
¦]¬°§Ú¦³¨Ç¬Ý¤£À´¡A§Ú·Q¤F¸Ñ¨C¨BÆJªº·N«ä¡C
·PÁ¡C

kannas

¦^´_ 6# Hsieh


    ³o­Óµ{¦¡µLªk°õ¦æ­C
   ¥¦Åã¥Ü½sĶ¿ù»~:  ¨Ï¥ÎªÌ¦Û­q«¬ºA©|¥¼©w¸q

kannas

¦^´_ 8# Hsieh


   ½Ð°Ý§Ú¥Î¤W­±¨º­Óµ{¦¡«á¡A¦]¬°¦³¨Çªí®æ¤º¥Lªº¦r¼Æ¦³ÂI¤p¦h¡A
  ¥Î¦Û°Ê½Õ¾ãÄæ¼eªº¸Ü¡A¾ã­Óªí®æ´N·|¯}Ãa±¼¡AÅܱo«Ü¼e¡C
  ¹³¬O¦³¤@¦ê¦r¡AÂI¤U®æ¤l¤º¥L·|Åã¥Ü¥þ³¡ªº¦r¡A¦pªG¨SÂI´N¥uÅã¥Üªí®æ¤j¤p©Ò¯àÅã¥Üªº¦r¼Æ¡A¨ä¥L«h¤£Åã¥Ü¡A
  ¥i¥H§â¥¦§Ë¦¨¹³¬O¦Û°Ê´«¦æ¶Ü?
   Åýªí®æ¬Ý°_¨Ó¤£·|«Ü©_©Ç?

   °Ý¤F³o»ò¦h  ¯u¬O³Â·Ð¦U¦ì¤F  ÁÂÁÂ!!!

kannas

¦^´_ 10# Hsieh


½Ð°ÝJoinªºµ{¦¡¦³¿ìªk¥ÎAnd¨Ó¼g¶Ü?
§ÚÅ¥¤H»¡³o­Ó¤ñ¸û²³æ¡AJoin¬O¤ñ¸û°ª¶¥ªº¥Îªk
§Ú¤£©ú¥Õ¥ÎAnd¼gªº¸Ü¡A¬O­n­þ¨Ç±ø¥ó³sµ²­þ¨Ç±ø¥ó??

               ¡¯ReDim Preserve Ar(s)
               ¡¯Ar(s) = Tb.Cell(i, j).Range.Sentences(s + 1)
               
            Next
            
         ¡¯mystr = Join(Ar, Chr(10))
         ¡¯.Value = mystr
         ¡¯.WrapText = True
         
         End With
         
         Erase Ar


ÁÙ¦³¥i¥H¸ÑÄÀ¤W­±¦³¡¯ªºµ{¦¡·N«ä¶Ü?
§ÚÁöµM¤j·§ª¾¹D·N«ä¡A¦ý¦³¤H°Ý§Ú®É¡A§Ú¯uªºµLªk¹F¥X¨Ó¡C


³Â·Ð±z¤F  ÁÂÁÂ!