把你那段作为字符串有条件的……
一行最多255个然后用 _ 分行~分行貌似也有限制。
你要转一段文字作为字符串。
ScriptInfo = "[Script Info]" & vbcrlf & ";本字幕为英语在上,汉语在下,视频内部有时会出现英语." _
& vbcrlf & "ScriptType: v4.00" & vbcrlf & "Collisions: Normal" & vbcrlf _
& "PlayResX: 384" & vbcrlf & "PlayResY: 288" & vbcrlf & "Timer: 100.0000"
msgbox ScriptInfo
然后再定义V4Styles,甚至里面的样式,比如:
;汉字样式
Format: Name, Fontname, Fontsize, PrimaryColour, SecondaryColour, TertiaryColour, BackColour, Bold, Italic, BorderStyle, Outline, Shadow, Alignment, MarginL, MarginR, MarginV, AlphaLevel, Encoding
Style: Default,Arial,17,&Hffffff,&H00ffff,&H000000,&H000000,-1,0,1,2,0,2,20,20,21,0,1
也可以单独定义成几块……
用的时候
ScriptInfo & V4Styles合并就可以了。。。。替换每行字符串中的"为""然后前后都加上引号.然后将回车替换成字符串 " & vbCrLf & "
字符串长度你自己限制下吧