Постійний збір на дрони FPV для ЗСУ
Закидуй дві гривні!
FPV-дрони змінюють хід війни
Змінюй хід війни!

1С + Word

🔴 19:05 Повітряна тривога в Харків.обл.
Статус: Offline
Реєстрація: 05.09.2008
Повідом.: 174
  • 🔴 19:05 Повітряна тривога в Харків.обл.
  • #1
1С + Word

Подскажите, пожалуйста.

При переносе данных из таблицы Word в 1С:Предприятие 7.7 в конце приписываются две вертикальные черточки. Как их убрать?
 
  • 🔴 19:05 Повітряна тривога в Харків.обл.
  • #2
а как вы переносите?
 
  • 🔴 19:05 Повітряна тривога в Харків.обл.
  • #3
Через код.

Процедура ААА()
ФайлВорд = "";
КаталогВорд = "";

Word = СоздатьОбъект("Word.Application");
ФС.ВыбратьФайл(0, ФайлВорд, КаталогВорд, "Выберите файл.", "Документ (*.doc)|*.doc", ,);
Word.Documents.Open(Сокрлп(КаталогВорд + ФайлВорд));

ФормаПоле = Word.Documents(1).Tables(1).Rows(1).Cells(1).Range.Text; //берется текст в таблице вордовского файла и заносится, например, в поле на форме (если в отчет - таже ситуация)

Word.Documents.Close();

КонецПроцедуры

Берется текст из ячейки таблицы вордовского файла и заносится, например, в поле на форме (если в отчет - таже ситуация) в 1С.
 
  • 🔴 19:05 Повітряна тривога в Харків.обл.
  • #4
Это очевидно неотображаемые символы типа границы ячейки попадают. Их можно просто обрезать в 1с СтрЗаменить....
 
  • 🔴 19:05 Повітряна тривога в Харків.обл.
  • #5
Это очевидно неотображаемые символы типа границы ячейки попадают. Их можно просто обрезать в 1с СтрЗаменить....

Спасибо. Получилось

ФормаПоле = СтрЗаменить(Word.Documents(1).Tables(1).Rows(1).Cells(1).Range.Text, Симв(13)+Симв(7), "");
 
  • 🔴 19:05 Повітряна тривога в Харків.обл.
  • #6
блин, зафтыкал и не отправил ответ, это граница ячейки и коенц строки
 
  • 🔴 19:05 Повітряна тривога в Харків.обл.
  • #7
ну да.
 
Назад
Зверху Знизу