I don't program in Word so I can't help you there but this should fix your PP
issue:
Private Sub PushAllExcelPlotsToPowerPoint()
   
   
'**********************************************************************************
   ' This procedure pushes all Excel charts in the active workbook to
PowerPoint slides
   ' * If a PowerPoint presentation is not open, PowerPoint will be
launched (if
   '   necessary), a new Powerpoint presentation will be created, and the
slides
   '   will be added with all of the Excel charts.
   ' * If PowerPoint is already open, the Excel charts will be appended to
the
   '   active PowerPoint presentation.
   ' * Chart names will be used for slide titles.
   
'**********************************************************************************
   
   Dim PowerPointConn As Object
   Dim CurrentChart As Excel.Chart
   Dim SlideNumber As Integer, INI_File As String
   
   If ActiveChart Is Nothing Then End
   
   ' determine if custom or default INI file should be used
   INI_File = IniFileName
   
   On Error Resume Next
   Set PowerPointConn = GetObject(, "PowerPoint.Application")
   On Error GoTo 0
   If PowerPointConn Is Nothing Then Set PowerPointConn =
CreateObject("PowerPoint.Application")
   If PowerPointConn.Presentations.Count = 0 Then
PowerPointConn.Presentations.Add msoTrue
   PowerPointConn.Visible = msoTrue
   
   SlideNumber = PowerPointConn.ActivePresentation.Slides.Count + 1

   For Each CurrentChart In Charts
       CurrentChart.CopyPicture
       PowerPointConn.ActivePresentation.Slides.Add Index:=SlideNumber,
Layout:=11 ' ppLayoutTitleOnly = 11
       PowerPointConn.ActivePresentation.Slides(SlideNumber).Shapes.Paste
       
PowerPointConn.ActivePresentation.Slides(SlideNumber).Shapes(1).TextFrame.TextRange.Text = CurrentChart.Name
       
PowerPointConn.ActivePresentation.Slides(SlideNumber).Shapes(2).Height =
Val(GetPrivateProfileString32(INI_File, "GENERAL", "PPT Plot Height", "385"))
       PowerPointConn.ActivePresentation.Slides(SlideNumber).Shapes(2).Top
= Val(GetPrivateProfileString32(INI_File, "GENERAL", "PPT Plot Top", "115"))
       PowerPointConn.ActivePresentation.Slides(SlideNumber).Shapes(2).Left
= Val(GetPrivateProfileString32(INI_File, "GENERAL", "PPT Plot Left", "85"))
       SlideNumber = SlideNumber + 1
   Next CurrentChart
   
   Set PowerPointConn = Nothing
   
End Sub