Dekuji nastotisickrat a klobouk smekam :-). Slavek > Treba spustit nasledovne makro: > 'START CUT ========================== > > Sub SaveRecsAsFiles > ' Convert all sections to Subdocs > AllSectionsToSubDoc ActiveDocument > 'Save each Subdoc as a separate file > SaveAllSubDocs ActiveDocument > End Sub > > Sub AllSectionsToSubDoc(ByRef doc As Word.Document) > Dim secCounter As Long > Dim NrSecs As Long > > NrSecs = doc.Sections.Count > 'Start from the end because creating
This archive was generated by hypermail 2.1.2 : 10. 05. 2002, 16:00 CEST