小编Par*_*rky的帖子

我在另一个线程中使用了 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