Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

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

Posted on 2011-03-01
1
Medium Priority
?
438 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 200 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

[Webinar] Cloud and Mobile-First Strategy

Maybe you’ve fully adopted the cloud since the beginning. Or maybe you started with on-prem resources but are pursuing a “cloud and mobile first” strategy. Getting to that end state has its challenges. Discover how to build out a 100% cloud and mobile IT strategy in this webinar.

Question has a verified solution.

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

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 article describes a method of delivering Word templates for use in merging Access data to Word documents, that requires no computer knowledge on the part of the recipient -- the templates are saved in table fields, and are extracted and install…
Learn how to create and modify your own paragraph styles in Microsoft Word. This can be helpful when wanting to make consistently referenced styles throughout a document or template.
This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …

885 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