• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 592
  • Last Modified:

Run-time error '462' word from access on second run through

works fine the first time but on the second time through it throws up a
erroro 462 server not available.
Have been through a fair few sites but still have not come up with a workable solution, may be another set of eyes.
thanks for your help

Private Sub Command0_Click()
On Error GoTo Err_Command0_Click


     Dim oRange
   Dim wdApp As Word.Application
 
   Dim doc As Object
   Dim CellSize As Integer
 
   Set wdApp = New Word.Application
 
   Set doc = wdApp.Documents.Add
   wdApp.Visible = True

   ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=10, NumColumns _
              :=1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
              wdAutoFitFixed
   
    Set wdApp = Nothing

Exit_Command0_Click:
    Exit Sub

Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click
   
End Sub
0
sydneyguy
Asked:
sydneyguy
  • 2
1 Solution
 
puppydogbuddyCommented:
Try changing this:
        ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=10, NumColumns _
To a more complete reference:
         Set doc = wdApp.ActiveDocument
          doc.Tables.Add Range:=Selection.Range, NumRows:=10, NumColumns _
0
 
sydneyguyAuthor Commented:
will try this thanks, also have postd another word question re setting margins if your int

http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Word/Q_24993561.html
0
 
sydneyguyAuthor Commented:
thanks for the tip have made the adjustment and am making good head way
0

Featured Post

Vote for the Most Valuable Expert

It’s time to recognize experts that go above and beyond with helpful solutions and engagement on site. Choose from the top experts in the Hall of Fame or on the right rail of your favorite topic page. Look for the blue “Nominate” button on their profile to vote.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now