• 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:= _
    Set wdApp = Nothing

    Exit Sub

    MsgBox Err.Description
    Resume Exit_Command0_Click
End Sub
  • 2
1 Solution
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 _
sydneyguyAuthor Commented:
will try this thanks, also have postd another word question re setting margins if your int

sydneyguyAuthor Commented:
thanks for the tip have made the adjustment and am making good head way

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