ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / В чем проблема
11 сообщений из 11, страница 1 из 1
В чем проблема
    #32667266
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
raur
Участник
Привет всем
проблема в том, что один раз проходит нажатие кнопки, а во 2 раз - ошибка!
и так в любом приложение которое работает с ворд документом!

в проджект-референс надо добавить ms mord... и нарисовать табличку 4х2 в "C:\\new.doc"
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Private Sub Command1_Click()
Dim p As String
p = "C:\\new.doc"
Dim wd As Word.Application
Set wd = New Word.Application
wd.Documents.Open p
wd.ActiveDocument.Tables.Item(1).Cell(2, 2).Range.InsertAfter "test 4" \'insert text
wd.ActiveDocument.Tables.Item(1).Cell(3, 2).Range.InsertAfter "test 2"
wd.ActiveDocument.Tables.Item(1).Cell(4, 2).Select
wd.ActiveDocument.Hyperlinks.Add Selection.Range, "C:\\Word 1.doc" , , , "file 2"
Selection.TypeText Text:=" "
wd.ActiveDocument.Hyperlinks.Add Selection.Range, "C:\\Word.doc" , , , "file"
wd.ActiveDocument.Close wdSaveChanges
wd.Quit
Set wd = Nothing
End Sub
                                                                                    
Спасибо
Как отформатирован этот код?
...
Рейтинг: 0 / 0
26.08.2004, 16:01
| Ответить | Цитировать | Написать  
В чем проблема
    #32667334
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
raur
Участник
не то выше скопировал

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Private\xa0Sub\xa0Command1_Click()
Dim\xa0p\xa0As\xa0String
p\xa0=\xa0"C:\\new.doc"
Dim\xa0wd\xa0As\xa0Word.Application
Set\xa0wd\xa0=\xa0New\xa0Word.Application
wd.Documents.Open\xa0p
wd.ActiveDocument.Tables.Item(1).Cell(2,\xa02).Range.InsertAfter\xa0"test\xa04"\xa0\xa0\xa0\'insert text
wd.ActiveDocument.Tables.Item(1).Cell(3,\xa02).Range.InsertAfter\xa0"test\xa02"
wd.ActiveDocument.Tables.Item(1).Cell(4,\xa02).Select
wd.ActiveDocument.Hyperlinks.Add\xa0Selection.Range,\xa0_
\xa0\xa0\xa0\xa0\xa0\xa0\xa0\xa0"C:\\Документ\xa0Microsoft\xa0Word\xa01.doc"\xa0_
\xa0\xa0\xa0\xa0\xa0\xa0\xa0\xa0,\xa0,\xa0,\xa0"file\xa02"
Selection.TypeText\xa0Text:="\xa0"
wd.ActiveDocument.Hyperlinks.Add\xa0Selection.Range,\xa0_
\xa0\xa0\xa0\xa0\xa0\xa0\xa0\xa0"C:\\Документ\xa0Microsoft\xa0Word.doc"\xa0_
\xa0\xa0\xa0\xa0\xa0\xa0\xa0\xa0,\xa0,\xa0,\xa0"file"
wd.ActiveDocument.SaveAs\xa0"C:\\copy.doc"
wd.ActiveDocument.Close\xa0wdDoNotSaveChanges
wd.Quit
Set\xa0wd\xa0=\xa0Nothing
End\xa0Sub
Как отформатирован этот код?
...
Рейтинг: 0 / 0
26.08.2004, 16:18
| Ответить | Цитировать | Написать  
В чем проблема
    #32667340
Bolik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bolik
Участник
Текст ошибки - в студию!
...
Рейтинг: 0 / 0
26.08.2004, 16:19
| Ответить | Цитировать | Написать  
В чем проблема
    #32667359
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
raur
Участник
...
Рейтинг: 0 / 0
26.08.2004, 16:21
| Ответить | Цитировать | Написать  
В чем проблема
    #32667473
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Нажми Debug и покажи, на каком месте стопорит...
Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
26.08.2004, 16:46
| Ответить | Цитировать | Написать  
В чем проблема
    #32667485
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
raur
Участник
SteplerНажми Debug и покажи, на каком месте стопорит...
Stepler (щёлк-щёлк!!)



Код: plaintext
1.
2.
wd.ActiveDocument.Hyperlinks.Add Selection.Range, "C:\\Документ Microsoft Word 1.doc" , , , "file 2"
Как отформатирован этот код?
...
Рейтинг: 0 / 0
26.08.2004, 16:49
| Ответить | Цитировать | Написать  
В чем проблема
    #32667489
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
raur
Участник
Selection.Range слетает
...
Рейтинг: 0 / 0
26.08.2004, 16:50
| Ответить | Цитировать | Написать  
В чем проблема
    #32667490
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
raur SteplerНажми Debug и покажи, на каком месте стопорит...
Stepler (щёлк-щёлк!!)



Код: plaintext
1.
2.
wd.ActiveDocument.Hyperlinks.Add Selection.Range, "C:\\Документ Microsoft Word 1.doc" , , , "file 2"
Как отформатирован этот код?
А у тебя что на С: название документа "Документ Microsoft Word 1.doc" ???
...
Рейтинг: 0 / 0
26.08.2004, 16:51
| Ответить | Цитировать | Написать  
В чем проблема
    #32667508
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Извини, раб.день кончился - бегу домой... Всё завтра.
Проверь путь гиперссылки, наличие файла по ссылке. И вооо\бще: старайся называть файлы без пробелов (лучше латин.буквами)
Удачи...
Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
26.08.2004, 16:56
| Ответить | Цитировать | Написать  
В чем проблема
    #32667530
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
raur
Участник
нашли
всем спасибо!
...
Рейтинг: 0 / 0
26.08.2004, 17:03
| Ответить | Цитировать | Написать  
В чем проблема
    #32667603
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
raur
Участник
кому интересно
http: http://www.sql.ru/forum/actualthread.aspx?tid=117574
...
Рейтинг: 0 / 0
26.08.2004, 17:30
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / В чем проблема
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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