Salvarea fiecarei pagini din document in fisire separate

Ce este nou in Microsoft Word 2013?
Informatii despre cum se utilizeaza Microsoft Word 2013.
Editare, formatare, automatizare de documente
Închis
NickPrest
Mesaje: 16
Membru din: Vin Apr 19, 2013 11:23 am

Salvarea fiecarei pagini din document in fisire separate

Mesaj de NickPrest » Joi Noi 12, 2015 5:21 pm

Buna ziua,
Va rog sa ma ajutati in rezolvarea urmatoarei situatii:
Cu ajutorul imbinarii corespondentei am fiecare pagina destinata unei locatii distincte si doresc ca documentul rezultat sa-l transform in fisiere separate pentru fiecare pagina. Exista posibilitatea de a realiza acest lucru intr-un mod mai rapid, fiind vorba de un numar mare de pagini?
Multumesc anticipat!

Dr.Windows
Moderator
Moderator
Mesaje: 4570
Membru din: Vin Iul 31, 2009 7:32 am

Re: Salvarea fiecarei pagini din document in fisire separate

Mesaj de Dr.Windows » Vin Noi 20, 2015 2:04 pm

Din pacate nu exista o solutie "nativa" in Word... si trebuie sa apelezi la partea de programare.
Dar nu trebuie sa reinventezi roata, pentru ca exista deja exemple care le poti folosi direct, de ex: http://word.tips.net/T001538_Merging_to ... Files.html:

Cod: Selectaţi tot

Sub BreakOnSection()
    'Used to set criteria for moving through the document by section.
    Application.Browser.Target = wdBrowseSection

    'A mailmerge 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)

        'Select and copy the section text to the clipboard
        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 "C:\"
        DocNum = DocNum + 1
        ActiveDocument.SaveAs FileName:="test_" & 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

NickPrest
Mesaje: 16
Membru din: Vin Apr 19, 2013 11:23 am

Re: Salvarea fiecarei pagini din document in fisire separate

Mesaj de NickPrest » Lun Noi 23, 2015 12:14 pm

Mulţumesc pentru răspuns şi pentru codul VBA, care sigur mă vor ajuta pe viitor.
La momentul respectiv, fiind presat de timp, au rezolvat problema prin salvarea documentului ca PDF unde am găsit nativ „splitting&extracting pages from a PDF“.

Închis

Înapoi la “Intrebari despre Word 2013”