вставка вложений

  • Автор темы oxystile
  • Дата начала
O

oxystile

#1
@Command([EditGotoField];"Attach");
@Command([EditInsertFileAttachment])
-помещает вложение в начало поля. как сделать, чтобы размещалось в конце, причем каждое последующее вложение с новой строки??
 
O

oxystile

#3
уже смотрю, но как через скрипт выполнить @Command([EditInsertFileAttachment]) не представляю :)
 
R

root

#4
в сторону
Call notesRichTextItem.AddNewLine( n% [, forceParagraph ] )
для собак
@Command([EditInsertText]; @Char(0));
 
R

root

#9
Код:
@Command( [EditRight]; @Text (@Length(Un)) );
@Command([EditInsertText]; @Char(0));
@Command([EditInsertFileAttachment])
 
R
#11
Для: oxystile
Открой его на редактирование
@Command( [EditDocument] );

Делаем доп вычисляемое поле например Count1
Value
Код:
Text1 := @Abstract([TextOnly]; 16000; ""; UN);
@length(Text1)
Получили длину текста.

и Акшен

Код:
@Command( [EditDocument] );
@Command( [EditGotoField]; UN );
@Command ([EditRight];@Text (Count1));
@Command([EditInsertText]; @Char(0));
@Command([EditInsertFileAttachment]);
@Command( [FileSave] )
 
O

oxystile

#12
с редактированием понятно...даже лучше так
@If(@IsDocBeingEdited; @True;@Command( [EditDocument] ; 1 ));

кстати Un-это поле с вложениями?
@If(@IsDocBeingEdited; @True;@Command( [EditDocument] ; 1 ));
@Command( [EditGotoField]; Attach);
@Command ([EditRight];@Text (count1));
@Command([EditInsertText]; @Char(0));
@Command([EditInsertFileAttachment]);
@Command( [FileSave] )

---count1 по формуле =3 и в итоге курсор перемешается в первое текст поле на 3-ю строку

почти получилось скриптом
stringArray = workspace.OpenFileDialog( True )
uidoc.EditMode=False
Forall v In stringArray
Set object = body.EmbedObject ( EMBED_ATTACHMENT, "", v)
Call body.AddNewLine(1)
Call doc.Save(True, True)
End Forall
но добавленные вложения сразу не отображаются, только после переокрытию дока.
как бы сделать чтобы сразу в поле появлялось то что добавили