Wordオブジェクトの参照を以下のように設定したのですが、エラーが返ってきます。
是非、解決方法をおしえてください。

Dim xlApp As Word.Application　または、Dim xlApp As Object

Set xlApp = CreateObject("Word.Application")

エラー内容：

デバッグは２行目をさしていました。

オートメーションエラーです。
メッセージフィルタはアプリケーションがビジーであることを、示しています。

ちなみにマイクロソフトのヘルプで調べて、回避策をためしてみましたが、
それでもうまくいきませんでした。

環境は？、参照設定は何にしていますか？

下記を試して見てもエラーが発生しますか？
プロジェクト→参照設定でMicrosoft Word *.* Object Library にチェックを入れておいて下さい。

Option Explicit

Private Sub Command1_Click()
    Dim wdApp   As Word.Application
    Dim wdDoc   As Word.Document
    Set wdApp = CreateObject("Word.Application")
    Set wdDoc = wdApp.Documents.Add
    wdApp.Visible = True
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

環境はVB6.0です。

プロジェクト→参照設定でMicrosoft Word *.* Object Library にチェックも行い
ソースもそのまま入れて実行しましたが、やはり前に述べたエラーが発生します。

Word自体に問題があるのかもしれません。

他になにか解決方法を知っていますか？

この問題は、貴方独自の環境で起きているものですから、貴方の使用環境を詳しく
書いて頂かないと判断できないかと思うのですが。

VBのバージョン　サービスパックの状況　Wordのバージョン　参照設定の　*.* の部分や
OS や他に何かアプリを動かしていないか等、又、貴方独自でどこまで調べたのか等や
正確なエラーメッセージ等が解らない以上判断できないかと思います。
エラーメッセージをキーワードにWEBで検索すると同様のエラーが多く発生している場合は
大抵見つかります。見つからない場合は、稀なエラーかと思いますので、場合によっては
リカバリーした方が早いかもしれませんね！。