>> Potrebuju naimportovat do Wordu (Of97) cca 2700 souboru RTF (kazdy max.
>> 1
>> stranka).
>> 1/ Jde to nejak automaticky (ne po jednom)
>> 2/ Co to udela s velikosti dokumentu (512MB RAM).
>>
>> Mikulas Hypr
>>
>>
> chces na to makro?
jedno sem davno zplodil, sice chcelo malou upravu ... a dela to teda
po jednom :( ale po kavicce by to mohlo byt hotovo uprav si kdyztak
cesty
---------------------------------
Option Explicit
Sub Prevod()
Dim jmeno As String
Dim new_jmeno As String
Dim cesta As String
Dim pocet As Integer
cesta = "c:\dokumenty\"
jmeno = Dir(cesta & "*.rtf")
Do While jmeno <> ""
new_jmeno = Left(jmeno, Len(jmeno) - 3) & "doc"
Documents.Open cesta & jmeno
ActiveDocument.SaveAs cesta & "\doc\" & new_jmeno, wdFormatDocument
'Pozor cesta & \doc\ musi existovat !!!
ActiveWindow.Close
jmeno = Dir
pocet = pocet + 1
Loop
MsgBox "celkem prevedeno " & pocet & " souboru"
End Sub
This archive was generated by hypermail 2.1.2 : 04. 09. 2001, 09:50 CEST