'this macro solves "orphan letters" being seperated from words by converting each slide's "LineBreakLevel" to strict
' exampleThis example sets line break control to use level one kinsoku characters. There are three levels designated by PowerPoint HELP'ppFarEastLineBreakLevelCustom'ppFarEastLineBreakLevelNormal'ppFarEastLineBreakLevelStrictFor Each oSl In ActivePresentation.Slides
ActivePresentation.FarEastLineBreakLevel = ppFarEastLineBreakLevelStrict
SubNumbernonBlankTestLines() ' user must manually highlight range in Column A Dimmsgs,qy,rep Dimtestcount,r,cAsInteger, DimstartHereAsRange,rngSelectedAsRange Dimmarkblank,enforcesinglerowblankAsBoolean enforcesinglerowblank=False
' MsgBox "last cell is " & findlastusedcell()
' use if we add feature to insert column A and auto-select range testcount=0
IfTypeName(Selection)="Range"Then IfSelection.Areas.Count=1Then ' MsgBox "selected rows is " & rngSelected.Rows.Count & vbCrLf & "columnn is " & ActiveCell.Column IfrngSelected.Rows.Count<2OrActiveCell.Column<>1ThenGoTooops
Nextr ' GoTo A1 MsgBox"Numbered "&testcount&" rows" 'measure column B begin and end
'make temporary range from A2: to match B begin to B end 'tbd select column A
'if selection < 2 rows warn and exit
'for each row in A, test adjacent cell B has value - number A, set flag notblank
'if flag notblank then next row should be blank, else warn andexit else skip to next
'if flag notblank, then next row should NOT be blank, else warn and exit, else number A Else MsgBox"Please select only one area.",vbInformation EndIf EndIf ExitSub
doublelineerror: MsgBox"Only one row per test, MUST be separated by exactly one blank row: see Test# "&testcount,vbCritical,"Halted / Config Error"
oops: MsgBox"HALTED: must select multiple continuous rows within column A, alongside alternating data in column B"&vbCrLf_ &"and first selected row is NOT blank",vbCritical,"SELECTION ERROR"
The Sample Test Suite in left columns will automatically tabulate the
progress summmary and chart on the right. This is done without
pivot tables, to give more flexibility and less maintenance.The benefit is for both individuals AND teams to be able to report whenever asked yet with minimal interruption.