[Fanda] Fw: hromadna konverze doc do txt

[Peter Nedorost]

> tak Vítek,
> ja to stále hovorím, mjat vsetky správy v outlook expresse, hladanie behom
> sekundy, ziadne hladanie vo webovskom archíve, pozri forwardnutý mail, 
> hádam
> ti pomôze.
>
> ----- Original Message ----- 
> From: "Michal Jelinek" <jelinek na braillnet.cz>
> To: "Pro fanousky vypocetni techniky" <fanda na Tereza.fjfi.cvut.cz>
> Sent: Saturday, November 25, 2000 5:33 PM
> Subject: hromadna konverze doc do txt
>
>
>> Zdravim Vas Fandove,
>>
>> nedavno v konferenci, kterou odebiram, psal
>> jeden clovek skript ve Virtual basicu, ktery konvertoval
>> hromadne wordovske dokumenty do rtf. Pozadal jsem ho,
>> zda by mi ten skript neupravil, aby konvertoval doc do prosteho
>> textu. A vysledek mate v priloze (DOC2TXT.TXT)
>>
>> Skrypt se pouziva jako wordovske makro. Makro pracuje
>> s adresarem c:\dokumenty\konverze. Tudiz, pokud makro
>> budete chtit pouzivat, tak si tento adresar (konverze)
>> vytvorte v adresari DOKUMENTY, ktery by mel byt na rootu,
>> pokud jste si jej po instalaci woken nepremistili.
>> Skript Vam konvertne vsechny *.doc v adresari KONVERZE do
>> *.TXT. Dokumenty musi byt primo v adresari KONVERZE.
>>
>>
>> VaPLIKOVANI SKRIPTU DO WORDU:
>>
>> 1. Pustime Microsoft Word
>> START - SPUSTIT - WINWORD
>>
>> 2. Otevreme soubor obsahujici skript (zde DOC2TXT.TXT) a zkopirujeme
>> jeho  obsah do schranky
>>
>> 3. Nabidka NASTROJE - MAKRO - MAKRA
>>
>> 4. Tlacitko VYTVORIT (alt+V)
>>
>> 5. Otevre se VisualBasic a v okne se objevi zacatek noveho skriptu.
>> Ten je treba smazat - takze Ctrl+A, DEL.
>>
>> 6. Nyni vlozime obsah schranky (tedy ten skript) do z bodu 5
>> vyprazdneneho okna editoru jazyka VisualBasic.
>> Ctrl+V
>>
>> 7. Ukoncime VisualBasic (treba ALT+F4) a po navratu do Wordu by se
>> melo po opetovnem zaktivovani dialogu se seznamem maker, ktera jsou k
>> dispozici, (Nastroje - Makro - Makra) mezi vypsanymi polozkami
>> objevit i makro s nazvem DOC2TXT a to je ono. Soubor se skriptem uz
>> muzete zavrit.
>>
>> 8. Po odklepnuti makra DOC2TXT se makro spusti a prekonvertuje
>> vsechny Wordovske dokumenty ulozene v adresari C:\DOKUMENTY\KONVERZE
>> do formatu prosteho textu s koncovkou .TXT.
>>
>> Doufam, ze jsem Vam postup popsal dost podrobne.
>> Chodi to bez problemu. Mam Worda z Office 97, ale myslim,
>> ze by s dvoulitrovyma Office nemel byt problem.
>>
>> S pozdravem
>>
>> Michal
>>
>>
> 
------------- dal¹í èást ---------------
Sub DOC2TXT ()
Dim Soubor As String
Dim CestaR As String
Dim SB As String, SBNew As String

On Error GoTo Chyba

CestaR = "C:\Dokumenty\konverze\"

Soubor = Dir(CestaR + "*.doc")

Do While Soubor <> ""
    SB = CestaR & Soubor
    SBNew = Left(SB, Len(SB) - 3) & "TXT"
    
    
    Documents.Open FileName:=SB, ConfirmConversions:=False, _
        ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto
    ActiveDocument.SaveAs FileName:=SBNew, FileFormat:=wdFormatText, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
    ActiveWindow.Close
Dalsi:
    Soubor = Dir
Loop

Exit Sub

Chyba:
    MsgBox ("Nebyl preveden soubor  " & Soubor)
    If UCase(ActiveWindow.Caption & ".DOC") = UCase(Soubor) Then
        ActiveWindow.Close
    End If
    Resume Dalsi
End Sub