Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
gerda_2012
0 / 0 / 0
Регистрация: 11.05.2012
Сообщений: 11
1

Как открыть вордовский файл в VB

11.05.2012, 16:48. Просмотров 1635. Ответов 17
Метки нет (Все метки)

Как открыть вордовский файл в VB?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.05.2012, 16:48
Ответы с готовыми решениями:

Как добавить фото в вордовский файл и отправить его на почту
Я так и не разобрался как добавлять в висуал бейсике!!! Програмка позволяет...

Как открыть файл в VB (именно файл с расширением .bat)?
Это часть неисправного кода: Private Sub Command1_Click() Dim F As Long F =...

Как открыть, запустить файл из VB&
Это наверное просто, но у меня не получается...:(, хотелось бы как-то из кода...

Как открыть .pdf файл из VB программы?
Как открыть .pdf файл из VB программы?

Как программно открыть Excel файл?
Создаю файл, вношу данные, сохраняю... А как его програмно открыть то? что то...

17
K1nder_
3 / 3 / 0
Регистрация: 18.01.2012
Сообщений: 37
11.05.2012, 18:49 2
Работа с Word - Создание, открытие, форматирование, закрытие и сохранение почитай статью!
0
Ципихович Эндрю
1411 / 321 / 28
Регистрация: 10.04.2009
Сообщений: 5,015
11.05.2012, 20:32 3
так вроде ж всё просто - в проводнике выделили файл и в контекстном меню есть Открыть
0
gerda_2012
0 / 0 / 0
Регистрация: 11.05.2012
Сообщений: 11
11.05.2012, 21:11  [ТС] 4
просто я разрабатываю электронный учебник и мне нужно, чтобы через VB открывались текстовые файлы

Добавлено через 2 минуты
я эту статью читала,но к сожалению ничего не поняла.
0
Ципихович Эндрю
1411 / 321 / 28
Регистрация: 10.04.2009
Сообщений: 5,015
11.05.2012, 21:16 5
там же есть
Visual Basic
1
2
'// если нужно открыть имеющийся документ, то пишем такой код
'Set DocWord = WordApp.Documents.Open("C:\DDD.doc")
что не понятно?
0
gerda_2012
0 / 0 / 0
Регистрация: 11.05.2012
Сообщений: 11
11.05.2012, 21:23  [ТС] 6
вот так да
Visual Basic
1
2
3
4
5
6
Private Sub mnurazd1tema1vopr1_Click()
Dim WordApp As Word.Application 
Dim DocWord As Word.Document 
Set DocWord = WordApp.Documents.Open("txt1")
DocWord.Activate
End Sub
0
Ципихович Эндрю
1411 / 321 / 28
Регистрация: 10.04.2009
Сообщений: 5,015
11.05.2012, 21:26 7
Цитата Сообщение от gerda_2012 Посмотреть сообщение
вот так да
это утверждение или вопрос, если вопрос - почему бы Вам не попробовать?
0
gerda_2012
0 / 0 / 0
Регистрация: 11.05.2012
Сообщений: 11
11.05.2012, 21:27  [ТС] 8
в том то и дело,что попробовала уже,но не получается,выдает ошибку
0
Ципихович Эндрю
1411 / 321 / 28
Регистрация: 10.04.2009
Сообщений: 5,015
11.05.2012, 21:31 9
Цитата Сообщение от Ципихович Эндрю Посмотреть сообщение
Open("C:\DDD.doc")
Цитата Сообщение от gerda_2012 Посмотреть сообщение
Open("txt1")
как минимум разницу ощущаете?
0
gerda_2012
0 / 0 / 0
Регистрация: 11.05.2012
Сообщений: 11
11.05.2012, 21:37  [ТС] 10
путь к файлу тоже указала весь, только это тоже не помогло
0
Ципихович Эндрю
1411 / 321 / 28
Регистрация: 10.04.2009
Сообщений: 5,015
11.05.2012, 21:40 11
выложите получившийся код и если ошибка то где и какая?
0
gerda_2012
0 / 0 / 0
Регистрация: 11.05.2012
Сообщений: 11
11.05.2012, 21:48  [ТС] 12
да ощущаю. Путь к файлу весь указала,только это тоже не помогает

Добавлено через 7 минут
Visual Basic
1
2
3
4
5
6
Private Sub mnurazd1tema1vopr1_Click()
Dim WordApp As Word.Application 
Dim DocWord As Word.Document 
Set DocWord = WordApp.Documents.Open("C:\Users\DinulIslam\Desktop\ТЭИС\Раздел1.Основные понятия ЭИС\txt1")
DocWord.Activate
End Sub
ошибка вот здесь Set DocWord = WordApp.Documents.Open("C:\Users\DinulIslam\Desktop\ТЭИС\Раздел1.Основные понятия ЭИС\txt1")
Код ошибки "91" Object variable or with block variable not set
0
Апострофф
Заблокирован
11.05.2012, 21:51 13
А так?
Visual Basic
1
2
3
4
5
6
7
Private Sub mnurazd1tema1vopr1_Click()
Dim WordApp As Word.Application
Set WordApp = New Word.Application 
Dim DocWord As Word.Document 
Set DocWord = WordApp.Documents.Open("C:\Users\DinulIslam\Desktop\ТЭИС\Раздел1.Основные понятия ЭИС\txt1")
DocWord.Activate
End Sub
0
gerda_2012
0 / 0 / 0
Регистрация: 11.05.2012
Сообщений: 11
11.05.2012, 22:12  [ТС] 14
так тоже нет. Ладно,СПАСИБО,что пытались мне помочь
0
Ципихович Эндрю
1411 / 321 / 28
Регистрация: 10.04.2009
Сообщений: 5,015
12.05.2012, 05:05 15
Цитата Сообщение от gerda_2012 Посмотреть сообщение
Open("C:\Users\DinulIslam\Desktop\ТЭИС\Раздел1.Основные понятия ЭИС\txt1")
я так понимаю конец этой строки должен заканчиваться намёком на вордовский файл, например *.doc
0
gerda_2012
0 / 0 / 0
Регистрация: 11.05.2012
Сообщений: 11
12.05.2012, 12:26  [ТС] 16
но ошибку выдает совсем в другом месте.
я еще пробовала так:
Visual Basic
1
2
3
4
5
6
Private Sub mnurazd1tema1vopr1_Click()
Dim wrd As Object
Set wrd = CreateObject("word.application")
 wrd.Visible = True ' показать Word
     Set doc = wrd.Documents.Add("txt1")
End Sub
в этом случае сам word открывается,но выдает,что файл не найден
0
Ципихович Эндрю
1411 / 321 / 28
Регистрация: 10.04.2009
Сообщений: 5,015
12.05.2012, 18:14 17
Цитата Сообщение от gerda_2012 Посмотреть сообщение
Set doc = wrd.Documents.Add("txt1")
нормально после слов
Цитата Сообщение от Ципихович Эндрю Посмотреть сообщение
я так понимаю конец этой строки должен заканчиваться намёком на вордовский файл, например *.doc
Цитата Сообщение от gerda_2012 Посмотреть сообщение
word открывается,но выдает,что файл не найден
ага! так и должно быть, а что Вы ожидаете, что файл есть?
0
gerda_2012
0 / 0 / 0
Регистрация: 11.05.2012
Сообщений: 11
12.05.2012, 21:18  [ТС] 18
Спасибо. Я поняла
0
12.05.2012, 21:18
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.05.2012, 21:18

Как открыть файл другово приложения???
Вот допустим, при нажатие на кнопку, прога должна открыть Winamp, и проигрывать...

Как программно открыть .csv-файл?
Как программно открыть .csv-файл? SHELL-ом откраваются приложения, а файлы?

Как открыть и сохранить файл .dbf?
Через ODBC (Microsoft Visual FoxPro Driver)открыл файл .dbf (форма для...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
18
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru