Word VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Word
  4. Uses errors to learn whether Word is already open before pasting a chart at the end of a document If not, it opens Word and creates a
Sub IsWordOpen()
    Dim wdApp As Word.Application
    ActiveChart.ChartArea.Copy
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If wdApp Is Nothing Then
        Set wdApp = GetObject("", "Word.Application")
        With wdApp
            .Documents.Add
            .Visible = True
        End With
    End If
    On Error GoTo 0
    
    With wdApp.Selection
        .EndKey Unit:=wdStory
        .TypeParagraph
        .PasteSpecial Link:=False, DataType:=wdPasteOLEObject, _
            Placement:=wdInLine, DisplayAsIcon:=False
    End With
    
    Set wdApp = Nothing
End Sub