Corel X5 EN - открытие файла из русскоязычной версии

[SEX_LENIVEC]

Работаю в оперпринтцентре. Клиенты разные. Часто приносят файлы - многостраничные и в русскоязычном кореле-соответсвенно "Layer"- в русском назван "слой". Пока эту русскоязычность не переименуешь обратно в "Layer" - в 80% файлов напечатать адекватно не получится, даже pdf не сделаешь-корел падает. А страниц бывает очень не по малу. А упродвинутых еще и слоев по многу. переименовывать - пальцы отваливаются и времени жалко. Что делать? Может есть или можно сделать какойнть макрос при открытии переименовывающий "слой Х" в "Layer X"

 

[lev]

Ответ: Corel X5 EN - открытие файла из русскоязычной версии

Переобзываем страницы по счётчику, не заморачиваясь на текущие имена
Слои направляющих-сеток не переименовываются (имена получить можно, а переобозвать нельзя)

Sub RenameLayers()
  Dim p        As Page
  Dim l        As Layer
  Dim c        As Integer
  ActiveDocument.BeginCommandGroup "Rename Layers"
  For Each p In ActiveDocument.Pages
    For Each l In p.Layers
      c = c + 1
      l.Name = c
    Next l
  Next p
  ActiveDocument.EndCommandGroup
End Sub

Чтобы переобзывалось при открытии запихиваем код в

Private Sub GlobalMacroStorage_DocumentOpen(ByVal Doc As Document, ByVal FileName As String)
'код или вызов функции
End Sub

Пример см. тут.