去掉字幕文件里的时间轴信息
由于经常看美剧,想好好研究台词,下载下来的中英文字幕文件里含有时间轴信息,用了一些软件比如EditLRC等,都不能正确的将字幕(srt,ass等)转换成没有时间的文本文件。在word里面终于倒腾出了,有两种方法。
方法一:
1. 将字幕文件用文本编辑软件打开,复制粘贴到word里。
2. Alt+F11调出VBA编辑工具,F7打开代码窗口(【视图】——【代码窗口】)。
3. 代码如下,写好后运行或者保存。
Sub mmm() Application.ScreenUpdating = False Selection.EndKey Unit:=wdStory Selection.HomeKey Unit:=wdLine Selection.EndKey Unit:=wdLine, Extend:=wdExtend Do If Asc(Selection.Text) = 13 Then Selection.TypeBackspace ElseIf Selection.Text Like "##:##:##,### --> ##:##:##,###*" Then Selection.TypeBackspace Selection.MoveUp Unit:=wdLine, Count:=1 ElseIf IsNumeric(Mid(Selection.Text, 1, Len(Selection.Text) - 1)) = True Then Selection.TypeBackspace Selection.MoveUp Unit:=wdLine, Count:=1 Else Selection.MoveUp Unit:=wdLine, Count:=1 End If Selection.HomeKey Unit:=wdLine Selection.EndKey Unit:=wdLine, Extend:=wdExtend Loop Until (Selection.Information(wdFirstCharacterLineNumber) = 1 And Selection.Information(wdActiveEndPageNumber) = 1) Application.ScreenUpdating = True End Sub
方法二:
1. 将字幕文件用文本编辑软件打开,复制粘贴到word里。
2. 把^p^p全部替换为+
3. 把^p全部替换为=
4. 把+全部替换为^p
5. 全选——【插入】——【表格】——【文本转换成表格】
6. 删除多余的列。最后效果: