ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / RTF ошибка при повторном запуске
18 сообщений из 18, страница 1 из 1
RTF ошибка при повторном запуске
    #39970659
igor00082
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor00082
Гость
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
Private Sub Кнопка197_Click()

strDOT = "C:\Users\user\Documents\Машн\Комерческие предложения\Страницы ком пред____.docx" 
strDOT1 = "C:\Users\user\Documents\Машн\Комерческие предложения\Страницы ком пред.rtf"
Set app = New Word.Application 'Новое приложение Word
app.Visible = True   'Отображаем документ
CurrentProject.ImportExportSpecifications.Item("Exp").Execute 'Сохраненый экспорт в rtf

app.Documents.Open strDOT1 'открываем rtf

With app.ActiveDocument 'Выбираем активный документ
    selection.MoveRight Unit:=wdCharacter, Count:=4
    selection.WholeStory
    selection.Copy
End With

app.Documents.Open strDOT 'Добавляем шаблон

With app.ActiveDocument  'Выбираем активный документ
        selection.PasteAndFormat (wdUseDestinationStylesRecovery)
        s = .ComputeStatistics(wdStatisticPages)
End With
        
        pdf_n = thisbookpath & "123.pdf"
        app.ActiveDocument.ExportAsFixedFormat pdf_n, wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportAllDocument
        app.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
        app.Quit SaveChanges:=wdDoNotSaveChanges
        Set app = Nothing

End Sub



Уважаемые форумчане в данная процедура при первом запуске отрабатывается а при повторном в строке

selection.MoveRight Unit:=wdCharacter, Count:=4

выдает ошибку: The remote server machine does not exist or is unavailable (Error 462)

после остановки кода в ручную закрываешь ворд и опять первая процедура срабатывает а повторная нет. что не так? я закрываю ворд не правильно или подключаюсь не правильно? подскажите пожалуйста.
...
Рейтинг: 0 / 0
18.06.2020, 21:33
| Ответить | Цитировать | Написать  
RTF ошибка при повторном запуске
    #39970660
igor00082
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor00082
Гость
igor00082,

rtf файл открывается вордом в режиме ограниченной функциональной возможности. Может из за этого?
...
Рейтинг: 0 / 0
18.06.2020, 21:43
| Ответить | Цитировать | Написать  
RTF ошибка при повторном запуске
    #39970708
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
igor00082
rtf файл открывается вордом в режиме ограниченной функциональной возможности. Может из за этого?
нет. код с ошибками
...
Рейтинг: 0 / 0
19.06.2020, 05:06
| Ответить | Цитировать | Написать  
RTF ошибка при повторном запуске
    #39970733
igor00082
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor00082
Гость
а ошибку как исправить ??? Помогите пожалуйста
Панург,
...
Рейтинг: 0 / 0
19.06.2020, 08:35
| Ответить | Цитировать | Написать  
RTF ошибка при повторном запуске
    #39970749
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
igor00082
а ошибку как исправить ???

MS Access не знает вордовских констант. Вместо wdCharacter напишите его численный аналог 1
Код: vbnet
1.
selection.MoveRight Unit:=1, Count:=4
...
Рейтинг: 0 / 0
19.06.2020, 09:40
| Ответить | Цитировать | Написать  
RTF ошибка при повторном запуске
    #39970758
igor00082
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor00082
Гость
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
Private Sub Кнопка197_Click()

strDOT = "C:\Users\user\Documents\Машн\Комерческие предложения\Страницы ком пред____.docx"
strDOT1 = "C:\Users\user\Documents\Машн\Комерческие предложения\Страницы ком пред.rtf"
Set app = New Word.Application 'Новое приложение Word
app.Visible = True   'Отображаем документ
CurrentProject.ImportExportSpecifications.Item("Exp").Execute 'Сохраненый экспорт в rtf

app.Documents.Open strDOT1 'открываем rtf

With app.ActiveDocument 'Выбираем активный документ
    selection.MoveRight Unit:=wdCharacter, Count:=4
    selection.WholeStory
    selection.Copy
End With
app.ActiveDocument.Close
app.Quit SaveChanges:=wdDoNotSaveChanges
Set app = Nothing

Set app = New Word.Application 'Новое приложение Word
app.Visible = True   'Отображаем документ
app.Documents.Open strDOT 'Добавляем шаблон
With app.ActiveDocument  'Выбираем активный документ
        selection.PasteAndFormat (wdUseDestinationStylesRecovery)
        s = .ComputeStatistics(wdStatisticPages)
