Public Sub WindowOpenFile()
	'Предоставление пользователю возможности открыть любой файл.
	'Открывается каталог, хранящий активный документ, с показом всех файлов.
	Dim Act As Long
	With Dialogs (wdDialogFileOpen)
		.Name = ActiveDocument.Path & "\*.*"
		 Act = . Show
		Debug.Print Act
		If Act = -1 Then
			'Файл успешно открыт и можно получить путь к нему и его имя
			Debug.Print Documents(1).Path & "\" & Documents(1).Name
		End If
	End With

End Sub