I have a piece of code which works perfectly fine in Word 2002.  However in Word 97, it has this problem.  Most of the code just adds the nested picture field that I asked help for yesterday.  In the last line, the Activedocument tries to update its fields, but Word freezes everytime the update is attempted
my code is
WordDoc = Application.ActiveDocumen
WordFields = WordDoc.Field
WordMergeFields = WordDoc.MailMerge.Field
WordSelection = Application.Selectio

       Dim DirName As String = DirPath_txtbox.Tex
       Dim extName As String = ext_txtbox.Tex
       Dim msg As Strin
       Dim path2 As Strin
     
       If DirName.Chars(Len(DirName) - 1) = "\" The
           DirName = DirName.Substring(0, Len(DirName) - 1
       End I
       DirName = DirName + "\
       path2 = AddSlash(PicPath_txtbox.Text
       DirName = AddSlash(DirName

       leftSpace = DirName.Length(
       leftSpace = -leftSpac
 
       If (response = MsgBoxResult.Yes) The
           WordDoc.ActiveWindow.View.ShowFieldCodes = Tru

           WordSelection.TypeText(DirName
           WordMergeField = WordMergeFields.Add(WordSelection.Range, type
           WordSelection.TypeText("." & extName
           WordMergeField.Select(
           WordSelection.MoveStart(Word.WdUnits.wdCharacter, leftSpace
           WordSelection.MoveEnd(Word.WdUnits.wdCharacter, 1 + extName.Length()
           WordRange = WordSelection.Range(
           oAutoText = WordObject.NormalTemplate.AutoTextEntries.Add(Name:="MyPicture", Range:=WordRange
           WordRange.Delete(
           fld = WordFields.Add(WordSelection.Range, Word.WdFieldType.wdFieldEmpty, "INCLUDEPICTURE """" \d", False
           WordSelection.MoveRight(Word.WdUnits.wdCharacter, 18

           WordMergeFields.AddIf(Range:=WordSelection.Range(), MergeField:=type, Comparison:=Word.WdMailMergeComparison.wdMergeIfIsNotBlank, TrueAutoText:="MyPicture", FalseText:=path2
           oAutoText.Delete(
           WordDoc.ActiveWindow.View.ShowFieldCodes = Fals
           WordDoc.Fields.UpdateSource(
       End If