Conforme o seguinte codigo que retirei aqui do Forum:

 

Private WordApp As Word.Application
Private doc As Word.Document
Private sel As Word.Selection
Private db As Database
Private rs As Recordset

Private Sub Command1_Click()
   Set db = OpenDatabase(App.Path & "MyBD.mdb")
   Set rs = db.OpenRecordset("Select * From Folha")
   Set WordApp = New Word.Application
   WordApp.Documents.Add
   Set doc = WordApp.ActiveDocument
   Set sel = WordApp.Selection
  
   sel.TypeText Text:="FOLHA DE PRESENÇA"
     
   doc.Tables.Add Range:=sel.Range, numrows:=1, numcolumns:=2
   sel.TypeText Text:="DIA"
   sel.MoveRight unit:=12
   sel.TypeText Text:="DIA DA SEMANA"
   sel.MoveRight unit:=12
  
   Do Until rs.EOF
      sel.TypeText Text:=rs!Dia
      sel.MoveRight unit:=12
      sel.TypeText Text:=rs!DiaDaSemana
      sel.MoveRight unit:=12
      rs.MoveNext
   Loop
         <<===================Aqui quero desativar sa colunas
   sel.TypeText Text:="Fim da folha"
  
   WordApp.Visible = True
   Set WordApp = Nothing
     
End Sub

 

Funciona perfeitamente.

Estou com o seguinte problema:
Apos o "LOOP" qualquer texto que escrevo sai dentro de uma tabela.
Queria desativar as colunas e linhas