VBA (Microsoft Word)를 사용하여 텍스트 파일 서식 지정
Word에서 텍스트 파일의 서식을 지정하는 것은 드문 일이 아닙니다. 예를 들어, 서식이 필요한 사람으로부터 전자 메일 메시지를 받거나 친구로부터 ASCII 파일을받을 수 있습니다. 이러한 파일을 포맷 할 때 가장 일반적인 요구 사항은 줄 시작 부분에서 추가 공백이나 탭을 제거하고, 줄 끝에서 추가 공백 또는 탭을 제거하고, 각 줄 시작 부분에서 “회신”문자를 제거하고, 줄을 결합하는 것입니다. 단락을 만드십시오.
이 모든 작업을 수작업으로 수행하는 것은 시간이 많이 소요되는 작업이며 특히 파일이 매우 큰 경우 쉽게 배티를 낼 수 있습니다. 다음 매크로를 사용하면 더 쉽게 사용할 수 있습니다. 방금 언급 한 모든 작업을 수행하고 매우 빠르게 수행합니다.
Sub DoASCII() Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p^w" .Replacement.Text = "^p" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll For J = 1 To 4 Selection.Find.Text = "^p> " Selection.Find.Execute Replace:=wdReplaceAll Next J Selection.Find.Text = "^p^w" Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Text = "^w^p" Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Text = "^p^p" Selection.Find.Replacement.Text = "[{}]" Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Text = "^p" Selection.Find.Replacement.Text = " " Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Text = "[{}]" Selection.Find.Replacement.Text = "^p" Selection.Find.Execute Replace:=wdReplaceAll End Sub
이 매크로는 “>”
의 최대 4 개 수준을 대체합니다. 줄의 시작 부분에 문자를 넣습니다. 또한 단락 나누기를 원하는 유일한 위치는 빈 줄이있는 위치라고 가정합니다.
_ 참고 : _
이 페이지 (또는 WordTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.
link : / wordribbon-WordTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요]
.
_WordTips_는 비용 효율적인 Microsoft Word 교육을위한 소스입니다.
(Microsoft Word는 세계에서 가장 널리 사용되는 워드 프로세싱 소프트웨어입니다.)이 팁 (1268)은 Microsoft Word 97, 2000, 2002 및 2003에 적용됩니다. Word의 리본 인터페이스에 대한이 팁 버전 (Word 2007)을 찾을 수 있습니다. 이후) 여기 :
link : / wordribbon-Formatting_Text_Files_with_VBA [VBA로 텍스트 파일 서식 지정]
.