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:\\Word 1.doc" , , , "file 2"
Selection.TypeText Text:=" "
wd.ActiveDocument.Hyperlinks.Add Selection.Range, "C:\\Word.doc" , , , "file"
wd.ActiveDocument.Close wdSaveChanges
wd.Quit
Set wd = Nothing
End Sub
                                                                                    
Спасибо
                                                                   

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\xa0\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_
\xa0\xa0\xa0\xa0\xa0\xa0\xa0\xa0"C:\\Документ\xa0Microsoft\xa0Word\xa01.doc"\xa0_
\xa0\xa0\xa0\xa0\xa0\xa0\xa0\xa0,\xa0,\xa0,\xa0"file\xa02"
Selection.TypeText\xa0Text:="\xa0"
wd.ActiveDocument.Hyperlinks.Add\xa0Selection.Range,\xa0_
\xa0\xa0\xa0\xa0\xa0\xa0\xa0\xa0"C:\\Документ\xa0Microsoft\xa0Word.doc"\xa0_
\xa0\xa0\xa0\xa0\xa0\xa0\xa0\xa0,\xa0,\xa0,\xa0"file"
wd.ActiveDocument.SaveAs\xa0"C:\\copy.doc"
wd.ActiveDocument.Close\xa0wdDoNotSaveChanges
wd.Quit
Set\xa0wd\xa0=\xa0Nothing
End\xa0Sub

wd.ActiveDocument.Hyperlinks.Add Selection.Range, "C:\\Документ Microsoft Word 1.doc" , , , "file 2"