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

由于经常看美剧，想好好研究台词，下载下来的中英文字幕文件里含有时间轴信息，用了一些软件比如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