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

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.