Zdar a silu Kamil, dna 22.08.2001 si napisal(a): > >> 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 > > > hmmm pekne, pekne definovane, a tu je moje teraz vymyslene ------------------------------------------------- Sub hladac() Set fs = Application.FileSearch Adresar = InputBox("zadaj hlavny adresar") With fs .LookIn = Adresar 'vybere subory kt splnaju podmienku .FileName = "*.rtf" 'daj tam false ak nechces prehladavat aj podadresare .SearchSubFolders = True .Execute For i = 1 To .FoundFiles.Count z = .FoundFiles(i) 'vola si subrutinu na samotne vkladanie vkladac (z) Next i End With MsgBox "Práca ukončená." End Sub Sub vkladac(ByVal menoSub As String) Selection.TypeParagraph Selection.TypeText "vlozeny soubor: " & menoSub Selection.TypeParagraph 'ak je Link true tak vklada 'prepojenie na ten subor ak false vlozi ho natvrdo Selection.InsertFile FileName:=menoSub, _ Range:="", ConfirmConversions:= _ False, Link:=True, Attachment:=False Selection.TypeParagraph End Sub --------------------------------------------------------------------- -- s pozdravom AleXXX
This archive was generated by hypermail 2.1.2 : 04. 09. 2001, 09:50 CEST