Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Word topic
Keresés

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

  • #2719 bela85 aktív tag bela85 #2718
    Új Válasz #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. :D

  • #2718 bela85 aktív tag
    Új Válasz #2718
    Ú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

    Sziasztok!
    Segítséget szeretnék kérni Word körlevéllel kapcsolatban.
    Sima 1 oldal maga a körlevél, amit az excelből tölt fel adatokkal. Nyomtatni szeretném a teljes dokumentumot, de úgy, hogy adott rekordot több példányba nyomtasson ki és ne kelljen egyesével nyomtatni.

    Vagyis. pl: van egy 5 rekordból állo excel adatbázis. nyilván az 5 rekord körlevél, ha rányomok a nyomtatásra, hogy az összes rekord nyomtatása, és ott beállítom a példányszámot akkor mindet kidobja de nem fűzi össze, hogy az 1. rekordból legyen 10 példány, a 2. rekordból 10 példány és így tovább.. hiába állítom már az összefűzés funkciót a nyomtató beállításoknál. (ha beállítom, ha nem akkor is ugyanúgy lenyomtatja az 5 rekordot egymás után, majd ismét az 5 rekordot egymás után (10x).

    Tudtok esetleg rá vmi megoldást?
    Akár makró is szóba jöhet, ha csak úgy oldható meg.

    Bocsi, ha esetleg nem voltam érhető! :)

  • #2597 bela85 aktív tag
    Új Válasz #2597
    Ú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

    Makrórögzítővel próbáltam más megoldást.. hogy összefűzés előtt rekordonként lehetne menteni...de itt elakadtam, hogy jó lenne bele egy ciklus (for vagy while), hogy én tudnám beállítani, hogy mi legyen az utolsó rekord.

    Ebben is örömmel fogadnám a segítséget, ha valaki tud benne. :)

    Sub Teszt()
        
        With ActiveDocument.MailMerge
            .Destination = wdSendToNewDocument
            .SuppressBlankLines = True
            With .DataSource
                .FirstRecord = 1
                .LastRecord = 1
            End With
            .Execute Pause:=False
        End With
      ChangeFileOpenDirectory "D:\korlevel\Proba\"
        ActiveDocument.SaveAs FileName:="1.docx", FileFormat:=wdFormatXMLDocument, _
             LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
            :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
            SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
            False
        ActiveWindow.Close
        With ActiveDocument.MailMerge
            .Destination = wdSendToNewDocument
            .SuppressBlankLines = True
            With .DataSource
                .FirstRecord = 2
                .LastRecord = 2
            End With
            .Execute Pause:=False
        End With
        ActiveDocument.SaveAs FileName:="2.docx", FileFormat:=wdFormatXMLDocument, _
             LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
            :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
            SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
            False
        ActiveWindow.Close
    End Sub

  • #2596 bela85 aktív tag bela85 #2595
    Új Válasz #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

  • #2595 bela85 aktív tag
    Új Válasz #2595
    Ú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

    Sziasztok!

    Ezzel a makróval van problémám..
    A helyzet az, hogy van olyan gép ahol szépen lefut és 3 oldalanként tördeli is a levelet, de van olyan gép, ahol ugyanez a makró letörli a 3. oldalnak kb a felét.. és nagyobb térközöket állít be. (emiatt is dobja el talán a formátumot)

    A kérdésem, tudnátok esetleg ebben segíteni, vagy ez egyedi Microsoft Word alvezió probléma? (Word 2007)

    Köszönöm előre is a segítséget!

    Sub BreakOnSection()
    'Used to set criteria for moving through the document by section.

    Application.Browser.Target = wdBrowseSection

    'A mail merge document ends with a section break next page.

    'Subtracting one from the section count stop error message.

    For i = 1 To ((ActiveDocument.Sections.Count) - 1)

    'Note: If a document does not end with a section break,

    'substitute the following line of code for the one above:

    'For I = 1 To ActiveDocument.Sections.Count

    ActiveDocument.Bookmarks("\Section").Range.Copy

    'Create a new document to paste text from clipboard.

    Documents.Add

    Selection.Paste

    'Removes the break that is copied at the end of the section, if any.

    Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend

    Selection.Delete Unit:=wdCharacter, Count:=1

    ChangeFileOpenDirectory "D:\20200507\"

    DocNum = DocNum + 1

    ActiveDocument.SaveAs FileName:="AA-" & DocNum & ".doc"

    ActiveDocument.Close

    'Move the selection to the next section in the document.

    Application.Browser.Next

    Next i

    ActiveDocument.Close savechanges:=wdDoNotSaveChanges

    End Sub

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

Hirdetés