2way A5 double side flyer in Power point

Say, The attached word documents are needed setup in power point as follows: Each document to be exactly half height of an A4 Page and when printed to be duplicated in the lower section such that we have a 2way A5 flyer that can be cut in half. The documents to be printed back to back prior to cutting to get a double sided A5 flyer.

Ideally the "canvas" top A5 section of front and back should be easily editable for future changes. The flyer then to be duplicated in the bottom of the A4 Page.

This seems quite involved for an unskilled Word or Powerpoint user.
Tx
Flyer.docx
Who is Participating?

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Commented:
Well, yeah. That's because PowerPoint isn't designed to do this kind of thing. You'd have an easier time doing it in Publisher.

At any rate, what is your question?

Assuming it's about how to set this up in PPT, you'd set up the page as A5 (Design tab, Page Setup or in 2013, Design tab | Slide Size | Custom Size), then put the info at the top of the page. Then select everything and duplicate it and place the copy at the bottom of the page. (I'd probably group everything before duplicating to make things stay together and, therefore, easier to place.) Add another slide and put the info from the back page on it and repeat the duplication.

https://templates.office.com/en-us/Cards has some PPT templates for folded cards. You can see that some are duplicated like I described above.

Experts Exchange Solution brought to you by

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

RetiredCommented:
The name of your second file has been truncated. It turns out to be another word document with very similar to the first. Apart from some differences in the text, there are some differences in the layout.

The first has a two cell table with text in the top cell, while the second cell is empty. The header is empty.

The second document, "Basket-of-Services-Shiur-on-Sally-s-Alle", has some of the text and a logo in a text box in the header. There is also some text in a second text box which is anchored in the header but which appears in the body part of the document.

It isn't clear how these relate to each other and exactly what you want to do. It seems that you need an A4 document notionally divided into two A5 documents. Are the two parts to be identical or do you need one to be a copy of the first document  and the other to be extracted from the second?

Also how is PowerPoint involved?
Author Commented:
Hi Graham,

Tx for the analysis. The Table and power point relates to a possible solution here
http://www.experts-exchange.com/questions/28697695/Making-a-2way-A5-flyer.html

It can be ignored.
The top bottom of each document to be identical to the top. After printing will have 2 A5 Flyers. The on e side is the monthly update and the other - a general summary.
RetiredCommented:
If you are happy with the answer to the earlier question, there doesn't seem to be any need to involve another application.

If not, what else needs to be done? Do you want to automate the process? In that case, which document would be the starting point?
Author Commented:
Pls automate the process - but please be aware that the content changes each month - hence the need for a visible work area to assist with layout. You may start with the Update flyer,
RetiredCommented:
I had already done some work starting with the original input, so I have appended the rest of the code to it;

Sub Flyer()
Dim docFlyer As Document
Dim docInput As Document
Dim tbl As Table
Dim sh As Shape
Dim shr As ShapeRange
Dim rng As Range
Dim strInputDoc As String
Dim sty As Style
Dim para As Paragraph
Dim p As Integer

'create new document

'set up document
With docFlyer
With .PageSetup
.PageHeight = 841.9
.PageWidth = 595.3
.TopMargin = CentimetersToPoints(0.5)
.BottomMargin = CentimetersToPoints(0.5)
.LeftMargin = CentimetersToPoints(0.5)
.RightMargin = CentimetersToPoints(0.5)

Set tbl = docFlyer.Tables.Add(docFlyer.Range, 2, 1)
tbl.PreferredWidthType = wdPreferredWidthAuto
tbl.Rows.HeightRule = wdRowHeightExactly
tbl.Rows.Height = (.PageHeight - .TopMargin - .BottomMargin) / 2
tbl.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter
tbl.Rows(1).Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
End With
End With

'open source document
Set docInput = Documents.Open(strInputDoc)

'copy the Normal style from input document
Application.OrganizerCopy Source:=strInputDoc, _
Destination:=docFlyer.Name, _
Name:="Normal", _
Object:=wdOrganizerObjectStyles

tbl.Cell(1, 1).Range.Paste

'position the shape group
Set shr = tbl.Cell(1, 1).Range.ShapeRange
shr.Left = sh.Left
shr.Top = 0

'allow for gap beteween logos and text
tbl.Cell(1, 1).Range.Paragraphs.Last.Previous.SpaceAfter = shr.Height

Set rng = docInput.Range
For Each para In docInput.Range.Paragraphs
If Trim(para.Range) = vbCr Then
rng.Start = para.Range.End
Else
Exit For
End If
Next para

'omit trailing empty paragraphs
p = docInput.Range.Paragraphs.Count
For p = docInput.Range.Paragraphs.Count To 1 Step -1
Set para = docInput.Range.Paragraphs(p)
If Trim(para.Range) = vbCr Then
rng.End = para.Range.Start
Else
Exit For
End If
Next p
rng.Copy

'close the source document
docInput.Close wdDoNotSaveChanges

'copy the text
Set rng = tbl.Cell(1, 1).Range
rng.Collapse wdCollapseEnd
rng.Move wdCharacter, -1
rng.Paste

'copy from first cell to second
tbl.Cell(1, 1).Range.Copy
tbl.Cell(2, 1).Range.Paste

End Sub

Author Commented:
Can you please possible insert this into the word document and attach - Word automation is not my strong point.
RetiredCommented:
It would be better to put the code into the Normal template. Here is an extract from an article that I wrote some time ago:

"To enter the macros into your Word template, switch to the VBA editor using Alt+F11.  The default top-left pane is the Project Explorer window. If you can’t see it, try using Ctrl+R to open it.

One of the projects will be the Normal project which holds the code for the Normal template. Use this project unless you have a reason to use another. All macros in the Normal template will be available to all documents. The code must go into a module, so if there are none in the project, add one via the Insert menu.

The code editor pane is the large one at the top-right. Paste or type your code in here.

While you have the VBA IDE open, you can easily run any macro that does not have any input parameters (aka arguments); macros which do have parameters have to be called from another macro. Simply place the text cursor somewhere in the macro code and press F5. "
Author Commented:
Tx. I am battling to display the two tables you made- how can I view them?
It would assist me greatly to receive a completed document with both of my attachments inserted and your code added to experiment with and see how it works if I need to make changes to it.
If this was done in Powerpoint would one need all the automation you've so kindly created?
Author Commented:
Tx. I am battling to display the two tables you made- how can I view them?
It would assist me greatly to receive a completed document with both of my attachments inserted and your code added to experiment with and see how it works if I need to make changes to it.
If this was done in Powerpoint would one need all the automation you've so kindly created?
RetiredCommented:
The problem is that EE does not allow Word documents or templates with the extensions that support macros (.docm and .dotm) to be attached.
Do you have any particular difficulty in putting the code in the Normal template and/or running it?
RetiredCommented:
Note that you will have to change line 36 to point to the actual input document.
Author Commented:
Could you pls just zip the file or give it an extension allowed - would assist greatly. tx
RetiredCommented:
I've copied and pasted the code into the document and saved it as a 97-2003 template.
Not sure what difficulty you were having doing that.
RetiredCommented:
I seem to have failed to work the new upload process. I'll try again.

... It's a multi-stage process. Attach File, Browse, Upload File, add description.
I must have missed one out last time.
Flyer.dot
Author Commented:
Tx I opened it - I can't find any macro I'm afraid - even with Alt-F11 and pressing F5 - no macros are listed under any of the sections.
Must I do something with the file first.
I also only saw flyer.doc on the 1st page. 2nd page was blank
tx
Shaun
RetiredCommented:
Oh dear, I'm not doing very well today. Had too many versions in the folder,
See how this goes
Flyer.dot
Author Commented:
Tx - when I opened and enabled Macros and editing - my Word 2013 crashed... Can you assist please?
RetiredCommented:
I wrote it and it works in Word 2007.
When you say 'crashed', did it just hang, or was there an error message?
Author Commented:
There was no error msg - Word 2013 just closed due to a crash. I've seen this before with code that has macros in my Word.... its such a pain

Was really hoping for a simple solution without needing macros. Can one not achieve this in Powerpoint? Its really two documents both A5 in size placed back to back that need to print so that they duplicated top and bottom on an A4 page.....
Commented:
I replied way at the beginning of the thread and explained the basics of how you'd set up the page to print in PowerPoint. But it seems from the further exchange that your question is really, "Will you just do this for me?" and I'm not inclined to do that.

Here's my response from before. Please note that in the first line I should have said to set up the page as A4, not A5.

Assuming it's about how to set this up in PPT, you'd set up the page as A5 (Design tab, Page Setup or in 2013, Design tab | Slide Size | Custom Size), then put the info at the top of the page. Then select everything and duplicate it and place the copy at the bottom of the page. (I'd probably group everything before duplicating to make things stay together and, therefore, easier to place.) Add another slide and put the info from the back page on it and repeat the duplication.

https://templates.office.com/en-us/Cards has some PPT templates for folded cards. You can see that some are duplicated like I described above.
Author Commented:
Oops I missed that post - tx 4 repeating but I see Publisher even simpler - please can you give directions for Publisher. I'm not skilled in any of these packages and hence the need for these details.
Developer & EE ModeratorCommented:
No points for this comment:

You do seem to be jumping around here.  Word, Powerpoint and now publisher.  With or without macros?  It is a bit confusing and you will get better help if you can stick to one thing.

To sum up, it seems like you simply need to print a document double sided.

In Word, Powerpoint and Publisher are about the same to the Document Set up.  Should be File -> Page Set up. From there set your page size but very important, make sure the page size matches what your printer can print.

Since you want double sided, make your document 2 pages.

The rest is up to the printer.  If your printer is capable of double sided, then when you print, make sure to select double sided in your printing options.  You should see that in your printing options dialogue.  If your printer is not double sided, then print all of side one, then flip your paper over and print side 2. It may take you a couple of tries to get the 2nd side right, so start off printing only one at a time to make sure you have the paper the right way. If that is too complex, print out both on separate sheets and bring to your local copy shop or save the document on a thumb drive and have them do it for you.

Word or Powerpoint are going to be easier to use. To keep things simple, stick with one of those and you have plenty of help here on both those products.   If you are not using macros for this, then I suggest leaving that part out of the question.

>But it seems from the further exchange that your question is really, "Will you just do this for me?" and I'm not inclined to do that
I agree, we are here to help you, not do all the work.
Author Commented:
Scott Fell Tx but I've been using the simple method you outline.

I'm looking for a simple way in Publisher as the other programs are apparently more involved.
Developer & EE ModeratorCommented:
>I've been using the simple method you outline.

Does that mean you have powerpoint working as you asked?
Commented:
I think the problem for you will be getting your content into Publisher in the first place. I only mentioned Publisher because you asked about getting your Word document into PowerPoint to print. I just meant that, if you're going to move your content in the first place (from Word to PowerPoint), you'd be better off moving it to Publisher because it has booklet folds, etc., and is designed for printing this kind of thing. PowerPoint is fiddly when it comes to margins while printing and would have trouble with your flyer as it's currently positioned (because it's way too close to the left and top margin, for example).

But I'm glad Scott popped in. I completely agree with him. Really you need to set up the content in Word so that the page can be cut as you expect and rely on the printer driver for anything else. However, Word can be a pain to set up this way and it's going to take some work. You're going to have to resign yourself to that, sorry.

One way you can do this in Word is to duplicate the content on "Flyer.docx" to the blank space below. Then print that page. Open the document with the back page info and duplicate it similarly. Then print that second page on the back of the printed front pages. Then cut.

If you are up to it, you can combine the first page and the second page into one document. You'll need First page content and the duplicate first page content on the first page (as described just above), then you need the second page content and the duplicate second page content on the second page. Then File, Print and choose to print on both sides. Be sure to test-print one first to ensure it's flipping on the correct edge of the page. (This is why printing separately might be safer in your case.)

One easy way to duplicate the content in Word would be to take a screenshot and then paste the picture below the original content. It will not be editable in that case, though.

I think this duplication and page setup is what GrahamSkan was automating for you. (He went way above and beyond any reasonable expectation to do that for you, in my opinion, so props to him for that. Sorry you weren't able to use it.)

Personally, I think you should take Scott's advice and take this project to a local print or copy shop. You might even ask them to set the file up for you so you can make changes to it in future. Alternatively, hire someone to set up the initial document for you and then use that in future or have them make the changes. Time is money, and it's probably cost you more trying to figure it out than it would to have it laid out by a professional in the first place.
Author Commented:
Scott Fell: I've just been doing it in word - not tried powerpont and after Echo_S 's comment that Powerpoint not easy with margins not too keen on it. I do appreciate GrahamSkan's coding - unfortunately crashed on my word 2013. He's so far been only automated solution. Need to do this monthly and prefer to do it all inhouse....

"One easy way to duplicate the content in Word would be to take a screenshot and then paste the picture below the original content. It will not be editable in that case, though."

How can a take a screenshot but not affect the print resolution?
RetiredCommented:
I may have missed the point.
The input document ('Basket-of-Services...') is A4 portrait with content only in the top half of the page body. There is also content in the header. In total it would all fit into an A5 page in landscape orientation. I understand that the requirement is to print all of this document, and others with the same original format, as the top and bottom half on both sides of A4 paper, so there are four copies on each sheet.

It would, in Word, and perhaps the other  applications, be possible to manually copy and paste the header and the body into a new document, and to adjust it so that it all fits nicely. It could than be copied into the bottom half of the page and thence on to a second page, so that a duplex printer could produce multiple copies.

The macro that I wrote is intended to automate all that, so that (bugs permitting) , the process could be used on regular basis.

It sounds as if you have a problem with your Word installation. I suggest that you create a new user profile and and try again under that.
Author Commented:
Tx Graham - your feedback is great and sure can get to work... :)
Would it not make more sense to scrap the Header - this was just created by default. Put all the contents of the header just at the top of the page and just do a simpler document with your bookmarks etc as this does seem simplest way so far. I'm also not too worried about the content - its the principle I'm after. The content was mainly by way of illustration. You summarised it correctly:

" In total it would all fit into an A5 page in landscape orientation. I understand that the requirement is to print all of this document, and others with the same original format, as the top and bottom half on both sides of A4 paper, so there are four copies on each sheet."

Perhaps you can simplify your code with this all in mind - should be much easier for me to work with and understand?
RetiredCommented:
If you have the job of specifying the original input document, then that would make it a lot easier. I'll try some simplification.
Author Commented:
Hi Graham, I've in the meantime implemented the attached. Based on the answer of http://www.experts-exchange.com/questions/28697695/Making-a-2way-A5-flyer.html#a40893353

I simply edit the top row and then select the entire row and copy and paste in the 2nd row.

I've a problem in reducing the spacing between the 2nd textbox from the very top (with email, tel etc.) and the phrase "Dear Volunteer". How can I control this space to be narrower - each small amount is critical.
Senior-Citizens-Flyer-2way-2015-Sep.docx
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft PowerPoint

From novice to tech pro — start learning today.