Can't disable Word Alerts

I have a macro that I'm using for extracting data from a word document, however, Word interrupts the process with conversion confirmation dialogue boxes and other alerts. I would like to turn of all word alerts while this macro is running.

Here's my code:

Option Explicit

Sub ImportWordTable()
Dim wdDoc As Object
Dim wdFileName As Variant
Dim TableNo As Integer 'table number in Word
Dim desigTableNo As Integer 'designated table that we want to import from
Dim iRow As Long 'row index in Excel
Dim iCol As Integer 'column index in Excel
Dim lRow As Integer 'current row in loop
Dim lLR As Long 'last row of data in excel sheet
Dim wRow As Integer 'row of word table we want data from
Dim wCol As Integer 'column of word table we want data from
Dim pCol As Integer 'column we want to past info into


'find number of rows in spreadsheet
lLR = Range("A" & Rows.Count).End(xlUp).Row
'set which table we want to pull data from
desigTableNo = Sheets("Search").Cells(2, 3).Value
'set which table row
wRow = Sheets("Search").Cells(3, 3).Value
'set which table column
wCol = Sheets("Search").Cells(4, 3).Value
'set which column we want info to be pasted to
pCol = Sheets("Search").Cells(7, 3).Value

'Code optimizer for much quicker cycle time (see module 1)
Call OptimizeCode_Begin

For lRow = 26700 To lLR

wdFileName = Cells(lRow, 1)
On Error Resume Next
wdDoc.Visible = False

Set wdDoc = GetObject(wdFileName)
wdDoc.Visible = False

With wdDoc
    TableNo = wdDoc.Sections(1).Headers(1).Range.tables.Count
    If TableNo = 0 Then
        Cells(lRow, pCol) = "No Tables!"
        On Error Resume Next
    ElseIf TableNo > 1 Then
        TableNo = desigTableNo
    End If
    With .Sections(1).Headers(1).Range.tables(desigTableNo)
        'copy cell contents from Word table cells to Excel cells
        For iRow = lRow To lRow
                Cells(iRow, pCol) = WorksheetFunction.Clean(.cell(wRow, wCol).Range.Text)
        Next iRow
    End With
    Application.DisplayAlerts = True
End With

wdDoc.ActiveDocument.Close (False)
wdDoc.Quit
Set wdDoc = Nothing

Next lRow

'Code optimizer for much quicker cycle time (see module 1)
Call OptimizeCode_End

End Sub

Ideas?

OK, I've updated my code with what I THINK is early binding, but I'm still getting alert messages. Here's my updated code:

Option Explicit

Sub ImportWordTable()
'Dim wdDoc As Object
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim wdFileName As String
Dim TableNo As Integer 'table number in Word
Dim desigTableNo As Integer 'designated table that we want to import from
Dim iRow As Long 'row index in Excel
Dim iCol As Integer 'column index in Excel
Dim lRow As Integer 'current row in cycle
Dim lLR As Long 'last row of data in excel sheet
Dim wRow As Integer 'row of word table we want data from
Dim wCol As Integer 'column of word table we want data from
Dim pCol As Integer 'column we want to past info into
Dim count As Integer
Dim per As Long
count = 0


'find number of rows in spreadsheet
lLR = Range("A" & Rows.count).End(xlUp).Row
'set which table we want to pull data from
desigTableNo = Sheets("Search").Cells(2, 3).Value
'set which table row
wRow = Sheets("Search").Cells(3, 3).Value
'set which table column
wCol = Sheets("Search").Cells(4, 3).Value
'set which column we want info to be pasted to
pCol = Sheets("Search").Cells(7, 3).Value

'Code optimizer for much quicker cycle time (see module 1)
Call OptimizeCode_Begin
Application.DisplayAlerts = False


For lRow = 700 To lLR

wdFileName = Cells(lRow, 1)
On Error Resume Next
wdDoc.Visible = False
wdApp.Application.DisplayAlerts = 0 'wdAlertsNone
wdApp.Application.Options.ConfirmConversions = False

Set wdDoc = GetObject(wdFileName)
wdDoc.Visible = False

With wdDoc
    TableNo = wdDoc.Sections(1).Headers(1).Range.tables.count
    If TableNo = 0 Then
        Cells(lRow, pCol) = "No Tables!"
        On Error Resume Next
    ElseIf TableNo > 1 Then
        TableNo = desigTableNo
    End If
    With .Sections(1).Headers(1).Range.tables(desigTableNo)
        'copy cell contents from Word table cells to Excel cells
        For iRow = lRow To lRow
                Cells(iRow, pCol) = WorksheetFunction.Clean(.cell(wRow, wCol).Range.Text)
        Next iRow
    End With
    'wdDoc.Application.DisplayAlerts = -1 'wdAlertsAll
End With
wdDoc.ActiveDocument.Close (False)
wdDoc.Quit
Set wdDoc = Nothing

'progress counter
count = count + 1
per = count / lLR * 100
Excel.Application.StatusBar = count & "/" & lLR & " " & per & "%"

Next lRow
Application.DisplayAlerts = True
'Code optimizer for much quicker cycle time (see module 1)
Call OptimizeCode_End

End Sub

You did not set a wdApp object. Referencing it therefore errors. I showed you how to get to the MSWord Application object from the MSWord document, wdDoc. IF you don't want to reference the MSWord Application object as I did, you can do it with:

Set wdApp =  wdDoc.Application

To fix the lines in red and probably your MSWord alerts, change wdApp to wdDoc.

I normally set wdApp before setting the document. I like to get the reference to an existing wdAdd or add a new instance. Then I can delete a created instance if needed.

You should get an error for wdDoc.Visible as well. That is an MSWord Application command. Compile should have shown the Visible issue. I like to Compile from the Debug menu before a Run.

OK, I've broken this down and I'm testing with this code below, but I'm still getting alert messages. I'm not getting any errors.

Sub opendoc()
Dim wdDoc As Word.Document
Dim wdFileName As String

wdFileName = "...filepath..."
Set wdDoc = GetObject(wdFileName)
  wdDoc.Application.Visible = False
  wdDoc.Application.DisplayAlerts = 0
  wdDoc.Application.Options.ConfirmConversions = False
  wdDoc.Close
End Sub

That's working great now guys! Thanks for getting me going in the right direction!