RE: MS-Word hromadny import

From: Likavcan, Alexander (Alexander.Likavcan@volkswagen.sk)
Date: 22. 08. 2001, 15:59 CEST


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