Автоматическая вставка имени файла в текст

  • Автор темы Автор темы Vitr
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.
Vitr

Vitr

Топикстартер
15 лет на форуме
Сообщения
167
Реакции
1
Вопрос к знатокам VBA. Можно ли сделать в Кореле такой скрипт, чтобы он подставлял имя файла в нужное место в тексте?
Я занимаюсь верстками в типографии и постоянно нужно вписывать в шаблон номер файла. Иногда забываю, девушка на рипе ругается :) Нельзя ли автоматизировать эту рутинную операцию?

А еще бы и в Индизайне такую штуку было бы неплохо. А если еще и в Кварке, то вообще замечательно! :)
 
Ответ: Автоматическая вставка имени файла в текст

При печате можно галочку нажать - и будет счастье.
 
Ответ: Автоматическая вставка имени файла в текст

Glutton сказал(а):
При печате можно галочку нажать - и будет счастье.
Нажмите, чтобы раскрыть...
Галочку - в смысле в настройках печати? "Print file information"?
А куда он ее впендюрит? И каким цветом - черным? Мне регистрейшен нужен.
 
Ответ: Автоматическая вставка имени файла в текст

Код: 
sub InsertFileName()
   ActiveDocument.Unit = cdrMillimeter
   ActiveLayer.CreateArtisticText(0, 0, ActiveDocument.Name, , , "Arial", "10").Fill.ApplyUniformFill CreateRegistrationColor()
end sub

первые две цифры (0, 0) - это координаты вставки от левого нижнего угла
 
Ответ: Автоматическая вставка имени файла в текст

wOxxOm сказал(а):
Код: 
sub InsertFileName()
   ActiveDocument.Unit = cdrMillimeter
   ActiveLayer.CreateArtisticText(0, 0, ActiveDocument.Name, , , "Arial", "10").Fill.ApplyUniformFill CreateRegistrationColor()
end sub

первые две цифры (0, 0) - это координаты вставки от левого нижнего угла
Нажмите, чтобы раскрыть...
А повернуть на 90 град можно?
 
Ответ: Автоматическая вставка имени файла в текст

Код: 
Sub InsertFileName()
   ActiveDocument.Unit = cdrMillimeter
   ActiveDocument.ReferencePoint = cdrBottomLeft
   ActiveDocument.BeginCommandGroup "Insert FileName"
   
   With ActiveLayer.CreateArtisticText(0, 0, ActiveDocument.Name, , , "Arial", "10")
      .Fill.ApplyUniformFill CreateRegistrationColor()
      .Rotate 90
      .SetPosition 0, 0
   End With
   
   ActiveDocument.EndCommandGroup
End Sub

координаты надо менять только в .SetPosition
 
Статус
Закрыто для дальнейших ответов.
Верх Низ