Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / не могу понять ошибку / 17 сообщений из 17, страница 1 из 1
25.12.2015, 13:02
    #39138046
Алексей Москва
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу понять ошибку
привет всем помогите понять ошибку и как правильно написать код.
есть кнопка Command4 и Combo3 в ней есть список из нескольких названий документов.
нужно что бы при нажатии на Command4 открывался именно тот документ который выбран в Combo3

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub Command4_Click()
If Combo3.Text = "ч.8_ст.26_Общий" Then
Dim word As Object
Set word = CreateObject("Word.Application")
word.Visible = True
word.Documents.Open ("C:\Users\пользователь\Desktop\База\ч.8_ст.26_Общий.docx")
End If
If Combo3.Text = "ч.8_ст.26_Общий_с_разъяснениями" Then
Dim word As Object
Set word = CreateObject("Word.Application")
word.Visible = True
word.Documents.Open ("C:\Users\пользователь\Desktop\База\ч.8_ст.26_Общий_с_разъяснениями.docx")
End If
End Sub



помогите пожалуйста....
...
Рейтинг: 0 / 0
25.12.2015, 13:13
    #39138064
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу понять ошибку
Мы тоже не можем понять ошибку, о которой ты не счел нужным сообщить.

Встречный вопрос, а почему ты думаешь, что пишешь на С++?
...
Рейтинг: 0 / 0
25.12.2015, 13:20
    #39138078
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу понять ошибку
Код: vbnet
1.
Dim word As Object



2 раза объявлять не надо в одной процедуре
...
Рейтинг: 0 / 0
25.12.2015, 13:24
    #39138092
Алексей Москва
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу понять ошибку
Shocker.Pro,
я пишу в Microsoft Visual Basic 6.0
...
Рейтинг: 0 / 0
25.12.2015, 13:28
    #39138103
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу понять ошибку
Алексей МоскваShocker.Pro,
я пишу в Microsoft Visual Basic 6.0это ошибка?
...
Рейтинг: 0 / 0
25.12.2015, 14:18
    #39138187
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу понять ошибку
Алексей МоскваShocker.Pro,
я пишу в Microsoft Visual Basic 6.0А зачем код на форуме оформляешь как С++? Причем уже не в первый раз
...
Рейтинг: 0 / 0
25.12.2015, 14:43
    #39138209
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу понять ошибку
AntonariyАлексей МоскваShocker.Pro,
я пишу в Microsoft Visual Basic 6.0это ошибка?пожалуй, ошибка вот это:Алексей Москвая пишу
...
Рейтинг: 0 / 0
25.12.2015, 23:04
    #39138500
alex77755
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу понять ошибку
На коленке писоно . примерно так. Не проверял. Без проверки наличия файла...
Код: vbnet
1.
2.
3.
4.
5.
6.
        Dim pat
        Dim word As Object
        pat = "C:\Users\пользователь\Desktop\База\" & Combo3.Text & ".doc"
        Set word = CreateObject("Word.Application")
        word.Visible = True
        word.Documents.Open (pat)
...
Рейтинг: 0 / 0
28.12.2015, 14:44
    #39139336
Алексей Москва
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу понять ошибку
Shocker.ProАлексей МоскваShocker.Pro,
я пишу в Microsoft Visual Basic 6.0А зачем код на форуме оформляешь как С++? Причем уже не в первый раз
простите а как должно ?
...
Рейтинг: 0 / 0
28.12.2015, 14:52
    #39139349
Алексей Москва
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу понять ошибку
alex77755,
вот какая ошибка
...
Рейтинг: 0 / 0
28.12.2015, 14:52
    #39139350
Алексей Москва
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу понять ошибку
alex77755,
вот какая ошибка.
...
Рейтинг: 0 / 0
28.12.2015, 15:00
    #39139361
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу понять ошибку
Алексей МоскваShocker.Proпропущено...
А зачем код на форуме оформляешь как С++? Причем уже не в первый раз
простите а как должно ?я дважды давал ссылку на правила форума и дважды давал ссылку на FAQ, и там и там это написано. Но если логика подсказывает, что когда пишешь на VB нужно оформлять код как для С++, я не знаю чем помочь. Программирование не для тебя.
...
Рейтинг: 0 / 0
28.12.2015, 15:01
    #39139364
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу понять ошибку
Алексей Москвавот какая ошибка
Это не ошибка. И даже не место ошибки. Это программный код в режиме отладки с указанием текущего оператора.
...
Рейтинг: 0 / 0
28.12.2015, 15:05
    #39139373
Алексей Москва
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу понять ошибку
alex77755,
все разобрался огромное спасибо.
а можешь подсказать еще как прописать так как на картинке
text15 - это номер слияния с excel
combo3 - это шаблоны в word, их несколько

вопрос как сделать так что бы при нажатии на предварительные просмотр открывался уже готовый документ со слиянием и при нажатии на печать печатался тоже готовый документ со слиянием.
...
Рейтинг: 0 / 0
28.12.2015, 19:59
    #39139618
alex77755
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу понять ошибку
На счёт слияния не подскажу.
Не пользуюсь ни слиянием ни ссылками на другие документы.
В своё время имел неосторожность переименовать файл.
С тех пор только формирую документ из шаблона путём вставки в закладки.
Для отправки на печать запиши макрос
...
Рейтинг: 0 / 0
30.12.2015, 11:07
    #39140518
Алексей Москва
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу понять ошибку
alex77755,
а как это сделать ?
...
Рейтинг: 0 / 0
31.12.2015, 22:06
    #39141169
alex77755
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу понять ошибку
вариант
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / не могу понять ошибку / 17 сообщений из 17, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]