Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / RTF ошибка при повторном запуске / 18 сообщений из 18, страница 1 из 1
18.06.2020, 21:33
    #39970659
igor00082
igor00082
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RTF ошибка при повторном запуске
Код: 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:43
    #39970660
igor00082
igor00082
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RTF ошибка при повторном запуске
igor00082,

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

MS Access не знает вордовских констант. Вместо wdCharacter напишите его численный аналог 1
Код: vbnet
1.
selection.MoveRight Unit:=1, Count:=4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.06.2020, 10:10
    #39970758
igor00082
igor00082
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RTF ошибка при повторном запуске
Код: 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:32
    #39970769
Serg197311
Serg197311
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RTF ошибка при повторном запуске
Предыдущее сообщение читал?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.06.2020, 14:40
    #39970917
igor00082
igor00082
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RTF ошибка при повторном запуске
Я удалил эту строчку все равно ошибка Serg197311,
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.06.2020, 15:19
    #39970942
Predeclared
Predeclared
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RTF ошибка при повторном запуске
Код: vbnet
1.
.selection


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


Везде.


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

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

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

Predeclared
Код: vbnet
1.
.selection



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

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

Predeclared
Код: vbnet
1.
.selection



Везде.

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


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