Új hozzászólás Aktív témák

• gaben1117 senior tag

  #18986

  #18978 lappy

  2013-09-16 21:59:37

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  gaben1117

  senior tag

  #18978 lappy

  Valaki rá tudna kukkantani, hogy mi lehet a baj? Valmiért nem fut le a makró, asszem syntax errort ír. A módszer amit próbálok abban a hszben van, amire most válaszoltam.

  Ezt írja a visual basic:

  "Sub AllSectionsToSubDoc()

  Dim x As Long
  Dim § As Long
  Dim doc dokumentum

  Application.ScreenUpdating = False
  Application.DisplayAlerts = False

  Állítsa doc = ActiveDocument
  § = doc.Sections.Count
  Az x = szakasza - 1 az 1-Step -1
  doc.Sections(x).Range.Copy
  Documents.Add
  ActiveDocument.Range.Paste
  ActiveDocument.SaveAs (doc.Path & "\" & x & ". Doc")
  ActiveDocument.Close Hamis
  Következő x

  Application.ScreenUpdating = True
  Application.DisplayAlerts = True

  End Sub
  "

  A cél az lenne, hogy amikor létrejön a körlevél, akkor rekordonként külön fájlba lehessen darabolni vagy eleve úgy mentse. (4 oldalanként kéne szabdalni) Bármilyen megoldás jó lenne.

Új hozzászólás Aktív témák