Surrogate-TM

Стояла задача проверить гиперссылки ведущие на PDF-документы с рефлектограммами.

Целевая книга Excel содержала 3 вкладки, на вкладках over9000 гиперссылок. Встречались абсолютные и относительные гиперссылки.

Sub CheckHyperlinks()
Dim ash As Object, ur As Range, rc As Integer, cl As Range, hl As Hyperlink
Dim fso As Object, fold As String, bl As Boolean, blOK As Boolean, blR As Boolean

Surrogate-TM

Макрос для определения количества страниц в документах PDF в папке с текущей книгой.

⚠️ Для работы макроса необходимо подгрузить библиотеку Acrobat…

Dim ur As Range
Dim AcroApp As Acrobat.CAcroApp
Dim Part1Document As Acrobat.CAcroPDDoc

Sub Get_All_File_from_Folder()
    Set AcroApp = CreateObject("AcroExch.App")

Surrogate-TM

Аварийное закрытие документа

${\color{red} При \space редактировании \space в \space Writer \space документов \space содержащих \space наши \space корпоративные \space стили \space происходит \space аварийное \space закрытие \space без}$ ${\color{red} сохранения \space изменений \space в \space документе!!!}$
Решение: Пока не нашел решения.

Проблема с оглавлением

• Оглавление выезжает за рамки

Решение: Можно изменять отступы и табуляцию для стилей Оглавление1, Оглавление2, Оглавление3.

Проблема сокращенным названием

Surrogate-TM

Ответы на комментарий к видео

1. Фигура (1У_УЗО и подобные) - в данных фигурах есть поля, значения в которых не отображаются на схеме (например, Вид диф. тока, Ном. диф.ток. мА). Как предполагалось использовать эти поля у Вашего заказчика, если они доступны только в интерфейсе Visio? Есть ли возможность выводить данные значения на схему?

Для Заказчика делалась единая фигура которая на схему размещалась программно, и в зависимости от значения в поле "Тип" в таблице типа такой внешний вид единой фигуры изменялся в соответствии с правилом:

Поля "Вид диф. тока", "Ном. диф.ток. мА" применялис

Surrogate-TM

Код позаимствован там.

Наблюдение показало что параметры blacklevel, turdsize, turnpolicy, alphamax, opticurve, opttolerance не сильно влияют на выходное изображение…

Главное при подготовке скриншота увеличить масштаб отсканированного документа:
Лист А4, в просмотрщике PDF масштаб отображения по умолчанию 70%. Если сделать скрин при таком масштабе качество будет плохое!
Если поставить масштаб отображения 100% уже почти все читаемо.
Если поставить 200% уже очень хорошо.
Если поставить 400% - великолепно!!!

Surrogate-TM

Данный код позволяет извлечь документы внедренные в документ Visio [в форматах VSD/VSD(?)]

Sub Zip()
  Dim va As Application
  Set va = Application
  Dim doc As Document
  Dim cf As String
  Dim dn As String
  Dim nn As String
  Dim fn As String

Surrogate-TM

Лечение "пятого колеса" в трафарете от immortal

Dim mSh As Shape, subSH As Shape, cln As String, clv As String
Sub bvv()
Set mSh = ActivePage.Shapes(1)
For Each subSH In mSh.Shapes
    If subSH.Type = visTypeShape Then FixFormula subSH
Next
MsgBox "TheEnd!!!"
End Sub

Surrogate-TM

В данной заметке я привожу ряд полезных ссылок описывающих, что же такое таблица свойств (a.k.a. ShapeSheet) в MS Visio.

Официальные справочные материалы MS

Visio 2013/2016/2019/2021. ShapeSheet reference
Актуальная онлайн-версия документации не изменяестя начиная с версии Visio 2013!
Visio 2010. ShapeSheet reference
Онлайн-версия документации для версии Visio 2010
Visio 2007. ShapeSheet reference
Онлайн-версия документации для версии Visio 2007
Visio 2003. ShapeSheet reference
Онлайн-версия документации для версии Visio 2003

Surrogate-TM

Задачи

Данное решение позволяет добавлять строки свойств из разделов User-Defined Cells, Shape Data, Actions которые имеются у эталонной фигуры, другим фигурам хранящимся во внешнем трафарете.
Также в отдельных ячейках происходит пропысывание формул содержащих вновь добавленные строки.

Последовательность действий

1. Открыть чистый документ
2. Подгрузить к нему целевой трафарет (vss/vssx)
3. Открыть трафарет для редактирования (в этом режиме в окне трафарета должен отбражаться красный символ *)
4. Вставить в VBA документ ниже приведенных код
5. Вставить на лист эталонный образец
6. Нажать клавиши Alt+F8 в окне Макросы выбрать единственных вариант ThisDocument.FixMasters

Surrogate-TM

Описание

Данный код является миксом из двух опубликованных ранее решений: замена фигур и копирование разделов.
В результате его работы происходит:

• замена выделенной фигуры на фигуру из образца (название образца содержится в переменной mn);
• новая фигура вставляется на место выделенной, приобретает ее размеры, угол поворота и другие параметры из раздела Shape Transform;
  
• дочерние фигуры внутри новой фигуры получают те же параметры в разделах Line Format и Fill Format, что и в выделенной фигуре;
  
• первоначально выделенная фигура удаляется.