Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Здравствуйте, подскажите пожалуйста: нужно проверить наличие рисунков во втором разделе документа. Смог написать условие для проверки во всем документе через Shapes :
If ActiveDocument.Shapes.Count >= 2 Then MsgBox "Подписи уже вставлены": Exit Subно никак не могу прописать номер раздела, типа:
ActiveDocument.Sections(2).т.к. в Sections уже нет Shapes. Как быть?
Как быть?
Попробуйте использовать диапазон фигур ShapeRange, который есть в диапазоне секции, напр.:
Sub ListShapesInSection()
Dim ad As Document
Dim shp As Shape
Dim shprg As ShapeRange
Dim ishp As Long
Dim nshp As Long
Set ad = ActiveDocument
Set shprg = ad.Sections(1).Range.ShapeRange
nshp = shprg.Count 'число фигур в ShapeRange
If nshp > 0 Then
For Each shp In shprg
shp.Select 'выделить фигуру(необязательно для обработки фигуры)
'обработать фигуру shp
' ...
Next
End If
End Sub
Попробуйте использовать диапазон фигур ShapeRange, который есть в диапазоне секции
Благодарю, работает как и предполагалось
На заметку.
Кроме Shapes, есть еще InLineShapes. Это отдельная группа. Там тоже могут быть рисунки.
Вообще, не факт, что это будет именно рисунок, в смысле точечный. В эти группы попадают все объекты: надписи, фигуры, диаграммы и пр. Для отсева точечных, нужна доп. проверка.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Проверка наличия рисунков в разделе
Для всех пользователей текстового редактора Microsoft Word будет полезно познакомиться со встроенными функциями и настройками этой программы. Наш сайт о Microsoft Office Word даст ответ про: сайт для правки предложений.
На форуме сайта Ворд Эксперт вам предложат различные варианты настроек, в зависимости от поставленных задач. Наш сайт о Microsoft Office Word даст ответ про: почему в ворде при заливке не закрашивается ячейка. Так существуют схемы для быстрого удаления лишних пробелов из текста, переформатирования и оформления в одном стиле различных кусков, работы с таблицами и многого другого. На портале о Microsoft Office Word вы узнаете про: шрифт docx.
Здесь вы найдете шаблоны для часто повторяющихся схем оформления текста, макросы практически для любых операций, готовые решения и пошаговые инструкции для написания. На портале о Microsoft Office Word вы узнаете про: вставить в ворд ячейку из екселя. Также вы можете оставить заявку на любую работу, связанную с Вордом.