Лишний энтер в помещаемых текстовых файлах

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

aleksasha

Топикстартер
15 лет на форуме
Сообщения
316
Реакции
5
Подскажите, как убрать последний лишний энтер в помещаемых текстовых файлах? Например при вертикальной полной выключке всегда приходится его убирать вручную, дабы последняя строка была у края фрейма.
 
Ответ: Лишний энтер в помещаемых текстовых файлах

aleksasha сказал(а):
Подскажите, как убрать последний лишний энтер в помещаемых текстовых файлах
У меня скриптом проверяется последний символ последнего параграфа стори. И если это vbCr, то удаляет его.
 
Ответ: Лишний энтер в помещаемых текстовых файлах

nis30 сказал(а):
У меня скриптом проверяется последний символ последнего параграфа стори. И если это vbCr, то удаляет его.

а попросить выложить кусок кода, реализующего это, можно?
 
Ответ: Лишний энтер в помещаемых текстовых файлах

aleksasha сказал(а):
а попросить выложить кусок кода, реализующего это, можно?
Попросить можно :)
If myStory.Paragraphs.LastItem.characters.LastItem.Contents = vbCr Then
myStory.Paragraphs.LastItem.characters.LastItem.Contents = ""
End if
 
Ответ: Лишний энтер в помещаемых текстовых файлах

VBS-скрипт для всех фреймов публикации
Код:
Set myInd = CreateObject("InDesign.Application.CS2")
If myInd.Documents.Count > 0 Then
 Set myStories = myInd.ActiveDocument.Stories
 If myStories.Count > 0 Then
 For i = 1 To myStories.Count
 If myStories.Item(i).Paragraphs.Count > 0 Then
 If myStories.Item(i).Paragraphs.LastItem.Characters.LastItem.Contents = vbCr Then
 myStories.Item(i).Paragraphs.LastItem.Characters.LastItem.Contents = ""
 End If
 End If
 Next
 End If
End If
 
Ответ: Лишний энтер в помещаемых текстовых файлах

пасиба за скрипт! :) может когда-нибудь пригодится...
 
Ответ: Лишний энтер в помещаемых текстовых файлах

nis30 сказал(а):
Попросить можно :)
If myStory.Paragraphs.LastItem.characters.LastItem.Contents = vbCr Then
myStory.Paragraphs.LastItem.characters.LastItem.Contents = ""
End if

Можно одной строчкой

myStory.Paragraphs.LastItem.Characters.LastItem.Contents = Replace(myStory.Paragraphs.LastItem.Characters.LastItem.Contents, vbCr, "", 1, , vbTextCompare)
 
Статус
Закрыто для дальнейших ответов.