>> 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