Word 문서의 모든 표 스타일을 일괄 지우기위한 3 가지 유용한 방법

지금 공유 :

이 기사에서는 Word 문서의 모든 표 스타일을 일괄 적으로 지우는 세 가지 유용한 방법을 설명하는 데 중점을 둘 것입니다.

가끔씩 Word 표에 원하지 않는 스타일이 적용되거나 전체 문서의 시각적 효과가 감소하는 경우 스타일을 지워야합니다. 이제 이러한 작업을 수행하는 방법을 보여 드리겠습니다.Word 문서의 모든 표 스타일 일괄 지우기

방법 1 : 한 단어 표 스타일 지우기

  1. 첫 번째와 포름ost, 커서를 tar테이블의 왼쪽 상단에 십자 표시가 보일 때까지 테이블을 가져옵니다.
  2. 다음으로 십자 기호를 클릭하여 전체 테이블을 선택하십시오.
  3. 이제 "표 도구"를 트리거했습니다. “디자인”탭을 클릭합니다.
  4. 그런 다음 "표 스타일"그룹에서 "추가"버튼을 클릭하여 드롭 다운 메뉴를 표시합니다.
  5. "지우기"옵션을 선택하십시오.테이블 선택-> "디자인"클릭-> "지우기"클릭
  6. 이제 표 스타일이 제거되었습니다. 모든 테이블 테두리도 마찬가지입니다. 표에 테두리를 추가하려면 표가 선택되어 있는지 확인하십시오. 그리고 "Borders"명령 옆에있는 드롭 다운 버튼을 클릭합니다.
  7. 그리고 "모든 테두리"를 선택합니다."테두리"명령 옆에있는 드롭 다운 버튼을 클릭하고 "모든 테두리"를 선택합니다.

결과는 다음과 같습니다.테이블 스타일 지우기 및 테두리 추가 효과

방법 2 : 한 문서에서 모든 표 스타일 일괄 지우기

단일 테이블을 완료하면 일괄 처리 주제를 놓칠 수 없습니다. 먼저 VBA를 통해 문서의 모든 표 스타일을 지우는 방법을 살펴 보겠습니다.

  1. 에tart와 함께 "Alt + F11"을 눌러 Word에서 VBA 편집기를 표시합니다.
  2. 다음으로 왼쪽 열에서 "일반"프로젝트를 클릭합니다.
  3. 그런 다음 메뉴 표시 줄에서 "삽입"을 클릭합니다.
  4. 드롭 다운 메뉴에서 "모듈"을 선택합니다."일반"클릭-> "삽입"클릭-> "모듈"클릭
  5. 모듈의 코딩 공간을 두 번 클릭하여 엽니 다.
  6. 이제 여기에 다음 매크로를 붙여 넣으십시오.
Sub ClearTableStylesInADoc()
  Dim objTable As Table
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objTable In objDoc.Tables
    objTable.Style = "Table Normal"
    objTable.Borders.Enable = True
  Next objTable
 
  Application.ScreenUpdating = True
 
  Set objDoc = Nothing
End Sub
  1. 마지막으로 "실행"을 클릭합니다.매크로 붙여 넣기-> "실행"클릭

이 매크로는 문서의 모든 표 스타일을 지우고 "표 보통"스타일을 적용하며 표 테두리도 추가합니다.

방법 3 : 여러 문서의 모든 표 스타일 일괄 지우기

이제 처리 할 문서가 두 개있는 경우 여러 문서에서 모든 표 스타일을 지우는 매크로가 있습니다.

  1. 먼저 모든 문서를 하나의 폴더에 정렬합니다.
  2. 방법 2의 단계를 반복하여 매크로를 설치하고 실행합니다.
  3. 이번에 만 다음 매크로로 교체해야합니다.
Sub ClearTableStylesInMultiDoc()
  Dim objTable As Table
  Dim objDoc As Document
  Dim StrFolder As String
  Dim strFile As String
  Dim dlgFile As FileDialog
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first."
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
    Set objDoc = ActiveDocument
 
    For Each objTable In objDoc.Tables
      objTable.Style = "Table Normal"
      objTable.Borders.Enable = True
    Next objTable
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub
  1. 매크로를 실행하면 "찾아보기"창이 나타납니다. 1 단계에서 문서를 저장 한 폴더를 선택하고 "확인"을 클릭합니다.폴더를 선택하고 "확인"을 클릭합니다.

나머지 작업은 매크로에 맡기십시오.

L을 되 찾는 방법ost 서류

lost 문서, 우리는 문서가 단어 손상 또는 인적 오류. 이러한 문서를 처리하는 동안 일부 고급 복구 도구를 사용하여 검색 할 수 있다는 점을 항상 염두에 두어야합니다.

저자 소개 :

Vera Chen은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. xls 수리 pdf 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM

지금 공유 :

댓글이 닫혀있다.