Private\xa0Sub\xa0Command1_Click()
Dim\xa0p\xa0As\xa0String
p\xa0=\xa0"C:\\new.doc"
Dim\xa0wd\xa0As\xa0Word.Application
Set\xa0wd\xa0=\xa0New\xa0Word.Application
wd.Documents.Open\xa0p
wd.ActiveDocument.Tables.Item(1).Cell(2,\xa02).Range.InsertAfter\xa0"test\xa04"\xa0\'insert text
wd.ActiveDocument.Tables.Item(1).Cell(3,\xa02).Range.InsertAfter\xa0"test\xa02"
wd.ActiveDocument.Tables.Item(1).Cell(4,\xa02).Select
wd.ActiveDocument.Hyperlinks.Add\xa0Selection.Range,\xa0"C:\\Документ\xa0Microsoft\xa0Word\xa01.doc"\xa0,\xa0,\xa0,\xa0"file\xa02"
Selection.TypeText\xa0Text:="\xa0"
wd.ActiveDocument.Hyperlinks.Add\xa0Selection.Range,\xa0"C:\\Документ\xa0Microsoft\xa0Word.doc"\xa0,\xa0,\xa0,\xa0"file"
wd.ActiveDocument.Close\xa0wdSaveChanges
wd.Quit
Set\xa0wd\xa0=\xa0Nothing
End\xa0Sub
                                                                                    
Спасибо
                                                                   

Private Sub Command1_Click()
Dim p As String
p = "C:\\new.doc"
Dim wd As Word.Application
Set wd = New Word.Application
wd.Documents.Open p
wd.ActiveDocument.Tables.Item(1).Cell(2, 2).Range.InsertAfter "test 4"   \'insert text
wd.ActiveDocument.Tables.Item(1).Cell(3, 2).Range.InsertAfter "test 2"
wd.ActiveDocument.Tables.Item(1).Cell(4, 2).Select
wd.ActiveDocument.Hyperlinks.Add Selection.Range, _
        "C:\\Документ Microsoft Word 1.doc" _
        , , , "file 2"
Selection.TypeText Text:=" "
wd.ActiveDocument.Hyperlinks.Add Selection.Range, _
        "C:\\Документ Microsoft Word.doc" _
        , , , "file"
wd.ActiveDocument.SaveAs "C:\\copy.doc"
wd.ActiveDocument.Close wdDoNotSaveChanges
wd.Quit
Set wd = Nothing
End Sub

ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, _
    Address:="http:\\www.microsoft.com"