Telefonszámunk: 1-472-0679

Körlevél szétdarabolása külön fájlokba

Kezdőlap Fórumok Excel programozás Körlevél szétdarabolása külön fájlokba

Ennek a témakörnek tartalma 1 hozzászólás, 2 résztvevő. Utolsó frissítés:  Titok 2 hónapja, 2 hete telt el.

2 bejegyzés megtekintése - 1-2 / 2
  • Szerző
    Bejegyzés
  • #5702

    illegalfreq
    Felhasználó

    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

    #5703

    Titok
    Felhasználó
2 bejegyzés megtekintése - 1-2 / 2

Be kell jelentkezni a hozzászóláshoz.