excel - ActiveDocument.SaveAs2 は Excel 2000 では機能しませんが、2010 および 2016 では問題ありません

Question

別のスレッドで Jtchase08 によって提供されたコードの修正バージョンを使用しました。オブジェクト ライブラリを関連する Microsoft Word バージョンに変更すると、Excel 2010 および 2016 で正常に動作しますが、2000 で同じことを動作させようとすると、

実行時エラー '438': オブジェクトはこのプロパティまたはメソッドをサポートしていません

デバッグでここに移動

私が使用している完全なコードは以下のとおりです。誰かがこれを 2000 年に動作するように変更するのを手伝ってくれるなら、大歓迎です。

Sub ExportToHTML()

      Dim DocPath As String
      Dim MsgBoxCompleted
      Worksheets("Final Code").Activate
      Worksheets("Final Code").Range("A1:A322").Select

      Dim AppWord As Object
      Set AppWord = CreateObject("Word.Application")

      AppWord.Visible = False

      Selection.Copy

      DocPath = CurDir & Application.PathSeparator & Range("U15")

      'Create and save txt file
      AppWord.Documents.Add
      AppWord.Selection.Paste
      AppWord.ActiveDocument.SaveAs2 Filename:=DocPath, FileFormat:=wdFormatText

      Application.CutCopyMode = False
      AppWord.Quit (wdDoNotSaveChanges)
      Set AppWord = Nothing

      MsgBoxCompleted = MsgBox("Process complete.", vbOKOnly, "Process complete")
      Worksheets("User Input").Activate
End Sub