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

[µo°Ý] ¬°¦ó½Æ»sBÀɦÜAÀɤº,AÀɪº­¶¼Æ«o·|ÅÜ°Ê?(«æ)

[µo°Ý] ¬°¦ó½Æ»sBÀɦÜAÀɤº,AÀɪº­¶¼Æ«o·|ÅÜ°Ê?(«æ)

A,B ¬Ò¬°WORDÀÉ
§Ú·Q¦bAÀɪº¬Y­Ó¦r¦êªº¤U¤@­¶´¡¤JBÀɪº©Ò¦³¸ê®Æ
AÀɪº¬Y­Ó¦r¦ê­n´¡¤Jªº­¶¼Æ¬°38µM«á«ö´¡¤J¤À­¶²Å¸¹
¦]¦¹¹ê»Ú´¡¤Jªº¦ì¸m¬°38­¶
¦¹®É¶}±ÒBÀÉ,BÀɤº®e¬°12­¶
½Æ»s¤è¦¡¬°,¥þ³¡¿ï¾Ü(CTRL + A =>CTRL +C)
µM«á¦^¨ìAÀɪº38­¶CTRL +V
µ²ªGAÀɪº¬Y­Ó¦r¦êªº¦ì¸m«o·|¶]¨ì34­¶©Î¬O35­¶
«ç»ò·|³o¼Ë
©ú©ú¬O¦b38­¶¶}©l¶K¤W,­ì©lªº¦ì¸m«o²¾°Ê¨ì34©Î¬O35¬Æ¦Ü36­¶(¨C¦¸¶K¤W¦n¹³¦ì¸mÁÙ¤£¤@©w)
¦³¤Hª¾¹D¸Ñ¨M¤è¦¡¶Ü?

§Ú¥Î¤H¤uªº¤è¦¡©Î¬O¥ÎVBA³£·|¦³¬Û¦P±¡ªp¥X²{
VBA µ{¦¡½X¬°(³¡¤À¥N½X)
  1. '¶}±ÒTEST TABLE
  2.         Set objDoca = objWord.Documents.Open(fPath & rawWord)
  3.         Set objSelection1 = objWord.Selection
  4.         '½Æ»s
  5.         objSelection1.WholeStory
  6.         objSelection1.Copy
  7.         '¿ï¾ÜReport¨Ã¥B¶K¤W
  8.         objWord.Activate
  9.         objSelection.PasteAndFormat (wdFormatOriginalFormatting)
½Æ»s¥N½X
¦]¬°¬O«Ü­«­nªº³ø§i,¤@©w­n¦A¶g¤@¤§«e·d©w,³Â·Ð¦U¦ì¤j¤j¤F
PKKO

¦U¦ì¤j¤j­Ì,¤p§Ì¦Û¤v§ä¨ìµª®×Åo!
­ì¨Ó¬OAÀɦ³³]©w­¶­º­¶§À,BÀɨS¦³
·íBÀÉ´¡¤J¨ìAÀɤ§«á
AÀÉ´NÅܦ¨¨S¦³­¶­º­¶§À¤F
¦]¦¹­¶¼Æ¤~·|¤£¦P
PKKO

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD