www.Cursuri-Excel.ro     www.Cursuri-Access.ro     www.Cursuri-Powerpoint.ro     www.Cursuri-Outlook.ro     www.Cursuri-Word.ro     www.CursuriProject.ro    

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

document word nou creat din doua documente word

Mesajde 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

Mesajde 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 de Dr.Windows pe Mie Feb 08, 2017 3:05 pm, modificat 1 dată în total.
Motiv: Adaugare taguri CODE
alcuni
 
Mesaje: 2
Membru din: Joi Ian 19, 2017 11:14 am

Re: document word nou creat din doua documente word

Mesajde 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?
zvonacfirst
 
Mesaje: 82
Membru din: Mie Feb 19, 2014 10:41 pm

Re: document word nou creat din doua documente word

Mesajde 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
Nills
 
Mesaje: 211
Membru din: Sâm Ian 23, 2016 11:24 am


Înapoi la Intrebari despre Word 2016

Cine este conectat

Utilizatorii ce navighează pe acest forum: Niciun utilizator înregistrat şi 1 vizitator