Prevodi || Titlovi || Преводи || Podnapisi || Prijevodi
Početna strana Početna strana > HI-TECH i informatički svijet > Uputstva
  Aktivne teme Aktivne teme RSS Feed - Ripovanje hardkodiranih titlova
  FAQ u vezi foruma FAQ u vezi foruma  Pretraži forum   Events   Registracija Registracija  Prijava Prijava


Pravila ponašanja na forumu :: Pravila za postavljanje prevoda :: FAQ u vezi prevoda :: Voditelji foruma
Potražnja prevoda :: Obaveštenje svim NOVIM članovima !!! :: UPUTSTVO ZA PRAVLJENJE PREVODA SUBTITLE WORKSHOP
OFICIJALNI KODI PLUGIN

Ripovanje hardkodiranih titlova

 Odgovori Odgovori Stranica  <12
Korisnik
Poruka
baho View Drop Down
Translator
Translator


Pridružen: 29.Svibanj/May.2010
Lokacija: Sanski Most
Status: Online
Points: 1506
Opcije posta Opcije posta   Thanks (0) Thanks(0)   Citiraj baho Citiraj  OdgovoriOdgovor Direktni link do posta Objavljeno: 04.Listopad/Oct.2018 u 15:50
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.


Ažurirao baho - 04.Listopad/Oct.2018 u 22:01
Na vrh
 Odgovori Odgovori Stranica  <12
  Prosledi temu   

Pređi na drugi Forum Forumska ovlašćenja View Drop Down

Forum Software by Web Wiz Forums® version 11.01
Copyright ©2001-2014 Web Wiz Ltd.

Stranica je generirana u 0,125 sekundi.