Re: макросы: по просьбам трудящихся
Написал izrukvruki в 26/02/2007 15:25:25
1) Как мне на странице, найти нужный текст (артистик текст), а если его нет то выдать сообщение "Ошибка идентификации"...
Создать другой текст и ему присвоить все свойства первого, а первый удалить. я сейчас пользуюсь вот такой фишкой, но не устраивает появляются две ошибки...
Цитата:
2) как мне правильно перезаписать файл Name2 (он должен записываться если закрыт и если открыт), если он открыт в данный момент, то вылетает ошибка, а если пытаюсь его предварительно закрыть, то в ситуации когда он закрыт, появляется ошибка
Создать другой текст и ему присвоить все свойства первого, а первый удалить. я сейчас пользуюсь вот такой фишкой, но не устраивает появляются две ошибки...
Цитата:
'Открытие старого макета
OpenDocument Name1
'Замена идентификатора
Set pg = ActiveDocument.ActivePage
Set i = pg.TextFind("Text1", True)
Set inew = pg.ActiveLayer.CreateArtisticText(0, 0, "Text2"
inew.Text.FontProperties.Name = "Arial"
inew.Text.FontProperties.Size = i.Text.FontProperties.Size
inew.Text.FontProperties.Style = i.Text.FontProperties.Style
inew.Fill = i.Fill
inew.RotationAngle = i.RotationAngle
inew.RotationCenterX = i.RotationCenterX
inew.RotationCenterY = i.RotationCenterY
inew.PositionX = i.PositionX
inew.PositionY = i.PositionY
i.Delete 'удаление старого идетификатора
'Сохранение макета
ActiveDocument.SaveAs Name2, opt
2) как мне правильно перезаписать файл Name2 (он должен записываться если закрыт и если открыт), если он открыт в данный момент, то вылетает ошибка, а если пытаюсь его предварительно закрыть, то в ситуации когда он закрыт, появляется ошибка
Источник: https://powerclip.ru/modules/newbb/viewtopic.php?post_id=54782
