Evo i macro za Word, da ne morate svaki put koristi Find & Replace:
Sub OCRani_titl()
'
' OCRani_titl Macro
'
'
Application.Browser.Previous
Selection.HomeKey Unit:=wdStory
Selection.TypeText Text:="00:00:00,000 --> 00:00:00,000"
Selection.TypeParagraph
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^m"
.Replacement.Text = "^p00:00:00,000 --> 00:00:00,000^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "^p^p^p"
.Replacement.Text = "^p___^p^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Dodaje i tekst na početku i pronalazi i linije bez teksta - Tu stavlja "___".
Ovo zadnje zato što bi neki editori titlova mogli izbrisati prazne linije, pa ne bi odgovaralo spašenom timingu.
Morate omogućiti macroe u wordu, a ovo zalijepite onda u VBA unutar New Macros.
