Sziasztok, az alábbi kész körlevelet (ami ugye egyben mutatja az összes oldalt) szeretném külön word fájlokba elmenteni. Oldalanként. Ezt hoztam össze innen-onnan, ez megcsinálja amit szeretnék, csak éppen nem 1 oldal lesz az új file, hanem 2 oldal, a második egy üres. Ha kitörlöm, szétcsúszik tőle a lábléc. Hogyan tudnám úgy megcsinálni, hogy valóban 1 oldalt mentsen ki külön?
Köszönöm szépen a segítségeteket, ha tudnátok valamit kiokoskodni? 🙂
Sub Fire_Document_Splitter()
Dim Pages
Dim MyRange As Range
Dim OriginalDoc As Document
Dim SpilittedDoc As Document
Set OriginalDoc = ActiveDocument
Set MyRange = OriginalDoc.Range
‘Application.ScreenUpdating = False
Pages = OriginalDoc.Content.ComputeStatistics(wdStatisticPages)
Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst
For i = 1 To Pages
If i = Pages Then
MyRange.End = ActiveDocument.Range.End
Else
Selection.GoTo wdGoToPage, wdGoToAbsolute, i + 1
MyRange.End = Selection.Start
End If
MyRange.Copy
Set SpilittedDoc = Documents.Add
SpilittedDoc.Range.Paste
SpilittedDoc.Range.Find.Execute Findtext:=”^m”, ReplaceWith:=””
SpilittedDoc.SaveAs FileName:=i & „.doc”
SpilittedDoc.Close
MyRange.Collapse wdCollapseEnd
Next i
Application.ScreenUpdating = True
Set OriginalDoc = Nothing
Set SpilittedDoc = Nothing
Set MyRange = Nothing
End Sub
.
