ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB6 и word(Как лучше?)
15 сообщений из 15, страница 1 из 1
VB6 и word(Как лучше?)
    #36127544
lrad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lrad
Участник
Есть на форме combobox
В документе word создаю поле DocVariable и из комбо отправляю данные в это поле
Код: plaintext
DocWord.Variables.Item("Otvet").Value = Me.Combo1.Text
Все работает прекрасно, пока заполнены все поля.
Если заполнить не все поля, то выскакивает в незаполненном поле
Код: plaintext
Ошибка! Переменная документа не указана.
Как обойти проблему?
...
Рейтинг: 0 / 0
05.08.2009, 13:12
| Ответить | Цитировать | Написать  
VB6 и word(Как лучше?)
    #36128454
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
lrad,

Application.DisplayAlerts =False
...
Рейтинг: 0 / 0
05.08.2009, 17:27
| Ответить | Цитировать | Написать  
VB6 и word(Как лучше?)
    #36128787
lrad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lrad
Участник
big-duke,
А куда это вставить?
...
Рейтинг: 0 / 0
05.08.2009, 20:33
| Ответить | Цитировать | Написать  
VB6 и word(Как лучше?)
    #36129099
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
lrad,

туда, куда вы вставляете текст
Код: plaintext
DocWord.Variables.Item("Otvet").Value = Me.Combo1.Text
...
Рейтинг: 0 / 0
06.08.2009, 09:17
| Ответить | Цитировать | Написать  
VB6 и word(Как лучше?)
    #36129593
