ªð¦^¦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 : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD