Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / открытие Вордовского файла / 19 сообщений из 19, страница 1 из 1
26.04.2006, 12:24
    #33691247
xxxPaVelxxx
xxxPaVelxxx
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открытие Вордовского файла
Многоуважаемые знатоки не подскажете как сделать так, чтоб при нажатии кнопки на форме появлялось бы окошко выбора открываемого файла(текстового или доковского), а затем непосредственно запуск выбранного файла ???
Более понятный пример : как InternetExplorer Файл- Открыть, только все это хочется сделать в VB, назначив это действие на кнопку в форме.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.04.2006, 12:45
    #33691336
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открытие Вордовского файла
Добавляешь на форму элемент управления "CommonDialog".

На кнопку вешаешь.

Код: plaintext
1.
2.
3.
    CommonDialog1.Filter = "Документы Word (*.DOC)|*.DOC"
    CommonDialog1.ShowOpen
    ' Открывать либо через Shell или ShellExecute.
    Shell "WINWORD.EXE """ & CommonDialog1.FileName & """"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2006, 17:42
    #33695491
bac
bac
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открытие Вордовского файла
- Бросаешь на форму обеъкт OLE (у меня имя объекта OLEWord)
- А на кнопку обработчик в котором

Dim oDoc As Object

On Error GoTo Err_handler
OLEWord.CreateEmbed "Документ.doc", "Word.Document"
On Error GoTo 0
Set oDoc = OLEWord.object

oDoc.PrintPreview

Exit Sub

Err_handler:
MsgBox "Ошибка при открытии документа! (" & Err.Description & ")", vbCritical
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.04.2006, 22:23
    #33698668
xxxPaVelxxx
xxxPaVelxxx
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открытие Вордовского файла
CommonDialog1.Filter = "Документы Word (*.DOC)|*.DOC"
CommonDialog1.ShowOpen
' Открывать либо через Shell или ShellExecute.
Shell "WINWORD.EXE """ & CommonDialog1.FileName & """"

Ashton что значит открывать через Shell или ShellExecute??? Не мог бы ты написать какой-нибудь пример?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.04.2006, 12:22
    #33698929
bac
bac
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открытие Вордовского файла
xxxPaVelxxxCommonDialog1.Filter = "Документы Word (*.DOC)|*.DOC"
CommonDialog1.ShowOpen
' Открывать либо через Shell или ShellExecute.
Shell "WINWORD.EXE """ & CommonDialog1.FileName & """"

Ashton что значит открывать через Shell или ShellExecute??? Не мог бы ты написать какой-нибудь пример?

Это и есть пример! Вставляешь этот код в обработчик кнопки и все!
Это вызов word как в командной строке.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.04.2006, 13:25
    #33698989
xxxPaVelxxx
xxxPaVelxxx
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открытие Вордовского файла
Я зделал все как вы сказали, но после нажатия на кнопку я успешно выбираю вордовский документ который я хочу открыт и нажимаю ОК(открыть), а в результате чего выбивается окно с ошибкой "ФАЙЛ НЕ НАЙДЕН!!!"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.04.2006, 20:38
    #33699304
bac
bac
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открытие Вордовского файла
Ну если файл не найден, то его и нет.
У суть в том, что если не указывать путь то файл открывается из каталога ... . Правильно "Мои документы".

Или у Вас не открывается Word?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.04.2006, 21:01
    #33699315
xxxPaVelxxx
xxxPaVelxxx
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открытие Вордовского файла
Суть в том что при нажатии на кнопку успешно появляется окошко, в котором а выбираю нужный мне вордовский файл (например Мои документы -> Text.doc) нажимаю в этом окошке на кнопочку "ОК" и выбивается сообщение об ошибке "Файл не найден"(хотя этот файл существует на этом месте),а также выделяется нижняя строка в программе:

Shell "WINWORD.EXE """ & CommonDialog1.FileName & """"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.04.2006, 14:13
    #33699651
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открытие Вордовского файла
Укажи полный путь к файлу "WINWORD.EXE".

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
    Dim strWordPath As String
    Dim strFileName As String
    Dim dblRetVal As Double

    strWordPath = "C:\Program Files\" & _
      "Microsoft Office\OFFICE11\WINWORD.EXE"
    
    CommonDialog1.Filter = "Документы Word (*.DOC)|*.DOC"
    CommonDialog1.ShowOpen

    strFileName = CommonDialog1.FileName
    
    dblRetVal = Shell(strWordPath & " """ & strFileName & """", _
      vbNormalFocus)
    
    If dblRetVal =  0  Then
        MsgBox "Не удалось открыть файл."
    End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.04.2006, 16:12
    #33699735
xxxPaVelxxx
xxxPaVelxxx
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открытие Вордовского файла
ОГРОМНОЕ ВАМ СПАСИБО !!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.04.2006, 16:28
    #33699748
xxxPaVelxxx
xxxPaVelxxx
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открытие Вордовского файла
Еще один вопросик "А можно таким же образом сделать Экспорт ил Импорт файла ???".
Я в том смысле чтобы сделать копирование или вырезания файла из одной папки в другую, например переместить Файл с именем Icon.doc из папки "Доки" в папку "Проги".
P.S : надеюсь что мне удалось смысл вопроса Вам передать! :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2006, 23:28
    #33998259
assstarot
assstarot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открытие Вордовского файла
AshtonУкажи полный путь к файлу "WINWORD.EXE".

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
    Dim strWordPath As String
    Dim strFileName As String
    Dim dblRetVal As Double

    strWordPath = "C:\Program Files\" & _
      "Microsoft Office\OFFICE11\WINWORD.EXE"
    
    CommonDialog1.Filter = "Документы Word (*.DOC)|*.DOC"
    CommonDialog1.ShowOpen

    strFileName = CommonDialog1.FileName
    
    dblRetVal = Shell(strWordPath & " """ & strFileName & """", _
      vbNormalFocus)
    
    If dblRetVal =  0  Then
        MsgBox "Не удалось открыть файл."
    End If

А у меня вообще пишет
Run-time error '424':
Object required
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2006, 23:29
    #33998261
assstarot
assstarot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открытие Вордовского файла
Ругался на
CommonDialog1.Filter = "Документы Word (*.DOC)|*.DOC"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.09.2006, 09:31
    #33998577
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открытие Вордовского файла
Ну так добавьте на форму Common Dialog Control.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.09.2006, 11:42
    #33999092
assstarot
assstarot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открытие Вордовского файла
MelkiadesНу так добавьте на форму Common Dialog Control.
А что добавить-то? :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.09.2006, 14:35
    #33999932
Aklin
Aklin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открытие Вордовского файла
assstarot MelkiadesНу так добавьте на форму Common Dialog Control.
А что добавить-то? :(
Common Dialog control (смотри в Project-reference)

похоже все разжевали.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.09.2006, 16:58
    #34000653
AndreyMp
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открытие Вордовского файла
авторassstarot
Melkiades
Ну так добавьте на форму Common Dialog Control.


А что добавить-то? :(


Common Dialog control (смотри в Project-reference)

похоже все разжевали.
А его добавь сначала из списка компонент (правой кнопкой мышки по панельке компонент кликни и выбери Components, поставь галочку где надо - Microsoft Common Dialog Control ... и OK).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2006, 07:28
    #34008687
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открытие Вордовского файла
xxxPaVelxxxЕще один вопросик "А можно таким же образом сделать Экспорт ил Импорт файла ???".
Я в том смысле чтобы сделать копирование или вырезания файла из одной папки в другую, например переместить Файл с именем Icon.doc из папки "Доки" в папку "Проги".
P.S : надеюсь что мне удалось смысл вопроса Вам передать! :)

можно через объект FileSystemObject, подключаешь ссылку на объект Microsoft Scripting Runtime и объявляешь объект Scripting.FileSystemObject в своей проге, вот конкретный пример
Код: plaintext
1.
2.
3.
4.
Dim objFSO As Scripting.FileSystemObject
Set objFSO = New Scripting.FileSystemObject
objFSO.MoveFile strSource,strDest 'перемещение
objFSO.CopyFile strSource,strDest 'копирование
objFSO.DeleteFile strFile удаление
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
11.05.2009, 22:52
    #35979362
Ира812
Ира812
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открытие Вордовского файла
Не открывается вордовский файл!!!!! Файл сохранен, но открыть его не получается! Пишет ошибка при открытии! Что делать! Помогите плиз!! неужеле он умер навсегда???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / открытие Вордовского файла / 19 сообщений из 19, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 300ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2161042]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 40ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 202ms
total:  300ms
x
x
Закрыть


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