Word 문서에서 여러 줄을 하나의 단락으로 병합하거나 결합하는 방법은 무엇입니까?
Word 문서에 수백 개의 단락이있는 경우이 문서를 인쇄 할 때 많은 종이가 필요합니다. 논문을 절약하기 위해 이러한 여러 줄을 하나의 단락으로 병합 할 수 있습니다. 그러나 Word 문서에서 이러한 모든 줄을 하나의 단락으로 빠르고 쉽게 결합 할 수 있습니까?
찾기 및 바꾸기 기능을 사용하여 여러 줄을 하나의 단일 단락으로 병합 또는 결합
VBA 코드를 사용하여 여러 줄을 하나의 단일 단락으로 병합 또는 결합
찾기 및 바꾸기 기능을 사용하여 여러 줄을 하나의 단일 단락으로 병합 또는 결합
찾기 및 바꾸기 Word의 기능은 여러 줄을 한 단락으로 병합하는 데 도움이 될 수 있습니다. 다음과 같이하십시오.
1. 한 단락으로 병합 할 단락을 선택합니다.
2. 그런 다음 홈 > Find > 상세 검색 가다 찾기 및 바꾸기 대화 상자에서 찾기 및 바꾸기 대화 상자에서 Find 탭을 입력하십시오 ^p 로 무엇을 찾기 텍스트 상자를 선택한 다음 현재 선택 옵션에서 찾기 드롭 다운 목록, 스크린 샷 참조 :
3. 그런 다음 교체 탭을 누르고 로 교체 빈 텍스트 상자를 클릭 한 다음 모두 바꾸기 버튼, 스크린 샷 참조 :
4. 선택한 모든 단락이 하나의 단일 단락으로 병합되었습니다. 스크린 샷을 참조하십시오.
VBA 코드를 사용하여 여러 줄을 하나의 단일 단락으로 병합 또는 결합
다음은 Word에서이 작업을 완료하는 데 도움이되는 또 다른 유용한 방법입니다. 다음 단계를 수행하십시오.
1. 하나의 단락으로 병합 할 줄을 선택합니다.
2. 그런 다음 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.
3. 그런 다음 끼워 넣다 > 모듈, 아래 코드를 복사하여 열린 빈 모듈에 붙여 넣습니다.
VBA 코드 : 여러 줄을 하나의 단락으로 병합 :
Sub CleanUpPastedText()
Dim xSelection As Selection
On Error Resume Next
Application.ScreenUpdating = False
Set xSelection = Application.Selection
If xSelection.Type <> wdSelectionIP Then
FindAndReplace xSelection
Else
If MsgBox("Do you want to merge all selected lines into one paragraph?", vbYesNo + vbInformation, "Kutools for Word") = vbNo Then Exit Sub
xSelection.WholeStory
Set xSelection = Application.Selection
xSelection.HomeKey wdStory
FindAndReplace xSelection
End If
Application.ScreenUpdating = True
Application.ScreenRefresh
MsgBox "The selected lines have been merged into one paragraph.", vbInformation, "Kutools for Word"
End Sub
Sub FindAndReplace(Sel As Selection)
With Sel.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Text = "[^s^t]{1,}^13"
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
.Text = "([!^13])([^13])([!^13])"
.Replacement.Text = "\1\3"
.Execute Replace:=wdReplaceAll
.Text = "[ ]{2,}"
.Replacement.Text = " "
.Execute Replace:=wdReplaceAll
.Text = "([a-z])-[ ]{1,}([a-z])"
.Replacement.Text = "\1\2"
.Execute Replace:=wdReplaceAll
.Text = "[^13]{1,}"
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
End With
End Sub
4. 그런 다음 F5 키를 눌러이 코드를 실행하고 선택한 모든 단락이 다음 스크린 샷과 같이 하나의 단락으로 결합되었습니다.
최고의 사무 생산성 도구
Word 용 Kutools - Over로 단어 경험을 향상시키세요 100 놀라운 기능!
🤖 Kutools AI 도우미: AI로 글쓰기를 변화시키세요 - 콘텐츠 생성 / 텍스트 다시 쓰기 / 문서 요약 / 정보 문의 문서 기반, 모두 Word 내에서
📘 문서 숙달: 페이지 분할 / 문서 병합 / 다양한 형식으로 선택 항목 내보내기(PDF/TXT/DOC/HTML...) / PDF로 일괄 변환 / 페이지를 이미지로 내보내기 / 한 번에 여러 파일 인쇄...
✏ 컨텐츠 편집: 일괄 찾기 및 바꾸기 여러 파일에 걸쳐 / 모든 사진 크기 조정 / 테이블 행과 열 바꾸기 / 표를 텍스트로 변환...
🧹 손쉬운 청소: 쓸어버리다 추가 공간 / 섹션 나누기 / 모든 헤더 / 텍스트 상자 / 하이퍼 링크 / 더 많은 제거 도구를 보려면 다음 페이지를 방문하세요. 그룹 제거...
➕ 광고 삽입물: 삽입 천 단위 구분 기호 / 확인란 / 라디오 버튼 / QR 코드 / 바코드 / 대각선 표 / 방정식 캡션 / 이미지 캡션 / 테이블 캡션 / 여러 장의 사진 / 더 자세히 알아보세요. 그룹 삽입...
🔍 정밀한 선택: 핀포인트 특정 페이지 / 테이블 / 모양 / 제목 단락 / 탐색 기능 향상 배우기 기능 선택...
⭐ 스타 강화: 어떤 위치로든 빠르게 이동 / 반복되는 텍스트 자동 삽입 / 문서 창 간을 원활하게 전환합니다. / 11 변환 도구...