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
Basket-of-Services-Shiur-on-Sally-s-Alle
shaunwinginAsked:
Who is Participating?
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.

Echo_SCommented:
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.
0

Experts Exchange Solution brought to you by

Your issues matter to us.

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

Start your 7-day free trial
GrahamSkanRetiredCommented:
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?
0
shaunwinginAuthor 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.
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

GrahamSkanRetiredCommented:
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?
0
shaunwinginAuthor 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,
0
GrahamSkanRetiredCommented:
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 docFlyer = Documents.Add
    
    '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
    strInputDoc = "I:\Allwork\ee\28699888\Basket-of-Services-Shiur-on-Sally-s.docx"
    Set docInput = Documents.Open(strInputDoc)
    
   'copy the Normal style from input document
    Application.OrganizerCopy Source:=strInputDoc, _
    Destination:=docFlyer.Name, _
    Name:="Normal", _
    Object:=wdOrganizerObjectStyles
    
    'group the header shapes
    Set sh = docInput.Sections(1).Headers(wdHeaderFooterPrimary).Range.ShapeRange.Group
   
    'copy the header
    docInput.Sections(1).Headers(wdHeaderFooterPrimary).Range.Copy
    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
    
    'omit leading empty paragraphs
    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

Open in new window

0
shaunwinginAuthor Commented:
Can you please possible insert this into the word document and attach - Word automation is not my strong point.
0
GrahamSkanRetiredCommented:
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. "
0
shaunwinginAuthor 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?
0
shaunwinginAuthor 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?
0
GrahamSkanRetiredCommented:
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?
0
GrahamSkanRetiredCommented:
Note that you will have to change line 36 to point to the actual input document.
0
shaunwinginAuthor Commented:
Could you pls just zip the file or give it an extension allowed - would assist greatly. tx
0
GrahamSkanRetiredCommented:
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.
0
GrahamSkanRetiredCommented:
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
0
shaunwinginAuthor 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
0
GrahamSkanRetiredCommented:
Oh dear, I'm not doing very well today. Had too many versions in the folder,
See how this goes
Flyer.dot
0
shaunwinginAuthor Commented:
Tx - when I opened and enabled Macros and editing - my Word 2013 crashed... Can you assist please?
0
GrahamSkanRetiredCommented:
I wrote it and it works in Word 2007.
When you say 'crashed', did it just hang, or was there an error message?
0
shaunwinginAuthor 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.....
0
Echo_SCommented:
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.
1
shaunwinginAuthor 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.
0
Scott Fell, EE MVEDeveloper & 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.
0
shaunwinginAuthor 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.
0
Scott Fell, EE MVEDeveloper & EE ModeratorCommented:
>I've been using the simple method you outline.

Does that mean you have powerpoint working as you asked?
0
Echo_SCommented:
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.
0
shaunwinginAuthor 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?
0
GrahamSkanRetiredCommented:
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.
0
shaunwinginAuthor 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?
0
GrahamSkanRetiredCommented:
If you have the job of specifying the original input document, then that would make it a lot easier. I'll try some simplification.
0
shaunwinginAuthor 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
0
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.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.