Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Пример работы с Word'ом из VB / 10 сообщений из 10, страница 1 из 1
04.10.2006, 15:52
    #34032248
Alex1983
Alex1983
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пример работы с Word'ом из VB
Необходимо открыть файл Word из VB. Осуществляю таким способом:

Option Explicit
Dim objWord As Word.Application
Dim objDoc As Word.Document

Private Sub Command1_Click()
'Creating a new object
Set objWord = New Word.Application
objWord.Visible = True
'Creating a new document
Set objDoc = objWord.Documents.Add
End Sub
Private Sub Command2_Click()
Set objDoc = New Word.Document
End Sub
Private Sub Command3_Click()
objDoc.Activate
objDoc.PrintPreview
objDoc.PrintOut
End Sub
Private Sub Command4_Click()
objDoc.Activate
objDoc.Close False
End Sub
Private Sub Command5_Click()
Set objWord = Word.Application
Set objDoc = objWord.Documents.Open(App.Path & "\HI.doc")
End Sub
Private Sub Command6_Click()
' Activating document
objDoc.Activate

With objDoc.ActiveWindow.Selection
.InsertAfter Text1.Text
.InsertParagraphAfter
.Font.Bold = True
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.EndOf 'Snimaet Videlenie

' Vstavliaet noviy abzati
.InsertParagraphAfter
.InsertAfter Text2.Text
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Font.ColorIndex = wdBlue
.Font.Size = 20
.EndOf 'Snimaet videlenie
End With
End Sub
Private Sub Command7_Click()
objDoc.Activate
objDoc.Save
objDoc.Close
End Sub

Private Sub Form_Load()
Dim objWord As Word.Application
Dim objDoc As Word.Document
End Sub

Однако, именно функция открытия и не пашет. Выдает ошибку 429 ActiveX component dont create.. Ссылается на стоку Set objWord = Word.Application в Private Sub Command5_Click(). Подскажите кто знает, в чем проблема.. Библиотека Word подключена..Заранее спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.10.2006, 15:55
    #34032268
Alex1983
Alex1983
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пример работы с Word'ом из VB
Необходимо открыть файл Word из VB (одна из задач). Осуществляю таким способом:

Option Explicit
Dim objWord As Word.Application
Dim objDoc As Word.Document

Private Sub Command1_Click()
'Creating a new object
Set objWord = New Word.Application
objWord.Visible = True
'Creating a new document
Set objDoc = objWord.Documents.Add
End Sub
Private Sub Command2_Click()
Set objDoc = New Word.Document
End Sub
Private Sub Command3_Click()
objDoc.Activate
objDoc.PrintPreview
objDoc.PrintOut
End Sub
Private Sub Command4_Click()
objDoc.Activate
objDoc.Close False
End Sub
Private Sub Command5_Click()
Set objWord = Word.Application
Set objDoc = objWord.Documents.Open(App.Path & "\HI.doc")
End Sub
Private Sub Command6_Click()
' Activating document
objDoc.Activate

With objDoc.ActiveWindow.Selection
.InsertAfter Text1.Text
.InsertParagraphAfter
.Font.Bold = True
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.EndOf 'Snimaet Videlenie

' Vstavliaet noviy abzati
.InsertParagraphAfter
.InsertAfter Text2.Text
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Font.ColorIndex = wdBlue
.Font.Size = 20
.EndOf 'Snimaet videlenie
End With
End Sub
Private Sub Command7_Click()
objDoc.Activate
objDoc.Save
objDoc.Close
End Sub

Private Sub Form_Load()
Dim objWord As Word.Application
Dim objDoc As Word.Document
End Sub

Однако, именно функция открытия и не пашет. Выдает ошибку 429 ActiveX component dont create.. Ссылается на стоку Set objWord = Word.Application в Private Sub Command5_Click(). Подскажите кто знает, в чем проблема.. Библиотека Word подключена..Заранее спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.10.2006, 16:13
    #34032351
старый_зануда
старый_зануда
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пример работы с Word'ом из VB
а на фига Вам вот это ?

Private Sub Form_Load()
Dim objWord As Word.Application
Dim objDoc As Word.Document
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.10.2006, 16:13
    #34032354
Alex1983
Alex1983
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пример работы с Word'ом из VB
Опечатка, это конечно же не нужно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.10.2006, 16:18
    #34032379
k-nike
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пример работы с Word'ом из VB
Не особо вдавался в подробности кода.
Может надо так:
Код: plaintext
1.
2.
3.
Private Sub Command5_Click()
Set objWord = New Word.Application
Set objDoc = New objWord.Documents.Open(App.Path & "\HI.doc")
End Sub
либо перед процедурами:
Код: plaintext
1.
Dim objWord As New Word.Application
Dim objDoc As New Word.Document


...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.10.2006, 16:24
    #34032408
Alex1983
Alex1983
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пример работы с Word'ом из VB
Неа, не прокатывает:(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.10.2006, 17:37
    #34032712
старый_зануда
старый_зануда
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пример работы с Word'ом из VB
да выкинь ты это

Private Sub Form_Load()
Dim objWord As Word.Application
Dim objDoc As Word.Document
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.10.2006, 17:40
    #34032717
старый_зануда
старый_зануда
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пример работы с Word'ом из VB
ну качни отсюда пример
там две таблицы создаются "на лету"

пример формирования документа типа ВОРД из бейсика
http://www.by-pass.narod.ru/prjVB/PrintInWord/PrintInWord.zip
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.10.2006, 19:55
    #34033057
Alex1983
Alex1983
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пример работы с Word'ом из VB
Спасиб:) Вроде эта проблема отпала. Но появилась другая.. Необходимо из этого файла doc по разделам считывать блок-схемы (один раздела в документе - одна блок-схема). Блок-схемы представляют собой набор текста и элементов (стрелок, квадратиков и т.п.).. Пока не представляю как все это дергать из doc.. То что нашел.. исключительно для текста.. Никто не сталкивался?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.10.2006, 20:11
    #34033073
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пример работы с Word'ом из VB
попробуйте проделать это путем записи макроса, т.е. начните запись макроса совершайте необходимые действия и смотрите затем код макроса, отшлифуйте, и переводите его на VB
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Пример работы с Word'ом из VB / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 479ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2165204]:
 0ms
get settings:
 9ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 205ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 213ms
total:  479ms
x
x
Закрыть


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