Using Word commands through an Excel macro

[Pass0]

Hey all,
I am working on a project that requires a macro to run in Excel, open a Word document, and copy a specific selection [which is being found through a crude
search] of that document to another document. The problem I am having is in the copying part. I am trying to use commands that work when run as a Word macro (eg, Selection.Information (wdFirstCharacterLineNumber) and ActiveDocument.Range(0, Selection.Paragraphs(1).Range.End).Paragraphs.Count ), yet each one gives an error when run through Excel. Anyone have any idea how to get this to work? Here is the code:

Sub testsearch4()

Dim intX As Integer, intY As Integer, intZ As Range


Selection.Find.ClearFormatting

With Selection.Find

.Text = "[EA]"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute


X = ActiveDocument.Range(0, Selection.Paragraphs(1).Range.End).Paragraphs.Count


Selection.Find.ClearFormatting

With Selection.Find

.Text = "[/EA]"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute


Y = ActiveDocument.Range(0, Selection.Paragraphs(1).Range.End).Paragraphs.Count


Set myRange = ActiveDocument.Range( _

Start:=ActiveDocument.Paragraphs(X + 1).Range.Start, _

End:=ActiveDocument.Paragraphs(Y - 1).Range.End)

myRange.Select


Selection.Copy


ActiveWindow.Close

Windows("MyTest.doc").Activate

Selection.EndKey Unit:=wdLine

Selection.TypeParagraph

Selection.Paste

ActiveDocument.Save

End Sub

This works in Office 2000. Thank you for your help

[Andrew Cushen]

Sounds like you need to add a reference to the Word object model in your Excel project: TOOLS menu, REFERENCES, select "Microsoft Word version number Object Library" and click OK.

-Andrew