shape.text.story.textДобрый вечер, в документе есть символы некоторые отдельно некоторые в группе, как можно найти их и изменить? Найти по имени получилось а вот изменить что то пока не получается?
у меня символы не текстовые а фигуры как символне понятно что это такое?
это через макросы если делать. если вам нужны простые текстовые значения то прост воспользщуйтесь стандартной формой поиска по тексту "правка - поиск и замена"не понятно что это такое?
нет,мне нужно изменить именно как экземпляр символа что бы изменились и остальные его экземпляры только сделать это надо макросомПравая кнопка мыши - вернуть символ в объекты. Далее редактируй как хочешь.
на уровне макросов нужно читать мануалы. там обычно все написано. ну а вообще там нет аткой связи, что один меняете и остальное меняется.н
нет,мне нужно изменить именно как экземпляр символа что бы изменились и остальные его экземпляры только сделать это надо макросом
Почему нет есть жена уровне макросов нужно читать мануалы. там обычно все написано. ну а вообще там нет аткой связи, что один меняете и остальное меняется.
Посмотреть вложение 158251
берете пробегаете по всем клонам и меняете.
for each s in activeshape.clones
тогда через символы. почти точно так жеНе клоны а экземпляры символа
менять в инстансах наверно нужно или в нестедсимвол. а проверять он или не он можно внутри цикла через "is" if shape1 is shape2 thenЯ нахожу по имени символ а изменить его не могу, пробовал через запись макроса но там к номеру шейпа он применяется а как мне выйти на нужный номер шейпа я не могу понять
Sub first_symbol_shape_to_cyan()
Dim sd As SymbolDefinition
For Each sd In ActiveDocument.SymbolLibrary.Symbols
'Debug.Print sd.Name тут можем проверить имя символа, чтобы редактировать нужный
If sd.Editable Then
sd.EnterEditMode
ActiveLayer.Shapes(1).Fill.ApplyUniformFill CreateCMYKColor(100, 0, 0, 0) ' красим первый шейп символа в cyan, просто, для примера, без проверки типа шейпа, поэтому могут быть сбои.
sd.LeaveEditMode
End If
Next sd
End Sub
Вроде получилось , большое спасибоВот примерчик:
Код:Sub first_symbol_shape_to_cyan() Dim sd As SymbolDefinition For Each sd In ActiveDocument.SymbolLibrary.Symbols 'Debug.Print sd.Name тут можем проверить имя символа, чтобы редактировать нужный If sd.Editable Then sd.EnterEditMode ActiveLayer.Shapes(1).Fill.ApplyUniformFill CreateCMYKColor(100, 0, 0, 0) ' красим первый шейп символа в cyan, просто, для примера, без проверки типа шейпа, поэтому могут быть сбои. sd.LeaveEditMode End If Next sd End Sub