docs_list.OleProcedure("Open",(GetCurrentDir()+FileName).c_str(),False,False,False,"","",False,"","",wdOpenFormatAuto);
     Selection = word_appl.OlePropertyGet("Selection");

     Selection.OleProcedure("MoveUp",wdScreen, 1 );

         Variant Find = Selection.OlePropertyGet("Find");
         Find.OleProcedure("ClearFormatting");
         Find.OlePropertyGet("Replacement").OleProcedure("ClearFormatting");
         Find.OlePropertySet("Text","%STUDENT%");
         Find.OlePropertyGet("Replacement").OlePropertySet("Text","1");
         Find.OlePropertySet("Forward",True);
         Find.OlePropertySet("Wrap",wdFindContinue);
         Find.OlePropertySet("Format",False);
         Find.OlePropertySet("MatchCase",False);
         Find.OlePropertySet("MatchWholeWord",False);
         Find.OlePropertySet("MatchWildcards",False);
         Find.OlePropertySet("MatchSoundsLike",False);
         Find.OlePropertySet("MatchAllWordForms",False);

         Find.OleProcedure("Execute",wdReplaceAll);

Documents.Open FileName:="d:\u30.doc", ConfirmConversions:=False, ReadOnly:= _
        False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
        "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
        Format:=wdOpenFormatAuto
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "%STUDENT%"
        .Replacement.Text = "1"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

  Set myRange = ActiveDocument.Content
  myRange.Find.Execute "hi", False, False, False, False, False, True, wdFindContinue, False, "hello", wdReplaceAll, False, False, False, False