Why it works but the macro is error in VB?

macropod · #6 12-03-2011, 12:53 AM

Hi Tinfanide,

The line:
Dim AppWord As Word.Application
is only relevant if you've already set a reference to Word.

Try:

Code:

Private Sub CopyToWord()
Dim arr As Variant, x As Long, AppWord As Object
Set AppWord = CreateObject("Word.Application")
arr = Array("A", "B", "C")
With ActiveSheet
  .Cells.Clear
  For x = 1 To 3
    .Range(arr(x - 1) & "1").Value = x
  Next x
  .Range("A1:C1").Copy
End With
With AppWord
  .Visible = True
  .Documents.Add
  With .ActiveDocument
    .Range.Paste
    .Tables(1).Delete
    '.Close SaveChanges:=False
  End With
  '.Quit
End With
Set AppWord = Nothing
End Sub

The two commented-out lines show how to correctly shut down Word without saving. Simply setting AppWord = Nothing doesn't do that - it leaves Word running and, if you re-run the code, another Word instance will be created.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Simple VBA macro error	Formulayeti	PowerPoint	1	12-09-2011 10:02 PM
Runtime Error 4120 in Word 2007 macro	Frankwlc	Word	5	11-28-2011 01:54 AM
Works to word	Janette	Word	1	11-12-2011 08:23 AM
Macro Error 5174	muster36	Word VBA	0	08-12-2011 03:34 AM
Converting from Works	Menno Hershberger	Office	0	09-01-2010 11:33 PM