Различия

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

Ссылка на это сравнение

ru:creating_user_reports:use_macros_in_reports:examples:doc_as_link [2014/03/04 11:12]
barinova
ru:creating_user_reports:use_macros_in_reports:examples:doc_as_link [2018/04/09 15:33] (текущий)
Строка 41: Строка 41:
 Данная привязка выводит таблицу с названиями нормативно-справочных документов процесса и ссылками на их файлы. Данная привязка выводит таблицу с названиями нормативно-справочных документов процесса и ссылками на их файлы.
  
-В качестве примера возьмем процесс А1, которые имеет свойства, представленные на рисунке ниже.+В качестве примера возьмем процесс А1, который имеет свойства, представленные на рисунке ниже.
  
 [{{ ru:creating_user_reports:use_macros_in_reports:doc_as_link:file_link5_poc_nsd.png?nolink |Рисунок 5. Вид закладки "Нормативно-справочные документы" в окне свойств процесса}}] [{{ ru:creating_user_reports:use_macros_in_reports:doc_as_link:file_link5_poc_nsd.png?nolink |Рисунок 5. Вид закладки "Нормативно-справочные документы" в окне свойств процесса}}]
Строка 62: Строка 62:
 После окончания переноса всех гиперссылок  удалить столбец "Файл" и привести таблицу к обычному виду. После окончания переноса всех гиперссылок  удалить столбец "Файл" и привести таблицу к обычному виду.
  
-<code vb>+<code>
 Sub ПослеВыполненияОтчета(ob As Variant, app As Variant) Sub ПослеВыполненияОтчета(ob As Variant, app As Variant)
  
 'ВВОДНАЯ ЧАСТЬ 'ВВОДНАЯ ЧАСТЬ
  
-'название закладки для привязи типа Список, формирующей нужную таблицу+'название закладки для привязки типа Список, формирующей нужную таблицу
 Dim BookmarkName As String Dim BookmarkName As String
 BookmarkName = "Нормативно_справочные_до_3be042ab" BookmarkName = "Нормативно_справочные_до_3be042ab"
Строка 92: Строка 92:
     countRowsTableDocs = TableDocs.Rows.Count 'количество строк таблицы     countRowsTableDocs = TableDocs.Rows.Count 'количество строк таблицы
  
-    For i = 2 To countRowsTableDocs 'будем проходить по всем строкам таблицы кроме первой+    For i = 2 To countRowsTableDocs 'будем проходить по всем строкам таблицыкроме первой
  
         On Error Resume Next 'игнор error 5991, если какие-то ячейки имеют вертикальное объединение         On Error Resume Next 'игнор error 5991, если какие-то ячейки имеют вертикальное объединение
Строка 100: Строка 100:
         hLinkAdress = ""         hLinkAdress = ""
                  
-        'Определяем текст в ячейка с файлом+        'Определяем текст в ячейке с файлом
         linkFileText = TableDocs.Cell(i, columnFile).Range.Text         linkFileText = TableDocs.Cell(i, columnFile).Range.Text
  
Строка 188: Строка 188:
 | Документ имеет ссылку на файл вида http:%%//%% , ftp:%%//%% |  Ссылка на указанный файл  |  Ссылка на указанный файл  | | Документ имеет ссылку на файл вида http:%%//%% , ftp:%%//%% |  Ссылка на указанный файл  |  Ссылка на указанный файл  |
 | Документ имеет ссылку на локальный файл на компьютере пользователя Business Studio |  Ссылка на документ в HTML  |  Ссылки нет  | | Документ имеет ссылку на локальный файл на компьютере пользователя Business Studio |  Ссылка на документ в HTML  |  Ссылки нет  |
-<endTableBox| Таблица 2. Возможные свойства гиперссылок в зависимости от направления вывода отчета и способа закрепления за документом файла>+<endTableBox| Таблица 2. Возможные свойства гиперссылок в зависимости от направления вывода отчета и способа закрепления за документом файла>  
 +  
 +  
 +[<contextnavigator>]  
Актуальные новости, публикации и практики для бизнес-архитекторов и аналитиков
Driven by DokuWiki