I have an access vba function that opens a word doc and fills in data from the access database. In addition to this, I want to hide certain tables within the word doc when it opens. I have applied a bookmark to the table and tried to hide it. It is not working.





Code:
Function FillWord()


Dim appWord As Word.Application
Dim doc As Word.Document
Dim path As String
Dim strSQL, strSQL1, strSQL2, strSQL3, strSQL4, genProfResult As String
Dim rst As DAO.Recordset
Dim strMessage, ans As String
Dim intRows, intNumReturned, intNumColumns, intColumns As Integer
Dim avarRecords, newArray As Variant
Dim intRecord As Integer
Dim count As Variant
Dim db As DAO.Database
Dim oTbl As Word.Table


Set db = CurrentDb


On Error Resume Next
 Error.Clear
 path = "C:\Users\fierrm\Documents\WIP\JDTools_ME\Comp Report_tst10.docx"
Set appWord = GetObject(, "Word.application")
If Err.Number <> 0 Then
  Set appWord = New Word.Application
  appWord.Visible = True
End If


Set doc = appWord.Documents.Open(path, , True)


With doc
  .FormFields("txtJobcode").Result = Forms!FrmMain![Jobcode]
  .FormFields("txtJobTitle").Result = Forms!FrmMain![JobTitle]
  .FormFields("txtEffDate").Result = Forms!FrmMain![EffDate]
  .FormFields("txtJobOverview").Result = Forms!FrmMain![Overview]
  .FormFields("txtEduReq").Result = Forms!FrmMain![EducationRequired].Column(2)
  .FormFields("txtEduPref").Result = Forms!FrmMain![EducationPreferred].Column(2)
  .FormFields("txtExpReq").Result = Forms!FrmMain![ExperienceRequired].Column(2)
  .FormFields("txtExpPref").Result = Forms!FrmMain![ExperiencePreferred].Column(2)
  .FormFields("txtCertReq").Result = Forms!FrmMain![CertificationRequired].Column(2)
  .FormFields("txtCertPref").Result = Forms!FrmMain![CertificationPreferred].Column(2)
  .FormFields("txtQual1").Result = Forms!FrmMain![Qual1]
  .FormFields("txtQual2").Result = Forms!FrmMain![Qual2]
  .FormFields("txtQual3").Result = Forms!FrmMain![Qual3]
  .FormFields("txtQual4").Result = Forms!FrmMain![Qual4]
  .FormFields("txtPhysicalDemands").Result = Forms!frmEnvironmental![PhysicalDemands]
  .FormFields("txtJobLocation").Result = Forms!frmEnvironmental![JobLocation]
  '.FormFields("txtGenProf1").Result =
  appWord.Visible = True
  appWord.Activate
  
 With ActiveDocument
   ActiveDocument.Bookmarks("tblPS").Select
    .Hidden = True
End With




Set doc = Nothing
Set appWord = Nothing


End Function