See this part:

[VBA]
' Appword.Visible = True
'For Each ws In Sheets
' wdApp.Documents.Add
'Next
' Set wdApp = wdDoc
[/VBA]

I used your code but seems to be something wrong wif it.