Word 문서에서 책갈피의 이름을 바꾸는 더 간단하고 효과적인 방법이 있습니까?

Word에는 기본적으로 이름 바꾸기 기능이 없습니다. 이 부족을 해결하기위한 몇 가지 옵션이 있습니다.

1. 추가 기능을 사용하십시오.

2. VBA를 사용하십시오.

애드 인 솔루션

북마크 툴 애드 인 사용

표준 책갈피 대화 상자가 수행하는 모든 작업을 수행 할 수있는 친숙한 사용자 인터페이스를 제공합니다.

Bookmark Tool은 Word 2003 용으로 개발되었습니다. Word 2007/2010에서 완전히 작동합니다.

…

“북마크 추가 / 이름 바꾸기”섹션을 사용하면 북마크를 쉽게 추가 할 수 있습니다.

• 표준 대화 상자 에서처럼 텍스트를 선택하고 필드에 이름을 입력 한 다음 “추가”를 클릭하십시오.
• 표준 대화 상자와 달리, 책갈피 도구는 키 항목을 유효한 책갈피 이름 문자로 제한하고 중복 된 책갈피 이름을 작성하려고하면 경고합니다.

• 이 섹션을 사용하여 기존 책갈피의 이름을 바꿀 수도 있습니다.

  

소스 북마크 툴 애드 인

VBA 솔루션

이름 바꾸기 기능이 없습니다. 이전 이름을 삭제하고 새 책갈피 이름으로 범위를 표시해야합니다. 다음은 샘플 VBA 코드입니다.

Sub ReNameBookMark()
    Dim doc As Word.Document
    Dim rng As Word.Range
    Dim bmk As Word.Bookmark
    Dim inpBookmark, repBookmark, fieldStr As String

    Set doc = Word.ActiveDocument

    inpBookmark = InputBox("Enter bookmark name that you want to be replaced:", "BookMark Replace")
    repBookmark = InputBox("Enter bookmark name replace with:", "BookMark Replace")

    Set rng = doc.Bookmarks(inpBookmark).Range
    Set bmk = doc.Bookmarks(inpBookmark)
    bmk.Delete
    rng.Bookmarks.Add (repBookmark)

    If doc.Fields.Count >= 1 Then
        For i = 1 To doc.Fields.Count
            fieldStr = doc.Fields(i).Code.Text
            If Left(fieldStr, 4) = " REF" Then
                doc.Fields(i).Code.Text = Replace(fieldStr, inpBookmark, repBookmark, , 1, vbTextCompare)
                doc.Fields(i).Update
            End If

            'MsgBox "Code = " & doc.Fields(i).Code & vbCr & "Result = " & doc.Fields(i).Result & vbCr
        Next i
    End If
End Sub

소스 책갈피의 텍스트가 아닌 책갈피의 “이름”을 변경하십시오 . 추가 루프를 사용하여 문서의 필드를 통과하여 책갈피의 이름을 바꾸는 참조를 변경할 수 있습니다.

_{이 스크립트를 사용하여주의를 기울여야합니다. 예를 들어, 단순히 “REF”라는 이름을 가진 책갈피의 이름을 바꾸거나 대소 문자 를 바꾸면 재미 있고 예상치 못한 방식으로 모든 참조 가 손상 됩니다 . 이것은 예제이며 거친 수정에만 해당됩니다.}

한 번에 여러 책갈피의 일괄 이름 을 바꾸려면 Word 문서에서 책갈피의 이름을 바꾸는 더 간단하고 효과적인 방법이 있습니까?를 참조하십시오. 여기에는 샘플 VBA 코드도 포함됩니다.

답변