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

• #2719 bela85 aktív tag bela85 #2718

  Új Válasz 2021-11-11 12:45:45 #2719

  Ú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

  Privát üzenet küldése

  

  bela85

  aktív tag

  válasz bela85 #2718 üzenetére

  Megoldódott.. a fránya nyomtató szórakozott.. hiába volt beállítva kívül a nyomtatási panelen hogy ne fűzze össze.. belül a nyomtató mélybeállításánál nem vette ki a pipát.

• #2596 bela85 aktív tag bela85 #2595

  Új Válasz 2020-06-29 14:03:25 #2596

  Ú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

  Privát üzenet küldése

  

  bela85

  aktív tag

  válasz bela85 #2595 üzenetére

  Kísérletezem közbe másik makróval is.. de sajnos ennél is olyan problémába ütközöm, hogy szétszedi a formázást, és indokolatlanul nagy térközöket, sortávolságokat tesz be ami alapján az alap doksi ami 3 oldalas elcsúszik 4 oldalasra.

  Sub DocumentSplitter()
' Split a large document into multi-page blocks
Dim iSplit As Long, iCount As Long, iLast As Long
Dim RngSplit As Range, StrDocName As String, StrDocExt As String
With ActiveDocument
  iSplit = InputBox("The document contains " & .ComputeStatistics(wdStatisticPages) & " pages." _
    & vbCr & "What is the page block count for splitting?", "Document Splitter")
  StrDocName = .FullName
  StrDocExt = "." & Split(StrDocName, ".")(UBound(Split(StrDocName, ".")))
  StrDocName = Left(StrDocName, Len(StrDocName) - Len(StrDocExt)) & "_"
  For iCount = 0 To Int(.ComputeStatistics(wdStatisticPages) / iSplit)
    If .ComputeStatistics(wdStatisticPages) > iSplit Then
      iLast = iSplit
    Else
      iLast = .ComputeStatistics(wdStatisticPages)
    End If
    Set RngSplit = .GoTo(What:=wdGoToPage, Name:=iLast)
    Set RngSplit = RngSplit.GoTo(What:=wdGoToBookmark, Name:="\page")
    RngSplit.Start = .Range.Start
    RngSplit.Cut
    Documents.Add
    Selection.Paste
    ActiveDocument.SaveAs FileName:=StrDocName & iCount + 1 & StrDocExt, AddToRecentFiles:=False
    ActiveWindow.Close
  Next iCount
  Set RngSplit = Nothing
  '.Close Savechanges:=False
End With
End Sub

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