VBA를 사용하여 Word 문서 헤더에 텍스트를 삽입 할 수 있습니다.
Set HeaderRange = ActiveDocument.Sections.Item(1).Headers(wdHeaderFooterPrimary).Range
HeaderRange.Text = "header text'
그러나 헤더에 여러 줄의 텍스트를 추가 할 수 있기를 원합니다. 각 줄에는 고유 한 스타일이 적용됩니다.
내가 찾은 한 가지 방법은 다음과 같습니다.
Set HeaderRange = ActiveDocument.Sections.Item(1).Headers(wdHeaderFooterPrimary).Range
HeaderRange.Text = "Line One Text" & vbNewLine & "Line Two Text" & vbNewLine & "Line Three Text"
' set the ranges based on sentences
Set NameRange = HeaderRange.Sentences(1)
Set TitleRange = HeaderRange.Sentences(2)
Set AddressRange = HeaderRange.Sentences(3)
' set the styles for each part
NameRange.Style = "title"
TitleRange.Style = "strong"
AddressRange.Style = "emphasis"
기본적으로 작동하지만 텍스트 줄 중 하나에 마침표 (.)가 있으면 문제가 발생합니다.
헤더에 넣을 텍스트를 여러 부분으로 구분하고 각 부분에 다른 스타일을 적용 할 수있는 더 좋은 방법이 있습니까?
Range.Sentences수집 기간의 위치에 민감이 문장의 종료를 표시한다. Range.Paragraphs수집은 아니지만, 오히려의 위치에 있습니다 vbNewLine당신이 원하는 것을 분명히한다.
Set NameRange = HeaderRange.Paragraphs(1).Range
Set TitleRange = HeaderRange.Paragraphs(2).Range
Set AddressRange = HeaderRange.Paragraphs(3).Range
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다