Salvarea fiecarei pagini din document in fisire separate
Salvarea fiecarei pagini din document in fisire separate
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!
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!
-
- Moderator
- Mesaje: 4570
- Membru din: Vin Iul 31, 2009 7:32 am
Re: Salvarea fiecarei pagini din document in fisire separate
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:
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
Re: Salvarea fiecarei pagini din document in fisire separate
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“.
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“.