Why it works but the macro is error in VB?

macropod · #2 11-30-2011, 04:28 AM

Hi Tinfanide,

The error is probably because you're not telling the calling App that it's AppWord's ActiveDocument you want to save. Try something along the lines of:

Code:

Private Sub copytoWord_Click()
Sheets("Sheet1").Range("A1:B4").Copy
Dim AppWord As Word.Application
Set AppWord = CreateObject("Word.Application")
With AppWord
  .Visible = True
  .Documents.Add
  .Selection.Paste
  .CutCopyMode = False
  .ActiveDocument.SaveAs2 "C:\Users\Tin\Desktop\" & "Book1", wdFormatDocumentDefault
  .Quit
End With
Set AppWord = Nothing
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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