Ответ: Автоматическая вставка имени файла в текст
sub InsertFileName()
ActiveDocument.Unit = cdrMillimeter
ActiveLayer.CreateArtisticText(0, 0, ActiveDocument.Name, , , "Arial", "10").Fill.ApplyUniformFill CreateRegistrationColor()
end sub
первые две цифры (0, 0) - это координаты...