This code adjust height of rows those 100% scored and CM (includes, Gray highlighted Locked segs too).
To display all the rows again;
Drag (Select) all Columns and click very small Down/Up triangle at cell height input box of CellSize tab.
attached: AutoHotkey source code (SideBySide style only)
exportForBilingualReview_LessThan100 SideBySide.zip
Enjoy
VBA code
Dim myTable, myRow
For Each myTable In ActiveDocument.Tables
For Each myRow In myTable.Rows
With myRow
If .Shading.BackgroundPatternColor = 10025880 Then
.HeightRule = wdRowHeightExactly
.Height = MillimetersToPoints(0.01)
End If
End With
Next
Next
just compared running time
VBA : 140 sec
AHK: 0.9 sec (approx. 150 times faster, at least)
it is a 100 pages (1,000 segments) docx ExportForBilingualReview file
just compared running time
VBA : 140 sec
AHK: 0.9 sec (approx. 150 times faster, at least)
it is a 100 pages (1,000 segments) docx ExportForBilingualReview file
Translate
