Наблюдается переодические рывки в разные моменты времени, пока что это не особо критично но для глаза заметно. Не хотелось что бы у телезрителя нервный тик потом был

Модераторы: ElenVR, Людмила, PR
Даниленко Сергей писал(а):Для Александр_Брянск
Если вы используете в бегущей строке в качестве задания текстовый файл, то нужно еще также в настройках титровального элемента указать файл коллекции стилей. В противном случае используется некий стиль по умолчанию (большие белые буквы). В коллекции стилей вы можете задать все настройки для показа объявления - шрифт, цвет, размер,... Использование коллекции стилей позволяет кроме того показывать разные объявления разными стилями.
Настоятельно рекомендуем посмотреть уроки по бегущей строке - там есть все. В частности описана работа по созданию и использованию коллекции стилей.
Уроки здесь:
http://www.softlab-nsk.com/rus/forward/tutorial.html
На этот форум я тоже по той же причине пришел и вот, что я нашел:"КРИТИЧЕСКАЯ ОШИБКА ПРИ ЗАГРУЗКЕ ТИТРОВАЛЬНОГО ЭЛЕМЕНТА" Сообщение
[ошибка в элементе "Бегущая строка"] Файл стилей пуст или поврежден.
Хотя коллекция стилей я сделал так как описано в видео уроках
Дмитрий! Поделитесь программкой для новостийщиков?Дмитрий Талалаев писал(а):Обновление установил, всё работает, и стили и оформление.
Сейчас пишу програмку для новостийщиков которая из обычного текста с определёнными параметрами генерирует spt файл для титровального объекта, строка зациклена. Всё нормально работает.
А вы попробуйте открыть файл *.spt в каком-нибудь текстовом редакторе. Вы увидите, что этот файл имеет очень простую структуру. В нем присутствуют строки двух типов:Дмитрий! Поделитесь программкой для новостийщиков?
Код: Выделить всё
Sub MakeSPT()
Код: Выделить всё
With Selection.Find
.Text = ". ^p"
.Replacement.Text = ".^p"
End With
Selection.Find.Execute Replace:=wdReplaceAll
Код: Выделить всё
With Selection.Find
.Text = "^p "
.Replacement.Text = "^p"
End With
Selection.Find.Execute Replace:=wdReplaceAll
Код: Выделить всё
With Selection.Find
.Text = "^p^p^p"
.Replacement.Text = "^p^p"
End With
Selection.Find.Execute Replace:=wdReplaceAll
Код: Выделить всё
With Selection.Find
.Text = "^p$^p"
.Replacement.Text = "targa mel.tga^p"
End With
Selection.Find.Execute Replace:=wdReplaceAll
Код: Выделить всё
With Selection.Find
.Text = "^p$$^p"
.Replacement.Text = "targa obl.tga^p"
End With
Selection.Find.Execute Replace:=wdReplaceAll
Код: Выделить всё
With Selection.Find
.Text = "^p$$$^p"
.Replacement.Text = "targa ukr.tga^p"
End With
Selection.Find.Execute Replace:=wdReplaceAll
Код: Выделить всё
With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^ptarga logo.tga^ptext#0 "
End With
Selection.Find.Execute Replace:=wdReplaceAll
Код: Выделить всё
ActiveDocument.SaveAs FileName:="F:\!OnAir!\TitleRoll\news.spt", FileFormat:=wdFormatText
End Sub