去掉字幕文件里的时间轴信息

由于经常看美剧,想好好研究台词,下载下来的中英文字幕文件里含有时间轴信息,用了一些软件比如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. 删除多余的列。最后效果:

posted @ 2013-09-02 15:44  水芊芊  阅读(10633)  评论(0编辑  收藏  举报