Solved

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

Posted on 2011-03-01
1
426 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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Text wrapping issue with Word 14 40
MS Word - What are these fields?  New to 2010? 2007? 4 72
Free Online PDF Converter 2 49
Issues when typing e-mails or Word documents. 10 52
A few years ago I was very much a beginner at VBA, and that very much remains the case today.  I'll do my best to explain things as I go in the hope that other beginners can follow.  If you just want to check out a tool that creates a Select Case fu…
This article describes how to use the Send to Mail Recipient command. The instructions apply generally to Office 2007 and later versions, but Microsoft® Word 2013 was used for the specific steps and figures.  What is Send to Mail Recipient? Send…
This video shows and describes the main difference between both orientations in Microsoft Word. Viewers will understand when to use each orientation and how to get the most out of them.
This video shows where to find templates, what they are used for, and how to create and save a custom template using Microsoft Word.

863 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

Need Help in Real-Time?

Connect with top rated Experts

26 Experts available now in Live!

Get 1:1 Help Now