document word nou creat din doua documente word

Ce este nou in Microsoft Word 2016?
Informatii despre cum se utilizeaza Microsoft Word 2016.
Editare, formatare, automatizare de documente
Închis
alcuni
Mesaje: 2
Membru din: Joi Ian 19, 2017 11:14 am

document word nou creat din doua documente word

Mesaj de alcuni » Joi Ian 19, 2017 11:27 am

Buna ziua,

Am rugamintea de a ma ajuta si pe mine cu urmatoarea problema:
- cu "mailings" am creat doua documente diferite, fiecare avand cate 86 de pagini ; fiecaer fisier word are un xls diferit, atasat, din care am preluat datele in word
- am creat:
fisierul page1.doc in care apar paginile impare din fisierul final
fisierul page2.doc in care apar paginile pare din fisierul final

intrebarea mea este cum fac sa combin cele doua fisiere astfel incat sa am un fisier final cu 172 pagini de la 1, 2,3,4, etc?
mersi pentru ajutor
alcuni

alcuni
Mesaje: 2
Membru din: Joi Ian 19, 2017 11:14 am

Re: document word nou creat din doua documente word

Mesaj de alcuni » Mie Ian 25, 2017 1:33 pm

Pun aici un macro pentru cei care poate au nevoie de el
Macro primit de la MS Comunity

Cod: Selectaţi tot

************
Dim sourcea As Document, sourceb As Document, target As Document, Pages As Integer, Counter As Integer, targetrange As Range 'targetrange added
    Dim evenpage As Range
    Set sourcea = Documents.Open(FileName:="...")
    sourcea.Repaginate
    Pages = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
    MsgBox Pages
    Set sourceb = Documents.Open(FileName:="...")
    Set target = Documents.Add
    target.PageSetup.LeftMargin = sourcea.PageSetup.LeftMargin
    target.PageSetup.RightMargin = sourcea.PageSetup.RightMargin
    target.PageSetup.TopMargin = sourcea.PageSetup.TopMargin
    target.PageSetup.BottomMargin = sourcea.PageSetup.BottomMargin
    target.AcceptAllRevisions
    Counter = 0
    While Counter < Pages
        sourcea.Activate
        ActiveDocument.Bookmarks("\page").Range.Copy
        Set targetrange = target.Range
        targetrange.Start = targetrange.End
        targetrange.Paste
        ActiveDocument.Bookmarks("\page").Range.Cut
        sourceb.Activate 'Assumed to be the document containing the even pages
        Selection.EndKey Unit:=wdStory 'Line of code added to start from the end of the document
        ActiveDocument.Bookmarks("\page").Range.Copy
        Set targetrange = target.Range
        targetrange.Start = targetrange.End
        targetrange.Paste
        targetrange.Start = targetrange.End
        targetrange.InsertBreak Type:=wdPageBreak
        Set evenpage = ActiveDocument.Bookmarks("\page").Range
        evenpage.Start = evenpage.Start - 1
        evenpage.Delete
        Counter = Counter + 1
    Wend

    sourcea.Close wdDoNotSaveChanges
    sourceb.Close wdDoNotSaveChanges
***
cu multumiri
alcuni
Ultima oară modificat Mie Feb 08, 2017 3:05 pm de către Dr.Windows, modificat 1 dată în total.
Motiv: Adaugare taguri CODE

zvonacfirst
Mesaje: 105
Membru din: Mie Feb 19, 2014 10:41 pm

Re: document word nou creat din doua documente word

Mesaj de zvonacfirst » Mar Apr 18, 2017 11:35 am

Verific daca am inteles.
Am in Documents doua documente: a.docx si b.docx
Modific cele doua linii de cod astfel:

Cod: Selectaţi tot

Set sourcea = Documents.Open(FileName:="a.docx")
Set sourceb = Documents.Open(FileName:="b.docx")
Cu aceste modificari la mine nu functioneaza. Ce gresesc ceva?

Nills
Mesaje: 211
Membru din: Sâm Ian 23, 2016 11:24 am

Re: document word nou creat din doua documente word

Mesaj de Nills » Sâm Apr 22, 2017 1:06 pm

Cod: Selectaţi tot

Set sourcea = Documents.Open(FileName:="a.docx")
Set sourceb = Documents.Open(FileName:="b.docx")
la FileName trebuie scrisa TOATA calea pana la fisierul in cauza adica ceva de genul:

Cod: Selectaţi tot

Set sourcea = Documents.Open(FileName:="D:\Folder1\Subfolder1\a.docx")
I don't care what you think of me! Unless you think I'm awesome – in which case, you're right! Carry on :D

Închis

Înapoi la “Intrebari despre Word 2016”