Select a area in a Word Document

Peter Stahl · #1 08-08-2013, 07:59 AM

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

gmaxey · #2 08-08-2013, 06:43 PM

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

Peter Stahl · #3 08-09-2013, 03:18 AM

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