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.

Закрыть окно

Содержание раздела