Macro ile word dosyasındaki metni değiştirme

[extremetonic]

Merhaba. Bir word dosyasındaki altyazı metni içinde paragraflar arasında 00:11, 13:42 şeklinde süreler mevcut. Bu dosya içindeki bu süreleri bir macro ile silmek ve bunun yerine boşluk olması mümkün müdür? Örnek dosyası yükleyecektim ama nerden bulamadım, bu yüzden aşağıda gösterdim.

0:11
Phyllis Rodriguez: We are here today because of the fact that we have what most people consider an unusual friendship.
0:25
I first learned.
1:42
When I saw Aicha in the media, coming over when her son was indicted.

olan word dosyalarının aşağıdaki şekilde olmasını istiyorum.

Phyllis Rodriguez: We are here today because of the fact that we have what most people consider an unusual friendship.

I first learned.

When I saw Aicha in the media, coming over when her son was indicted.

Ama buradaki paragrafların uzunlukları değişebiliyor. Örnek olduğu için ben paragrafları kısalttım.
Yardımcı olan arkadaşlara şimdiden teşekkürler.

 

[extremetonic]

Macro ile word dosyasına müdahale edilemiyor sanırım?

 

[hlojan]

Bu kodu biraz düzenle kendine göre

Sub Sample()
    Dim c As Range
    Dim StartWord As String, EndWord As String

    FİndWord = ":"

    Set c = ActiveDocument.Content
    c.Find.ClearFormatting
    c.Find.Replacement.ClearFormatting
    With c.Find
        .Text = "*" & FindWord & "*"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False '
    End With

End Sub

 

[extremetonic]

Merhaba. Öncelikle yardımın için teşekkürler. Macroyu çalıştırdığımda aşağıdaki hatayı veriyor. Kendime göre nasıl düzenleyebileceğimi pek bilmiyorum

 

[extremetonic]

Merhaba, aşağıdaki macro kodu ile seçtiğim srt dosyalarını düz metine çevirebiliyorum. Ama bazı dosyalarda dille ilgili sorun çıkarıyor, bazı harfleri karakter olarak çıkarıyor. Türkçe ç,ğ,ş gibi harflere başka karakter, ingilizce ve almancada da başka karakterler çıkarıyor. Bunu nasıl düzeltebilirim?

Teşekkürler.

Sub Altyazıları_Tüm_Metin_Yapma()

Range("A:A").ClearContents
dosya = Application.GetOpenFilename(FileFilter:="Altyazı Dosyaları(*.srt),(*srt)", Title:="Alt yazı dosyası seçiniz.")

If dosya = False Then Exit Sub
Open dosya For Input As #1
Do While Not EOF(1)
    Line Input #1, Kayit
    If Kayit <> Empty And Not IsNumeric(Kayit) And InStr(Kayit, "-->") = 0 Then
        metin = metin & Kayit & " "
    End If
Loop
Close #1
metin = Replace(metin, Chr(10), " ")
uzunluk = 32767
For a = 0 To Int(Len(metin) / uzunluk)
    Cells(a + 1, "A") = Mid(metin, a * uzunluk + 1, uzunluk)
Next

End Sub