Следуйте инструкциям в видео ниже, чтобы узнать, как установить наш сайт как веб-приложение на главный экран вашего устройства.
Примечание: Эта функция может быть недоступна в некоторых браузерах.
Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно. Необходимо обновить браузер или попробовать использовать другой.
для мадженты ...
Sub ung1()
Dim s As Shape, g As Shape, shy As New ShapeRange
For Each s In ActiveSelection.Shapes.FindShapes(Query:="@outline.color.cmyk.m=100")
ag:
s.OrderFrontOf s.ParentGroup
Set g = s.ParentGroup
If g Is Nothing Then
shy.Add s
Else...
маленько добавлю ...
Sub ung()
Dim s As Shape, g As Shape
Set s = ActiveShape
ag:
s.OrderFrontOf s.ParentGroup
Set g = s.ParentGroup
If g Is Nothing Then
s.CreateSelection
Exit Sub
Else
g.CreateSelection
GoTo ag:
End If
End Sub
выбранный шейп вытащит из всех вложенных...
заметём в кучу :)
Sub InsertFileName()
ActiveDocument.Unit = cdrMillimeter
imya = ActiveDocument.FileName
imya = Left(imya, Len(imya) - 4)
Set s = ActiveShape
If s Is Nothing Then Beep: Exit Sub
Set txt = ActiveLayer.CreateArtisticText _
(s.RightX - 150, s.BottomY +15, imya, , ...
так получилось ... у Михаила лаконичней :)
Sub InsertFileName()
Set s = ActiveShape
If s Is Nothing Then Beep: Exit Sub
Set txt = ActiveLayer.CreateArtisticText_
(s.RightX - ActiveDocument.ToUnits(10, cdrMillimeter), _
s.BottomY - ActiveDocument.ToUnits(40, cdrMillimeter), _...
не совсем так - CDRTols причём версии 2.0 - которую надо ещё найти
описание - на коммюнити
макрос дальше Х7 не работает
у Санчо на сайте - сейча версия 2.1 - и там этого нет
Минсельхоз подготовил проект логотипа для единого российского бренда экологических продуктов питания. Соответствующий приказ размещен на портале публикации правовой информации.
Согласно документу, новым брендом для экологически чистой продукции отечественного производства предлагается сделать...
Может мне кажется, но
дата последнего изменения файла
и
text with a system data
это немного разные вещи
так-то на отпечатке кто вам мешает включить печать информацию о файле
системная дата будет на отпечатке
На данном сайте используются cookie-файлы, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших cookie-файлов.