Looking for a way to automate checking for consistency in document

[Roy]

I am manually checking hundreds of documents to insure that:
1) every image or embedded object has alt-text
2) every table has a caption
3) every table has a header row that repeats on a page break and that cells
do not break across pages

is there a tool that could be a starting point for building something to
autmate this

 

[Guest]

I am manually checking hundreds of documents to insure that:
1) every image or embedded object has alt-text
2) every table has a caption
3) every table has a header row that repeats on a page break and that
cells
do not break across pages

is there a tool that could be a starting point for building something to
autmate this

You'll have to write a macro. I do not quite understand what you mean by
alt-text in item 1) and I've never used table captions. As for item 3),
below is my old macro. It does a few other things apart from what you
require. Instead of removing the code I commented it. If you do not need
anything else from the macro, just delete all the lines that start with '.
Note that you cannot simply uncomment everything. The full macro requires
that certain table and paragraph styles are present as well as another
macro.

Public Sub TCleaner()
Dim oTable As Table
'Dim oCell As Cell
'Dim Counter As Long
'
'
'
'CopyTableStyles
'
For Each oTable In ActiveDocument.Tables
'
' oTable.Style = "NiceTable"
'
' oTable.Select
' With Selection
' .Style = "NiceTableTextC"
' .Rows.HeadingFormat = False
' End With
'
With oTable
' .Rows.Alignment = wdAlignRowLeft
' .Rows.WrapAroundText = False
.Rows.AllowBreakAcrossPages = False
' .AllowPageBreaks = False
' .AllowAutoFit = False
' .Rows.HeightRule = wdRowHeightAuto
' .Rows.Height = CentimetersToPoints(0)
.Rows.HeadingFormat = False
' .PreferredWidthType = wdPreferredWidthPercent
' .PreferredWidth = 100
End With
'
oTable.Cell(1, 1).Select
Selection.EndKey Unit:=wdRow, Extend:=wdExtend
Selection.Rows.HeadingFormat = True
'
' oTable.Select
'
' Set oCell = oTable.Range.Cells(1)
' For Counter = 1 To oTable.Range.Cells.Count
' If oCell.ColumnIndex = 1 Then
' oCell.Range.Style = "NiceTableText"
' End If
' Set oCell = oCell.Next
' Next Counter
'
' For Each oCell In Selection.Range.Cells
' oCell.Select
' If Selection.Rows.HeadingFormat = True Then
' With Selection
' .Style = "NiceTableHeader"
' .Shading.BackgroundPatternColor = wdColorGray10
' End With
' End If
'
' Next oCell
'
ActiveDocument.UndoClear
'
Next oTable
'
'
'
End Sub

Regards,
Sergey

 

[Doug Robbins - Word MVP]

For all but the captions, you could probably do what you want with a macro
containing the following code, though you would have to re-run it after
correcting any deficiencies that it detected, which it would do by selecting
the non-conforming item

With ActiveDocument
For i = 1 To .InlineShapes.Count
With .InlineShapes(i)
If .AlternativeText = "" Then
.InlineShapes(i).Select
Exit Sub
End If
End With
Next i
For i = 1 To .Tables.Count
With .Tables(i).Rows(1)
If .HeadingFormat <> True Then
.Select
Exit Sub
End If
End With
With .Tables(i)
For j = 1 To .Rows.Count
With .Rows(i)
If .AllowBreakAcrossPages = True Then
.Select
Exit Sub
End If
End With
Next j
End With
Next i
End With

For the captions however, as they are not really "linked" to the tables,
about all that you could do is compare a .Count of the tables in the
document with a count of the number of { SEQ Table } fields in the document.

--
Hope this helps,

Doug Robbins - Word MVP

Please reply only to the newsgroups unless you wish to obtain my services on
a paid professional basis.