handouts in word via a macro

[Wayne H]

When I try to create handout files in Word from a PPT macro, the Word file
gets created and has Slide 1 text in it but then I get the error message
PowerPoint couldn't write to Microsoft Office Word. The following is code
snippet:

xName = Dir$(dirPPT & "*.ppt")
'Do While xName <> ""
Application.Presentations.Open (dirPPT & xName)
CommandBars.FindControl(Id:=684).Execute ' 684 is the control ID for
Word Notes
SendKeys "%b", True
SendKeys "{enter}", True
ActivePresentation.Close
xName = Dir$
'Loop