document word nou creat din doua documente word
document word nou creat din doua documente word
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
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
Re: document word nou creat din doua documente word
Pun aici un macro pentru cei care poate au nevoie de el
Macro primit de la MS Comunity
cu multumiri
alcuni
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
***
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
Motiv: Adaugare taguri CODE
-
- Mesaje: 105
- Membru din: Mie Feb 19, 2014 10:41 pm
Re: document word nou creat din doua documente word
Verific daca am inteles.
Am in Documents doua documente: a.docx si b.docx
Modific cele doua linii de cod astfel:
Cu aceste modificari la mine nu functioneaza. Ce gresesc ceva?
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")
Re: document word nou creat din doua documente word
Cod: Selectaţi tot
Set sourcea = Documents.Open(FileName:="a.docx")
Set sourceb = Documents.Open(FileName:="b.docx")
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