End With
        
        pdf_n = thisbookpath & "123.pdf"
        app.ActiveDocument.ExportAsFixedFormat pdf_n, wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportAllDocument
        app.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
        app.Quit SaveChanges:=wdDoNotSaveChanges
        Set app = Nothing

End Sub

igor00082,

закрыл rtf
app.ActiveDocument.Close
app.Quit SaveChanges:=wdDoNotSaveChanges
Set app = Nothing

теперь таже ошибка в воторой части при вставке из буфера обмена вот здесь

selection.PasteAndFormat (wdUseDestinationStylesRecovery)

значит закрыл не правильно как решить проблему какую переменную надо отключить ????? ПОМОГИТЕ!!)
...
Рейтинг: 0 / 0
19.06.2020, 10:10
| Ответить | Цитировать | Написать  
RTF ошибка при повторном запуске
    #39970769
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
Предыдущее сообщение читал?
...
Рейтинг: 0 / 0
19.06.2020, 10:32
| Ответить | Цитировать | Написать  
RTF ошибка при повторном запуске
    #39970917
igor00082
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor00082
Гость
Я удалил эту строчку все равно ошибка Serg197311,
...
Рейтинг: 0 / 0
19.06.2020, 14:40
| Ответить | Цитировать | Написать  
RTF ошибка при повторном запуске
    #39970942
Predeclared
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Predeclared
Участник
Код: vbnet
1.
.selection


Везде.
...
Рейтинг: 0 / 0
19.06.2020, 15:19
| Ответить | Цитировать | Написать  
RTF ошибка при повторном запуске
    #39970952
igor00082
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor00082
Гость
Извините что значит везде ? Predeclared,
...
Рейтинг: 0 / 0
19.06.2020, 15:29
| Ответить | Цитировать | Написать  
RTF ошибка при повторном запуске
    #39971000
igor00082
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor00082
Гость
Даже знаю что написать igor00082,
...
Рейтинг: 0 / 0
19.06.2020, 16:37
| Ответить | Цитировать | Написать  
RTF ошибка при повторном запуске
    #39971005
igor00082
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor00082
Гость
Может какой то другой вариант есть как с одного ворда скопировать все и вставить в другой.
...
Рейтинг: 0 / 0
19.06.2020, 16:49
| Ответить | Цитировать | Написать  
RTF ошибка при повторном запуске
    #39971021
Predeclared
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Predeclared
Участник
Подчеркнул:
...
Рейтинг: 0 / 0
19.06.2020, 17:20
| Ответить | Цитировать | Написать  
RTF ошибка при повторном запуске
    #39971139
ИВП
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИВП
Участник
Predeclared
Код: vbnet
1.
.selection


Везде.


Точно, лаконично. Позже даже подчеркнул в коде.

Но к чему это написано? Что ТСу надо сделать?
...
Рейтинг: 0 / 0
20.06.2020, 00:11
| Ответить | Цитировать | Написать  
RTF ошибка при повторном запуске
    #39971177
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
ИВП
Что ТСу надо сделать?

Поставить точку перед selection

Predeclared
Код: vbnet
1.
.selection



Везде.
...
Рейтинг: 0 / 0
20.06.2020, 10:44
| Ответить | Цитировать | Написать  
RTF ошибка при повторном запуске
    #39971178
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
mds_world
Поставить точку перед selection
всё равно это криво
...
Рейтинг: 0 / 0
20.06.2020, 10:48
| Ответить | Цитировать | Написать  
RTF ошибка при повторном запуске
    #39971202
Predeclared
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Predeclared
Участник
Так кривизну вроде никто и не оспаривает.
...
Рейтинг: 0 / 0
20.06.2020, 12:27
| Ответить | Цитировать | Написать  
RTF ошибка при повторном запуске
    #39971259
ИВП
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИВП
Участник
mds_world
ИВП
Что ТСу надо сделать?

Поставить точку перед selection

Predeclared
Код: vbnet
1.
.selection



Везде.

Ааааааааааааааааа.... Семен Семеныч...
...
Рейтинг: 0 / 0
20.06.2020, 17:21
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / RTF ошибка при повторном запуске
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39971021&tid=1610043]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 93ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 64ms
get tp. blocked users:
 1ms
others: 319ms
total:  519ms
созд. / загр.: 519ms
x
x
Закрыть


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