빈칸 공부법을 쉽게 할 수 있는 Word VBA Macro - Text

예전에 아래의 글을 보고 word로도 만들 수 있지 않을까 생각을 해봤습니다.

https://www.clien.net/service/board/lecture/16386346CLIEN

VBA는 잘 모르지만 여기저기 돌아다니는 코드를 짜집기하여 아래와 같이 만들어봤습니다.

VBA 사용하는 법은 다른 글들을 참고하세요.

Sub BlankText()

    Dim cDoc As Word.Document

    Dim cRng As Word.Range

    Set cDoc = ActiveDocument

    Set cRng = cDoc.Content

    cRng.Find.ClearFormatting

    With cRng.Find

        .Forward = True

        .Text = "["

        .Wrap = wdFindStop

        .Execute

        Do While .Found

            cRng.Collapse Word.WdCollapseDirection.wdCollapseEnd

            cRng.MoveEndUntil Cset:="]", Count:=Word.wdForward

            cRng.Font.ColorIndex = wdWhite

            cRng.Collapse Word.WdCollapseDirection.wdCollapseEnd

             .Execute

        Loop

    End With

End Sub

사용방법은 쉽습니다.

1. 워드에 빈칸을 만들고 싶은 부분을 [ ] 로 표시합니다.

2. 그리고 위의 매크로를 돌립니다.

그럼 짠! 아래와 같이 해당 부분의 폰트가 하얀색으로 표시됩니다.

본문의 폰트색이 변하기 때문에 원본은 복사해두고 사용하세요.

문서를 새로 만드는 기능을 추가하고 싶지만 그건 다음분께 맡기겠습니다.

다른 곳에서 가져온 것을 짜집기 한것이니 마음껏 사용하세요,