去掉字幕文件里的時間軸信息

由於經常看美劇，想好好研究台詞，下載下來的中英文字幕文件里含有時間軸信息，用了一些軟件比如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. 刪除多余的列。最后效果：