예전에 아래의 글을 보고 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. 그리고 위의 매크로를 돌립니다.
그럼 짠! 아래와 같이 해당 부분의 폰트가 하얀색으로 표시됩니다.
본문의 폰트색이 변하기 때문에 원본은 복사해두고 사용하세요.
문서를 새로 만드는 기능을 추가하고 싶지만 그건 다음분께 맡기겠습니다.
다른 곳에서 가져온 것을 짜집기 한것이니 마음껏 사용하세요,
https://www.clien.net/service/board/lecture/17593307CLIEN
Macro에서 [ 대신 [[, ] 대신 ]] 로 바꾸시면 선호하시는 문자로 변경하실 수 있습니다.
위의 예제에도 주석의 [9] 도 변환되었네요.