lrad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lrad
Участник
Не получается у меня...
выдает
Код: plaintext
1.
2.
"DisplayAlerts" не является членом "System.Windows.Forms.Application".
Как нужно сделать?
привожу часть кода
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Friend Class Form1
	Inherits System.Windows.Forms.Form
	Dim WordApp As Microsoft.Office.Interop.Word.Application
	Dim DocWord As Microsoft.Office.Interop.Word.Document
	Dim strText As String
	Dim FileNum As Short
	Dim FName As String
	
	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
		WordApp = New Microsoft.Office.Interop.Word.Application 'создаём новый экземпляр Word-a
		WordApp.Visible = True 'Делаем его "видимым"
		DocWord = WordApp.Documents.Open(My.Application.Info.DirectoryPath & "\primer.doc")
		DocWord.Activate()
		DocWord.Fields.Update()
        DocWord.Variables.Item("1").Value = Me._DTPicker1_0._Value
        DocWord.Variables.Item("2").Value = Me.Text7( 24 ).Text
        Application.DisplayAlerts = False
		DocWord.Variables.Item("Ot").Value = Me.Combo1.Text
		DocWord.Variables.Item("Dop").Value = Me.Combo2( 0 ).Text
		DocWord.Variables.Item("Proiz").Value = Me.Combo4.Text
		DocWord.Variables.Item("Nab).Value = Me.Combo5.Text
		DocWord.Variables.Item("nomer").Value = Me.Text7( 23 ).Text
		DocWord.Fields.Update()
	End Sub
...
Рейтинг: 0 / 0
06.08.2009, 12:16
| Ответить | Цитировать | Написать  
VB6 и word(Как лучше?)
    #36129599
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
lrad,

WordApp.DisplayAlerts=False
...
Рейтинг: 0 / 0
06.08.2009, 12:18
| Ответить | Цитировать | Написать  
VB6 и word(Как лучше?)
    #36129601
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
2.
WordApp.Visible = True 'Делаем его "видимым"
WordApp.DisplayAlerts = False
...
...
Рейтинг: 0 / 0
06.08.2009, 12:19
| Ответить | Цитировать | Написать  
VB6 и word(Как лучше?)
    #36129633
lrad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lrad
Участник
Konst_One
Код: plaintext
1.
2.
WordApp.Visible = True 'Делаем его "видимым"
WordApp.DisplayAlerts = False
...

Все равно выскакивает ошибка - Ошибка! Переменная документа не указана.
Может надо как то сделать, чтобы по умолчанию как то вставлялся пробел?(если не заполнены данные)
...
Рейтинг: 0 / 0
06.08.2009, 12:27
| Ответить | Цитировать | Написать  
VB6 и word(Как лучше?)
    #36129691
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
lrad,

т.е. вы заполняете поля программно, так ? И Me.Combo1.Text у вас пустое ? МОжет вам тогда добавить проверку на пустое значение и принудительно вставлять пробел ?
...
Рейтинг: 0 / 0
06.08.2009, 12:39
| Ответить | Цитировать | Написать  
VB6 и word(Как лучше?)
    #36129838
lrad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lrad
Участник
big-duke,
В принципе я так и хочу
А как должна выглядеть конструкция проверки?
что то типа этого?
Код: plaintext
1.
2.
if Me.Combo1.Text =  0 
Then Me.Combo1.Text = ""
...
Рейтинг: 0 / 0
06.08.2009, 13:21
| Ответить | Цитировать | Написать  
VB6 и word(Как лучше?)
    #36129873
lrad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lrad
Участник
Написал

Код: plaintext
1.
2.
3.
DocWord.Variables.Item("2").Value = Me.Text7( 24 ).Text
        If Me.Text7( 24 ).Text = "" Then
            Me.Text7( 24 ).Text = " "

Не работает..
Как правильно проверить пустое значение?
Код: plaintext
1.
2.
3.
DocWord.Variables.Item("2").Value = Me.Text7( 24 ).Text
        If Me.Text7( 24 ).Text =  0  Then
            Me.Text7( 24 ).Text = " "
тоже не идет...
...
Рейтинг: 0 / 0
06.08.2009, 13:29
| Ответить | Цитировать | Написать  
VB6 и word(Как лучше?)
    #36130033
lrad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lrad
Участник
Код: plaintext
1.
2.
3.
4.
  If Me.Text7( 24 ).Text = "" Then
            Me.Text7( 24 ).Text = " "
        Else : DocWord.Variables.Item("2").Value = Me.Text7( 24 ).Text
        End If
Работает со второго раза(при нажатии на кнопку, открывается ворд, выскакивает ошибка. Закрываю ворд, повторяю - все нормально....)
...
Рейтинг: 0 / 0
06.08.2009, 14:11
| Ответить | Цитировать | Написать  
VB6 и word(Как лучше?)
    #36130151
lrad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lrad
Участник
Разобрался сам....
Подскажите правильно хоть? или так не делают?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
        If Me.Text7( 24 ).Text = "" Then
            Me.Text7( 24 ).Text = " "
        End If
        WordApp = New Microsoft.Office.Interop.Word.Application 'создаём новый экземпляр Word-a
        WordApp.Visible = True 'Делаем его "видимым"
        WordApp.DisplayAlerts = False
		DocWord = WordApp.Documents.Open(My.Application.Info.DirectoryPath & "\primer.doc")
		DocWord.Activate()
		DocWord.Fields.Update()
        DocWord.Variables.Item("2").Value = Me.Text7( 24 ).Text
Тоесть после нажатия кнопки, проверяю значение на пустое, если пустое ставлю пробел
а потом ТОЛЬКО играю с вордом
...
Рейтинг: 0 / 0
06.08.2009, 14:39
| Ответить | Цитировать | Написать  
VB6 и word(Как лучше?)
    #36131121
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Разве это VB6?
...
Рейтинг: 0 / 0
06.08.2009, 19:09
| Ответить | Цитировать | Написать  
VB6 и word(Как лучше?)
    #36131377
lrad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lrad
Участник
VladConnРазве это VB6?
Начал с него, а закончил VB.net)))
так получилось...
...
Рейтинг: 0 / 0
06.08.2009, 23:55
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB6 и word(Как лучше?)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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