W
Wayne H
I am trying to generate Word notes files from a PPT macro. The Word document
starts to get created then I get an error message that PPT cannot write to
Word. The macro never makes it to the pres.Close statement. The following is
the relevant code:
xName = Dir$(dirPPT & "*.ppt")
Do While xName <> ""
Set pres = app.Presentations.Open(dirPPT & xName)
CommandBars.FindControl(Id:=684).Execute ' 684 is the control ID for
Word Notes
SendKeys "%b", True
SendKeys "{enter}", True
pres.Close
xName = Dir$
Loop
starts to get created then I get an error message that PPT cannot write to
Word. The macro never makes it to the pres.Close statement. The following is
the relevant code:
xName = Dir$(dirPPT & "*.ppt")
Do While xName <> ""
Set pres = app.Presentations.Open(dirPPT & xName)
CommandBars.FindControl(Id:=684).Execute ' 684 is the control ID for
Word Notes
SendKeys "%b", True
SendKeys "{enter}", True
pres.Close
xName = Dir$
Loop