Powerpoint to Word

[Emily]

Informed orginial writer and submitted with ppa attachment

Code added

Sub Auto_Open()    ' Add PPTtoWord to Tool Bar when Powerpoint start
    Dim MyControl As CommandBarControl
    On Error Resume Next
    Application.CommandBars("Standard").Controls("PPTtoWord").Delete
    Set MyControl = Application.CommandBars("Standard").Controls.Add(Before:=1)
    With MyControl
        .Caption = "PPTtoWord"
        .FaceId = 567    ' Word Icon
        .Enabled = True
        .Visible = True
        .Width = 100
        .OnAction = "WriteToWord"
        .Style = msoButtonIconAndCaption
    End With
End Sub

Sub Auto_Close()    ' Delete PPTtoWord from Tool Bar when Powerpoint close
    On Error Resume Next
    Application.CommandBars("Standard").Controls("PPTtoWord").Delete
End Sub

Regards.
Emily