Update using Take Screenshot tool

The Take Screenshot  tool is capable of creating both screenhots and a fresh HTML (generator) page. The screenshots and HTML file are by default inserted in the Screenshots subfolder. To use Take Screenshot  tool to update your project:

1. Open the new form or report
2. From Access menu: Tools > Help Generator > Take Screenshot
3. Check 'Generate HTML files' and press OK - repeat for all new forms and reports
4. Open the HTML Help Editor
5. Menu: File > Open Help folder
6. Move new screenshots from \screenshots to the \images folder
7. Move new pages to \chm folder
8. Select the 'Dialogs' node and right-click > Add
9. Select the new HTML file
10. For each image in the added HTML file fix the picture: right-click on the picture > picture Properties and change picture source to the picture in the \images folder
11. If you are using stylesheets, add this menu: Format > Style > Link to...
12. Start adding content to the HTML page.

Sub ListNewForms()
Dim dbs As Database
Dim doc As Document
Dim cnt As Container
Dim frm As Form
On Error GoTo HandleError
Set dbs = CurrentDb
Set cnt = dbs.Containers("Forms")
For Each doc In cnt.Documents
    DoCmd.OpenForm doc.Name, acDesign
    Set frm = Screen.ActiveForm
    If Len(frm.HelpFile) = 0 Then
        Debug.Print doc.Name
    End If
    DoCmd.Close acForm, doc.Name
Next
HandleExit:
    Exit Sub
HandleError:
    MsgBox Err.Number & ": " & Err.Description
    Resume HandleExit
End Sub

Sub ListNewReports()
Dim dbs As Database
Dim doc As Document
Dim cnt As Container
Dim rpt As Report
On Error GoTo HandleError
Set dbs = CurrentDb
Set cnt = dbs.Containers("Reports")
For Each doc In cnt.Documents
    DoCmd.OpenReport doc.Name, acDesign
    Set rpt = Screen.ActiveReport
    If Len(rpt.HelpFile) = 0 Then
        Debug.Print doc.Name
    End If
    DoCmd.Close acReport, doc.Name
Next
HandleExit:
    Exit Sub
HandleError:
    MsgBox Err.Number & ": " & Err.Description
    Resume HandleExit
End Sub