Dim myRange As Range Dim
|
Public Sub test1() Dim myRange As Range Dim myPath As String With ActiveDocument myPath = .Path Set myRange = .Range(Start:=0, End:=0) myRange.InsertFile myPath & "\DocTwo.doc" End With End Sub |
| Листинг 1.64. |
| Закрыть окно |
|
Public Sub test1() Dim myRange As Range Dim myPath As String With ActiveDocument myPath = .Path Set myRange = .Range(Start:=0, End:=0) myRange.InsertFile myPath & "\DocTwo.doc" End With End Sub |
| Листинг 1.64. |
| Закрыть окно |