Следуйте инструкциям в видео ниже, чтобы узнать, как установить наш сайт как веб-приложение на главный экран вашего устройства.
Примечание: Эта функция может быть недоступна в некоторых браузерах.
Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно. Необходимо обновить браузер или попробовать использовать другой.
Вместо подсчета слоёв по одному можно было использовать MsgBox ActiveDocument.ActivePage.Layers.Count. А вот в цикле можно было собрать имена слоёв.
Sub qqq()
Dim lrs As Layer
For Each lrs In ActiveDocument.ActivePage.Layers
s = s & vbCr & lrs.Name
Next lrs
MsgBox...
Когда ТоталКоммандер ищет текст по файлам он предлагает вести поиск в кучке кодировок.
Может и в вашем случае текст где-то ещё есть, но искался не в той кодировке?
В X7 я делаю так (X5 для перепроверки под рукой нет):
Sub dim_each()
ActiveDocument.BeginCommandGroup "Dimensioner"
ActiveDocument.Unit = cdrMillimeter
d = 10
For Each s In ActiveSelection.Shapes
ActiveLayer.CreateLinearDimension(cdrDimensionVertical, s.SnapPoints.BBox(cdrTopMiddle)...
Чуток загорожено, но не наблюдаю 3-х колонок в самой первой строке "- N -", имхо, там второй и третий столбец скомбинированы.
Sub ParaTabSplitter()
Dim r As Row, cl As Cell, t As Table
On Error Resume Next
For Each t In ActiveDocument.Tables
For Each r In t.Rows
rr = 1
For...
Это при комбинированных ячейках (ваша ошибка при горизонтальном объединении). Ни мой макрос ни @Gad 'а данную ситуацию не обрабатывает. Во избежание остановки работы, можно добавить On Error Resume Next в первую строку макроса.
Не понравилось как макрос работает на ячейках с разным кол-вом строк (хоть у ТС такие и отсутствуют по условию. И GoTo меня несколько удивил. В общем написал свой вариант.
Sub ParaTabSplitter()
For Each t In ActiveDocument.Tables
For Each R In t.Rows
rr = 1
For Each cl In...
На данном сайте используются cookie-файлы, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших cookie-файлов.