Различия

Здесь показаны различия между выбранной ревизией и текущей версией данной страницы.

--- ru:creating_user_reports:use_macros_in_reports:examples:typelink_with_subject [2014/03/04 11:19]
barinova
+++ ru:creating_user_reports:use_macros_in_reports:examples:typelink_with_subject [2018/04/09 15:33] (текущий)
@@ Строка 9: / Строка 9: @@
 В отчете формата Word по процессу в таблице со столбцами процессов, субъектов процесса и типа связи субъекта с процессом сделать так, чтобы тип связи показывался не отдельным столбцом, а в столбце с субъектом. При этом:
-  - При выводе в HTML (HTML-публикация или Business Studio Portal) ссылка на субъект должна остаться ссылкой, а название вида связи должно быть черным цветом как это было и в столбце с названием вида связи.
+  - При выводе в HTML (HTML-публикация или Business Studio Portal) ссылка на субъект должна остаться ссылкой, а название вида связи должно быть черным цветом, как это было и в столбце с названием вида связи.
   - При выводе в Word название типа связи должно быть цветом, отличным от названия субъекта для большей читабельности (например, серый цвет) и курсивом.
@@ Строка 38: / Строка 38: @@
 После окончания переноса всех типов связей удалить столбец "Тип связи" и поправить таблицу к обычному виду.
-<code vb>
+<code>
 Sub ПослеВыполненияОтчета(ob As Variant, app As Variant)
@@ Строка 47: / Строка 47: @@
 Bookmark = "Подпроцессы_и_исполнител_83cdcd34"
-'Номер столбца с название Субъекта
+'Номер столбца с названием Субъекта
 Dim ColumnSubject As Integer
 ColumnSubject = 3
@@ Строка 175: / Строка 175: @@
 countCharClean = 2 ' кол-во символов для удаления
-If Len(CellText) > countCharClean Then 'если символов больше чем будем удалять
+If Len(CellText) > countCharClean Then 'если символов больше, чем будем удалять
     'убираем последние символы (для текста ячейки - это чистый текст)
@@ Строка 199: / Строка 199: @@
+[<contextnavigator>]