Note: The other languages of the website are Google-translated. Back to English

Word 문서에서 여러 줄을 하나의 단락으로 병합하거나 결합하는 방법은 무엇입니까?

Word 문서에 수백 개의 단락이있는 경우이 문서를 인쇄 할 때 많은 종이가 필요합니다. 논문을 절약하기 위해 이러한 여러 줄을 하나의 단락으로 병합 할 수 있습니다. 그러나 Word 문서에서 이러한 모든 줄을 하나의 단락으로 빠르고 쉽게 결합 할 수 있습니까?

찾기 및 바꾸기 기능을 사용하여 여러 줄을 하나의 단일 단락으로 병합 또는 결합

VBA 코드를 사용하여 여러 줄을 하나의 단일 단락으로 병합 또는 결합


찾기 및 바꾸기 기능을 사용하여 여러 줄을 하나의 단일 단락으로 병합 또는 결합

또한 찾기 및 바꾸기 Word의 기능은 여러 줄을 한 단락으로 병합하는 데 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 한 단락으로 병합 할 단락을 선택합니다.

2. 그런 다음 > 발견 > 상세 검색 가다 찾기 및 바꾸기 대화 상자에서 찾기 및 바꾸기 대화 상자에서 발견 탭을 입력하십시오 ^p무엇을 찾기 텍스트 상자를 선택한 다음 현재 선택 옵션에서 찾기 드롭 다운 목록, 스크린 샷 참조 :

문서는 여러 줄을 병합 1

3. 그런 다음 교체 탭을 누르고 로 교체 빈 텍스트 상자를 클릭 한 다음 모두 바꾸기 버튼, 스크린 샷 참조 :

문서는 여러 줄을 병합 2

4. 선택한 모든 단락이 하나의 단일 단락으로 병합되었습니다. 스크린 샷을 참조하십시오.

문서는 여러 줄을 병합 3


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 키를 눌러이 코드를 실행하고 선택한 모든 단락이 다음 스크린 샷과 같이 하나의 단락으로 결합되었습니다.

문서는 여러 줄을 병합 4


추천 단어 생산 도구

 

Word 용 Kutools-Word 용 100 개 이상의 고급 기능으로 50 % 시간 절약

  • 복잡하고 반복되는 작업은 몇 초 만에 한 번 처리 할 수 ​​있습니다.
  • 여러 폴더의 이미지를 한 번에 Word 문서에 삽입합니다.
  • 폴더에있는 여러 Word 파일을 원하는 순서대로 하나로 병합하고 결합합니다.
  • 제목, 섹션 나누기 또는 기타 기준에 따라 현재 문서를 별도의 문서로 분할합니다.
  • Doc과 Docx, Docx와 PDF, 일반적인 변환 및 선택을위한 도구 모음 등의 파일 변환 ...
코멘트 (5)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
정말 감사합니다
이것은 내가 수동으로 하고 있던 시간을 절약하는 데 도움이 됩니다. 60페이지 후에 2페이지였습니다. 피곤하고 다른 바로 가기를 찾기 시작합니다.
감사합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Google 문서에서 이 단어를 만드는 방법이 있습니까? 단계를 수행했지만 이것은 데스크톱 및 온라인 버전의 Microsoft Word에서만 작동합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
고맙습니다! 덕분에 70개 이상의 끊어진 문장을 단락으로 개별적으로 축소해야 하는 시간을 절약할 수 있었습니다. 지니어스입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
내가 테스트한 첫 번째 단계는 충분히 훌륭합니다. 내가 들은 최고의 트릭이었다. 고맙습니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
고마운 친구
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0  등장 인물
추천 위치