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

因为常常看美剧,想好好研究台词,下载下来的中英文字幕文件里含有时间轴信息,用了一些软件好比EditLRC等,都不能正确的将字幕(srt,ass等)转换成没有时间的文本文件。在word里面终于倒腾出了,有两种方法。工具

 

方法一:oop

1. 将字幕文件用文本编辑软件打开,复制粘贴到word里。spa

2. Alt+F11调出VBA编辑工具,F7打开代码窗口(【视图】——【代码窗口】)。3d

3. 代码以下,写好后运行或者保存。code

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


方法二:orm

1. 将字幕文件用文本编辑软件打开,复制粘贴到word里。blog

2. 把^p^p所有替换为+it

3. 把^p所有替换为=io

4. 把+所有替换为^pform

5. 全选——【插入】——【表格】——【文本转换成表格】

6. 删除多余的列。最后效果:

相关文章
相关标签/搜索