¦p¦ó±Nexcel Range(a1) ¶K¨ì word ¤W

user999

Private Sub CommandButton1_Click()
    Dim myTmpFName As String
    myTmpFName = ThisWorkbook.Path & Application.PathSeparator _
        & "test¤å¥ó.dot"
     With New Word.Application                     
                With .Documents.Add(myTmpFName)
                     .Unprotect
                     .Tables(2).Cell(1, 1).Range.Text =  Worksheets("sheet1").Range(a1)
                     .Protect wdAllowOnlyFormFields
               End With
         .Visible = True
      End With
   End Sub

¥Î     .Tables(2).Cell(1, 4).Range.Text =  Worksheets("sheet1").Range(a1)    ¶K¤£¤W
­n«ç»ò¼g ½Ð±Ð¦U¦ì°ª¤â  ÁÂÁÂ!

kimbal

¸Õ¸Õ§â
                 .Tables(2).Cell(1, 1).Range.Text =  Worksheets("sheet1").Range(a1)
§ï¦¨
                 .Tables(2).Cell(1, 1).Range.Text =  Worksheets("sheet1").Range("a1")

user999

ÁÂÁ±z,¨S°ò¦ªºªì¾ÇªÌ,·PÁÂ!