Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 175108
10.12.2009, 19:01
0.00 руб.
0 9 1
Компьютеры Программирование
Уважаемые эксперты, подскажите код в ВБА - код кнопки, которая добавлена, следующим образом Элементы управления => Кнопка, чтобы при её нажатии открылась папка по адресу, например "D:\Села", Вордовский документ в той же папке название его, например "про", его имя писать надо полностью "про.doc" или нет и в нём перейти к закладке "гол"
Спасибо Эндрю

Обсуждение

Неизвестный
10.12.2009, 19:52
общий
это ответ
Здравствуйте, Ципихович Эндрю.
Код:
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
давно
Асмик Гаряка
Профессор
230118
3054
11.12.2009, 13:52
общий

Чтобы перейти по закладке, можно еще написать
myDoc.GoTo (myDoc.Bookmarks("гол"))
Неизвестный
11.12.2009, 15:24
общий
Vasiliy83:
Поясните, пожалуйста, получил ответ на вопрос
Переделал под свои нужды, получилось

Dim myWord As Word.Application, myDoc As Document
Set myWord = New Word.Application
Set myDoc = myWord.Documents.Open("D:\Рабочая папка\00.doc") ' НА ЭТОЙ СТРОКЕ ВИСНЕТ, ПОЧЕМУ? ПОДСКАЖИТЕ
Call Shell("explorer D:\Рабочая папка", vbNormalFocus) 'не понял, зачем Вам перед открытием документа открывать папку, но все же...
myDoc.ActiveWindow.Visible = True
myDoc.Bookmarks("гол").Select '

И в этом вопросе я имел ввиду два вопроса: открыть папку и
открыть документ на закладке, а Вы мне пишете 'не понял, зачем Вам перед открытием документа открывать папку, но все же...
Пришлите два варианта.

Неизвестный
11.12.2009, 16:44
общий
Vasiliy83:
"D:\Села", закладкa "гол" я писал от фонаря, что пришло в голову, получил от Вас ответ переделал под свои нужды
Неизвестный
11.12.2009, 19:39
общий
Ципихович Эндрю:
написал оба вариант и просто открытие папки и открытие документа, так что выбирайте, что Вам нужно, а лишнее удаляйте
уверен, что с этим легко разберетесь
Неизвестный
12.12.2009, 07:11
общий
Vasiliy83:
Я же вам пишу посмотрите повнимательней " ' НА ЭТОЙ СТРОКЕ ВИСНЕТ, ПОЧЕМУ? ПОДСКАЖИТЕ"
Неизвестный
12.12.2009, 08:44
общий
Ципихович Эндрю:
виснет без дальнейших ошибок или в итоге какую-то ошибку показывает?
может путь к файлу иной?
Неизвестный
13.12.2009, 15:13
общий
Ashotn:
Ранее я обращался с обращением о том, что «виснет»
Нынче уже ничего не «виснет». И как я понял, хотя не уверен
«висло» когда этот код я скопировал в макрос и стал его вручную прогонять.
Но затем его вставил в код кнопки и всё пошло, мистика какая то, не подскажите почему?
Но другая проблема вот код кнопки:


Private Sub Бланки_процессуальных_документов_в_отношении_лица_Click()
Dim myWord As Word.Application, myDoc As Document
Set myWord = New Word.Application 'объявляем объект с именем ...
Set myDoc = myWord.Documents.Open("D:\Рабочая папка\00.doc") 'открыть документ с именем ..., по адресу ...
myDoc.ActiveWindow.Visible = True 'сделать документ видимым
myDoc.GoTo (myDoc.Bookmarks("ё4")) 'перейти к закладке с именем ... ЗДЕСЬ ПОЛУЧАЮ ОШИБКУ № 4120, ПОДСКАЖИТЕ ПОЧЕМУ?
'myDoc.Bookmarks("ё4").Select 'выделить закладку с именем ... ЗДЕСЬ ЕСЛИ РЕМАРК УБРАТЬ ВСЁ РАБОТАЕТ

End Sub

Прикрепляю файл, ссылка на него: https://rfpro.ru/upload/1183, пароль ВБА

Подскажите в чём дело. Эндрю
Неизвестный
14.12.2009, 18:21
общий
Ashotn:
Вы писали 11 декабря 2009 года
Чтобы перейти по закладке, можно еще написать
myDoc.GoTo (myDoc.Bookmarks("гол"))
Не работает!?
Форма ответа