MS 워드(WORD) VBA -- 테이블 만들기, 무작위로(RANDOM) 셀(cell)선택하고 shading/hiding

아래와 같이 테이블(18*2)을 생성하고 생성한후에 랜덤하게(무작위로) 첫째칼럼의 열과

둘째칼럼의 열을 shading/hiding 하는 vba이다

단어장을 만들고 랜덤하게 뜻과 의미를 감추어 단어암기에 도움을 주기위해 만들었다

vba로 만들어져 매번 실행시마다 감추어지고 드러나는 셀들이 변경된다

Sub MakeTable()

    '--- 먼저 18*2  [row(행):18, col(열):2]테이블을 만든다
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=18, NumColumns:= _
            2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
            wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "표 구분선" Then
            .Style = "표 구분선"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
    End With
    
    '--- 두번째 렬(column)에서 행(row)을 둘로 나눈다
    x = 1
    nTab = ActiveDocument.Range(0, Selection.Tables(1).Range.End).Tables.Count
    nRows = ActiveDocument.Tables(nTab).Rows.Count
    For i = 1 To nRows
        ActiveDocument.Tables(nTab).Cell(x, 2).Split NumRows:=2
        x = x + 2
    Next
    
End Sub

워드(WORD) VBA에서 

위와 같은 형태의 행이 합쳐진(vertically merged cell) 테이블(TABLE)내의 특정 셀(cell)이  merge되어있는지를 check하는데에는 약간의 어려움이 있다

그리고 랜덤으로 특정셀을 가리거나 드러내는 작업도 좀 복잡하다

Sub RandomHiding()

Dim R As Row
Dim C As Cell
Dim RowSpan, iCol, iRow

Const lo = 1
Const hi = 18
Const itms = 1

Dim i, k As Integer
Dim x As Variant

    '--- 먼저 전체 숫자집합(원소수 18)에서 몇개를 선택할것인가를 임의로 결정
    '--- 여기에선 6개이상 9개이하로 함
    Do While 1
        x = getRandomNumbers(lo, hi, itms)
    
        For i = lo To hi
            If x(i) = True Then k = i
        Next i
        If (k > 5) And (k < 10) Then
            Exit Do
        End If
    Loop
    
    '--- 다시 무작위로 위에서 정해진 갯수(k) 만큼의 숫자를 선택함
    x = getRandomNumbers(lo, hi, k)
    
    '--- 이제 테이블의 셀들을 돌면서 위에서 정해진 위치의 셀을 찾아
    '--- hiding/shading 한다
    
    Set tbl = ActiveDocument.Tables(1)
    
    For Each C In tbl.Range.Cells
        C.Select
        
        '--- 해당셀이 열병합(vertically merged)되어있는지 check
        RowSpan = (Selection.Information(wdEndOfRangeRowNumber) - _
            Selection.Information(wdStartOfRangeRowNumber)) + 1
        If RowSpan > 1 Then
            If x(Fix(C.RowIndex / 2) + 1) = True Then
                tbl.Cell(C.RowIndex, 1).Shading.BackgroundPatternColor = wdColorGray25
            End If
        Else
            If x(Ceiling(C.RowIndex / 2)) = False Then
                tbl.Cell(C.RowIndex, 2).Shading.BackgroundPatternColor = wdColorGray25
            End If
        End If
    Next C
End Sub

Function getRandomNumbers(lo As Integer, hi As Integer, toSelect As Integer)
'--- 기능 : 특정범위의 연속된 숫자집합에서 지정된 갯수만큼 무작위로 선택
'---        배열(boolean array)을 return(선택된 숫자들이 array index가 되고 그값은 true)
'---        예를 들어 1..18까지고 3개를 random으로 뽑은 숫자가 1,7, 17 이라면
'---        retArr(1) = True, retArr(7) = True, retArr(17) = True
'--- 입력값 : lo : 숫자집합의 최저값, hi : 숫자집합의 최고값, toSelect : 선택할 갯수
'--- 결과값 : 배열(boolean array)

    ReDim Items(lo To hi) As Variant
    Dim selected As Integer
    
    Randomize
    
    Do While selected < toSelect
        Dim rec As Integer
        rec = Int((hi - lo + 1) * Rnd + lo)
        If Items(rec) = False Then
            Items(rec) = True
            selected = selected + 1
        End If
    Loop

    getRandomNumbers = Items
    
End Function

Function Ceiling(Number As Double) As Long
'--- 기능: 소숫점 이하값 무조건 올림

    Ceiling = -Int(-Number)
    
End Function