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

[µo°Ý] Ãö©ó§Q¥Îvba±Nexcel¸ê®Æ¶Ç¤Jword

[µo°Ý] Ãö©ó§Q¥Îvba±Nexcel¸ê®Æ¶Ç¤Jword

¦U¦ì¦n¡G§Ú¦]¬°¦³»Ý­n¡A¤Wºô¬d¤F¦¹¥\¯à
¦ý·íªì¼gªº¥u¦³¤Gµ§¸ê®Ækey(1)' key(2)
¦Ó§Úªº»Ý­n¥i¯à¶W¹L10µ§¸ê®Æ»Ý­n³z¹Lvba±Nexcel¸ê®Æ¶Ç¤Jword¡A¤£ª¾­n¦p¦ó§ó§ï
½Ð«e½ú¯à°÷¨ó§U»¡©ú

Private Sub CommandButton2_Click()
    Application.ScreenUpdating = False  'Ãö³¬«Ì¹õ¨ê·s
    On Error Resume Next    '®·®»¿ù»~
    Dim oSt As Range, wdDoc As Word.Document, wdRange As Word.Range
    myPath = ThisWorkbook.Path & "\2.doc"   '©w¸qword¤å¥ó¸ô®|,¦W¦r¦Û¤v­×§ï,§Ú³]©w¬°2.doc
    Set wdDoc = GetObject(myPath)    '¥´¶}word
    Dim key(2)        '©w¸q¤@¤U¼Æ²Õ,
    key(1) = "Applicant :"   '­n´À´«ªº¼ÆÕu
    key(2) = "Assignment No :"
      Set wdRange = wdDoc.Content  '±Nwordªº¤åÀɤº®e½á¤©wdrange
    For i = 1 To 2     '´`Àô
        With wdRange.Find
            .Text = key(i)            '¬d§ä
            .Replacement.Text = key(i) + IIf(i = 1, Cells(1, 2).Value, Cells(2, 2).Value)  '´À´«
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        wdRange.Find.Execute Replace:=wdReplaceAll             '¥þ³¡´À´«?
      
    Next
    wdDoc.Save     '«O¦sword
    wdDoc.Close    'Ãö³¬word
    Set wdDoc = Nothing
    Application.ScreenUpdating = True '¶}±Ò«Ì¹õ¨ê·s
   
End Sub

¦^´_ 1# kuu
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.         Dim xWord As Object, myRange As Object, E As Range  ', key(1 To 2)
  4.         Set xWord = CreateObject("Word.Application")  ' Word µ{¦¡
  5.         With xWord
  6.             .Visible = True
  7.                 .DOCUMENTS.Open (ThisWorkbook.Path & "\2.doc")   '¶}±ÒÀÉ®×
  8.                 Set myRange = .ActiveDocument.Content    'Àɮפå¥ó¥»¤å
  9.         End With
  10.        ' key(1) = "Applicant :"
  11.        ' key(2) = "Assignment No :"
  12.        ' For Each E In key        ''­n´À´«ªº¼ÆÕu ¦b°}¦C   '-> ­×§ï¬° E As Variant
  13.         For Each E In [a1:a4]   ' ­n´À´«ªº¼ÆÕu ¦b¤u§@ªí
  14.             myRange.Find.Execute FindText:=E.Text, MatchWholeWord:=True, ReplaceWith:=E & E.Row, Replace:=2  'wdReplaceAll
  15.         Next
  16.         myRange.Parent.Save  '¦sÀÉ
  17.          xWord.Quit               'Ãö³¬Word µ{¦¡
  18. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2016/4/7 06:25): ªþÀÉ»¡©ú¬Ý¬Ý

¦^´_ 2# GBKEE
·PÁÂGBKEE«e½úªº»¡©ú
¤£¹L¡A§Ú»Ý­n±NEXCELªº¬Y¨ÇÄæ¦ì¡A±a¦ÜWORD¦ì¸m
¥i¯àEXCELªºA1Äæ¦ì¸ê®Æ(¤µ¤Ñªº¤é´Á)¡A»Ý­n±a¦ÜWORD²Ä¤@­¶ªº²Ä¤@Ä檺¬Y¤å¦r«á­±¥X²{¡A¦p´ú¸Õ¤é´Á¡G¡÷±a¥X2016/04/06
EXCELªºB2Äæ¦ì¸ê®Æ(ª««~¦WºÙ)¡A»Ý±a¦ÜWORD²Ä¤@­¶¡A²Ä¤­Ä檺¬Y¤åª««á­±¥X²{¡G¦pª««~¦WºÙ¡G¡÷ABC
EXCELªºC5Äæ¦ì¸ê®Æ(§¹¦¨¤é´Á)¡A»Ý±a¦ÜWORD²Ä¤G­¶¡A²Ä¤@Ä檺¬Y¤å¦r«á­±¥X²{¡A¦p§¹¦¨¤é´Á¡G¡÷±a¥X2016/04/06

¨Ã«D±NEXCLE¸ê®Æªí¡A¶K¨ìWORDªº¸ê®Æªí

¤£ª¾«e½ú¬O§_¯àÀ°¦£­×§ï

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD