Solved

Macro to copy line 1 - 8 page 1 to line 1 page 2....

Posted on 2011-03-01
1
428 Views
Last Modified: 2012-05-11
I want to create a macro in Word 2007 that will go to page 1 line 1 and copy line 1 - 8
Then paste to line 1 of page 2.

I would like to create this in VB instead of using the recording so the content doesn't matter only the lines and the page.
0
Comment
Question by:TKCONSTRUCTORS
1 Comment
 
LVL 76

Accepted Solution

by:
GrahamSkan earned 50 total points
ID: 35009309
Is this what you need?
Sub CopyToPageTwo()
    Dim rng As Range
    
    With ActiveDocument
        Set rng = .Content
        rng.End = .Paragraphs(8).Range.End
        rng.Copy
        Set rng = .Range.GoTo(wdGoToPage, 2)
        rng.Paste
    End With
End Sub

Open in new window

0

Featured Post

DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Nice table. Huge mess. Maybe this was something you created way back before you figured out tabs or a document you received from someone else. Either way, using the spacebar to separate the columns resulted in a mess. Trying to convert text to t…
Using Word 2013, I was experiencing some incredible lag when typing.  Here's what worked for me....
In this video, we show how to convert an image-only PDF file into a PDF Searchable Image file, that is, a file with both the image (typically from scanning) and text, which is created in an automated fashion with Optical Character Recognition (OCR) …
Office 365 is currently available in five editions. Three of them are for business use: Office 365 Business Essentials, Office 365 Business, and Office 365 Business Premium. Two of them are for home/personal use: Office 365 Home and Office 365 Perso…

809 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question