Private Sub Кнопка1_Click()
Dim myWord As Word.Application, myDoc As Document
Set myWord = New Word.Application
Set myDoc = myWord.Documents.Open("D:\села\про.doc")
Call Shell("explorer D:\села", vbNormalFocus) 'не понял, зачем Вам перед открытием документа открывать папку, но все же...
myDoc.ActiveWindow.Visible = True
myDoc.Bookmarks("гол").Select
End Sub
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.