Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / В чем проблема / 11 сообщений из 11, страница 1 из 1
26.08.2004, 16:01
    #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:18
    #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:19
    #32667340
Bolik
Bolik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В чем проблема
Текст ошибки - в студию!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2004, 16:21
    #32667359
raur
raur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В чем проблема
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2004, 16:46
    #32667473
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В чем проблема
Нажми Debug и покажи, на каком месте стопорит...
Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2004, 16:49
    #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:50
    #32667489
raur
raur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В чем проблема
Selection.Range слетает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2004, 16:51
    #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:56
    #32667508
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В чем проблема
Извини, раб.день кончился - бегу домой... Всё завтра.
Проверь путь гиперссылки, наличие файла по ссылке. И вооо\бще: старайся называть файлы без пробелов (лучше латин.буквами)
Удачи...
Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2004, 17:03
    #32667530
raur
raur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В чем проблема
нашли
всем спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2004, 17:30
    #32667603
raur
raur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В чем проблема
кому интересно
http: http://www.sql.ru/forum/actualthread.aspx?tid=117574
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / В чем проблема / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 455ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2186638]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 47ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 2ms
others: 329ms
total:  455ms
x
x
Закрыть


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