Import text plus перестал работать

[tree2]

Здравствуйте.
Кто знает подскажите в чем дело.
Import text plus перестал работать. Сообщает:
Run time error 76. Path not found.
Работал без проблем, а на прошлой неделе выдал эту надпись причем на двух системах почти сразу CV8 +WinXP и CV8+Win98.
После переустановки Import Text пишет тоже самое и из вентуры и отдельно через пуск-программы-ImportTextPlus.

Спасибо.

 

[Sh]

Ответ: Import text plus перестал работать

Скорее всего гикнулся файл itp.ini. Удалите его ручками и попробуйте перезапустить программу.

 

[Neech]

Ответ: Import text plus перестал работать


Не по теме:
А как Import text plus конвертирует таблицы, сноски?

 

[tree2]

Ответ: Import text plus перестал работать

Скорее всего гикнулся файл itp.ini. Удалите его ручками и попробуйте перезапустить программу.

Да! Именно так.
Удалил и о чудо! Все стало как прежде.
Спасибо!

2Neech

А как Import text plus конвертирует таблицы, сноски?

Да никаких проблем. Только не забывать в вентуре включить сноски и таблицы подкорректировать под формат полосы вентуры,
а то из ворда таблицы вытаскиваются с фиксированными колонками.
Но у меня на этот случай есть макрос который все колонки делает нефиксированными.
И все.

 

[Neech]

Ответ: Import text plus перестал работать

Да! Именно так.
Но у меня на этот случай есть макрос который все колонки делает нефиксированными.

Поделитесь, пожалуйста.
У меня есть подобный скрипт, только он на некоторых таблицах вылетает и иногда в конце текста зацикливается.

 

[tree2]

Ответ: Import text plus перестал работать

Поделитесь, пожалуйста.
У меня есть подобный скрипт, только он на некоторых таблицах вылетает и иногда в конце текста зацикливается.

Этот скрипт кажется дал А.Павлов или ВЫ в 2006 году
скрипт вот:

WITHOBJECT "CorelVentura.Automation.8"
M_POINTS = LENGTHCONVERT (3 , 7 , 1)
count% = 1
.ViewGotoPage .RelativeTo = 2, .GoWhere = 0, .UserNumbering = TRUE
.PageFirstLine
WHILE NOT(.IsCaretAtEndOfText())
WHILE NOT(.IsCaretInTable())
.TextParaDown 1, FALSE
s$ = "obrabotano tabliz — "+STR (count%)
IF .IsCaretAtEndOfText() Then
MESSAGE s$
stop
END IF
WEND
count% = count% + 1
.TableSelectTable , , , , -1 ' Vydelyaet tablitsu
.TableFormatTable , , , , "0,6 pt", "0,6 pt", "0,6 pt", -1 ' Izmenyaet lineiki tablitsy
.TableNormalRule
.TableFormatTableGet Rows&, Columns& ' Uznaetsya kolichestvo strok

for i%=0 to Columns&-1
.TableColumnWidth i%, 0, ' izmenyaetsya shirina kolonki.
next i%

for i%=1 to Columns&
.TableGotoCell 1, i% ' Perehod v opredelnnuyu yacheiku. Vnimanie! Numeratsiya s 1.
.FormatSetParaTag "Table Header" ' Prisvaivaetsya deskriptor
next i%

for i%=2 to Rows&
for j%=1 to Columns&
.TableGotoCell i%, j%
.FormatSetParaTag "Table Text"
next j%
next i%
.TableSpacing 6*M_POINTS, 11*M_POINTS, 2*M_POINTS, 6*M_POINTS ' Rasstoyaniya nad i pod tablitsei, a takzhe mezhdu strokami i kolonkami
.TableGotoCell Rows&, Columns&
.EditInitFindTagOptions "Body Text", .TagType = 0, .CurrentChapter = TRUE, .Backward = FALSE
.EditInitFindText .Reset = TRUE
.EditFindTag
WEND
END WITHOBJECT

а вот еще от sargas:

' Форматирует таблицу выставляя равные значения между
' колонками и рисует линии таблицы.


WITHOBJECT "CorelVentura.Automation.8"
M_POINTS = LENGTHCONVERT (3 , 7 , 1)
FOR i=0 TO 19
.TableColumnWidth i, 0
NEXT i
.TableSelectTable , , , , -1
.TableFormatTable , , , , "SINGLE", "SINGLE", "SINGLE", -1
.TableNormalRule
.TableSpacing 2*M_POINTS, 2*M_POINTS, 2.83*M_POINTS, 2.83*M_POINTS
END WITHOBJECT

где:
"SINGLE", "SINGLE", "SINGLE" -- толщина линий таблицы вокруг, гориз., вертик.
2*M_POINTS, 2*M_POINTS -- растояние с верху и снизу таблицы
2.83*M_POINTS, 2.83*M_POINTS -- растояние между строками и колонками

А если у меня скрипт зависает, я выделяю отдельно таблицу и вручную задаю column properties - proportional
и никаких проблем

 

[Neech]

Ответ: Import text plus перестал работать

такой скрипт у меня есть. Это А. Павлов когда-то выкладывал.