#1
|
|||
|
|||
Select a area in a Word Document
I want a Word Macro that can find a word in a document then select everything from the end of that line that word was found in to the top of the document. Then do a copy and paste special to text. Here's what I have so far but once it moves to the top nothing is selected. Any suggestion?
signed confused. Sub test3() With ActiveDocument.Content.Find .Text = "Safety Stock" .Forward = True .Execute If .Found = True Then .Parent.Select Selection.Expand wdLine myRange = Selection End If End With ThisDocument.Bookmarks("\StartOfDoc").Select End Sub |
#2
|
|||
|
|||
This should get you on track
Code:
Sub ScratchMacro() 'A basic Word macro coded by Greg Maxey Dim oRng As Word.Range Set oRng = ActiveDocument.Range With oRng.Find .ClearFormatting .Text = "Safety Stock" If .Execute Then oRng.Select Selection.Expand wdLine Selection.Start = ActiveDocument.Range.Start End If End With End Sub |
#3
|
|||
|
|||
Gregg,
thanks, that's exactly what I needed. I can stumble around with Excel Macro but the Word Macros are different. |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
How to edit cell data without changing print area. FIXED print area | VictoriaT8 | Excel | 3 | 02-22-2013 07:54 PM |
Recovering a word file (Select the encoding that makes your document readable) | Canni | Word | 2 | 08-29-2012 02:46 PM |
Select all textboxes in Word document | msword270 | Word | 1 | 01-12-2012 11:41 AM |
Unable to select anything in an MS Word Document | PaulT | Word | 0 | 08-08-2011 07:45 PM |
Select printer to document | JosL | Office | 3 | 03-07-2009 12:40 PM |