Основы офисного программирования и документы Word

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.
Закрыть окно
Содержание раздела