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

wordªí®æ¸ê®Æ½Æ»s¥¨¶°

wordªí®æ¸ê®Æ½Æ»s¥¨¶°

§Ú·Q§âÀÉ®×1¸Ìªºªí®æ¸ê®Æ½Æ»s¨ìÀÉ®×2¸Ì,
¨Ï¥Î¤Fword¥¨¶°¿ý»s«á,¦n¹³µLªk°_§@¥Î,¤£ª¾¬O¤£¬O­þ¸Ì¦³°ÝÃD,
½Ð¦U¦ì°ª¤â¥i¥HÀ°§Ú¬Ý¤@¤U¶Ü?

Àɮפ@¤º®e¬°:
¦W¦r:
¦í§}:
¹q¸Ü:

¥¨¶°¤º®e¡G

    Selection.MoveUp Unit:=wdLine, Count:=2
    Selection.MoveLeft Unit:=wdCharacter, Count:=3
    Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend
    Selection.Copy
    Windows("2").Activate
    Selection.MoveUp Unit:=wdLine, Count:=4
    Windows("1").Activate
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=5
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=3
    Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend
    Selection.Copy
    Windows("2").Activate
    Windows("1").Activate
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=3
    Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend
    Selection.Copy
    Windows("2").Activate
    Selection.TypeParagraph
    Windows("1").Activate
    Selection.PasteAndFormat (wdPasteDefault)
End Sub

¬°¦ó­n¿ý»s¥¨¶°¡H
Word§e²{·¥­PªºÀRºA¤§¬ü¡AExcel®i²{·¥­Pªº°ÊºA¤§¬ü¡C

TOP

¦]¬°¬O­n½Æ»sÀÉ®×1¯S©w¤º®e¨ìÀÉ®×2¤¤¡A¦]¬°¬O©T©w§ì¨ú¡A·Q³z¹L¥¨¶°´î¤Ö­«½Æ¤u§@

TOP

¿ý»sªº¥N½X¤£¯àÀ³¥I½ÆÂøªº¤u§@¡AÄ´¦p
selection¥i¥H«üÀÉ®×1¡A¤]¥i¥H«üÀÉ®×2¡A¦bÀɮ׶¡¨Ï¥Î·|¿ù¶Ã¡C
­n­×§ï¡A¤£­n¥Îselection¡A¥Îdocuments(x).range(n,m)
Word§e²{·¥­PªºÀRºA¤§¬ü¡AExcel®i²{·¥­Pªº°ÊºA¤§¬ü¡C

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD