Следуйте инструкциям в видео ниже, чтобы узнать, как установить наш сайт как веб-приложение на главный экран вашего устройства.
Примечание: Эта функция может быть недоступна в некоторых браузерах.
Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно. Необходимо обновить браузер или попробовать использовать другой.
X7 32 bit - срабатывают 1 и 3-й варианты
Sub aaa()
b = "Привет"
If b = "Привет" Then MsgBox "1 " & b
If StrComp(b, "Привет", vbTextCompare) Then MsgBox "2 " & b
If StrComp(b, "@825B", vbTextCompare) Then MsgBox "3 " & b
End Sub
Поймал себя на том, что читал обсуждение, запихал pdf в корел, снёс штамп заказчика, положил дизайн на наш штамп, отослал заказчику на утверждение, продолжил читать тему.
--- тут картинка кота с попкорном, которую лень искать ---
В AI скриптинге не разбираюсь.
Что если вынести из цикла:
все_выделенные_объекты.filled = true; (до цикла)
все_выделенные_объекты.strokeWidth = 0; (после цикла)
Примерно так:
Sub textConvertKavichky()
Dim s As Shape, r As New ShapeRange, st As String
ActiveDocument.BeginCommandGroup "quotes"
Set r = ActiveSelectionRange
Set re = CreateObject("VBScript.RegExp")
re.Global = True
For Each s In r.Shapes.FindShapes(, cdrTextShape)
st =...
Возьмите цвет пипеткой с уже покрашенного объекта
Кликайте объекты для покраски сколько угодно раз.
Для более старых версий (~ до X5) кликайте удерживая Shift.
Прошловековой метод - распечатать памятник, накрыть куском кальки, обрисовать, отсканировать, при желании, векторизовать.
Современный - сделать то же самое в шопе на новом полупрозрачном слое, но мышой сложновато, а стилуса у вас, думается, нету.
На данном сайте используются cookie-файлы, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших cookie-файлов.