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

[Vitr]

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

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

 

[Glutton]

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

При печате можно галочку нажать - и будет счастье.

 

[Vitr]

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

При печате можно галочку нажать - и будет счастье.

Галочку - в смысле в настройках печати? "Print file information"?
А куда он ее впендюрит? И каким цветом - черным? Мне регистрейшен нужен.

 

[wOxxOm]

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

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

первые две цифры (0, 0) - это координаты вставки от левого нижнего угла

 

[Vitr]

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

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

первые две цифры (0, 0) - это координаты вставки от левого нижнего угла

А повернуть на 90 град можно?

 

[wOxxOm]

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

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