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.
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.