title: ActiveDocument.SaveAs2 not working in Excel 2000 but fine in 2010 and 2016
body: <p>I have used a modified version of code supplied by Jtchase08 in another thread and it works fine in Excel 2010 and 2016 when I change the object library to the relevant Microsoft word version, however in an attempt to make the same thing work in 2000 I get </p>
  
  <blockquote>
    <p>Run-time error '438': Object doesn't support this property or method</p>
  </blockquote>
  
  <p>Debug takes me to here</p>
  
  <p><a href="https://i.stack.imgur.com/97gyj.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/97gyj.jpg" alt="Screenshot"></a></p>
  
  <p>The full code I am using is below, if anyone can help modify this to work in 2000 it would be much appreciated.</p>
  
  <pre><code>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 &amp; Application.PathSeparator &amp; 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
  </code></pre>