Excel 매크로 : 문자 범위를 굵은 글씨로 설정

제가하고 싶은 것은 다음과 같습니다 : 나는 ~ 1400 행 주위에 데이터로 가득차 있으며 마지막 열에는 많은 텍스트가 들어있다. 제가 의미하는 것을 보여주는 이미지는 다음과 같습니다. 한 번에 2 개의 링크 만 게시 할 수 있기 때문에 이미지가 삭제되었습니다.

이제는 그 텍스트를 더 읽기 쉽게하기 위해, 나는 그 단어에 대해 과감한 말을하고 싶다.

지금은 다음 매크로가 있습니다.

Dim range As range
Set range = Application.Selection

Dim boldwords As Variant
boldwords = Array("Atemschutz:", "Körperschutz:", "Handschutz:", "Augenschutz:")


Dim cell As range
For Each cell In range
    For Each bword In boldwords
        foundword = InStr(1, cell.Text, bword, VbCompareMethod.vbTextCompare)
        If foundword <> 0 Then
            cell.Characters(foundword, Len(bworld)).Font.Bold = True
        End If
    Next
Next

1. 선택한 모든 셀을 반복합니다.
2. 굵게 표시해야 할 모든 단어를 반복하여 셀에 포함되어 있는지 확인하십시오.
3. 그들이 그렇다면 대담하게

이제 내 문제는 일단 텍스트를 실행하면 내 텍스트가 완전히 굵게 표시되거나 왜곡됩니다. 이처럼 , 또는 모든 문자를 별도의 줄에 배치합니다. Excel은 속도가 느려지거나 정지 한 후 가끔 충돌합니다.

이것을 막기 위해 할 수있는 일은 무엇입니까?

업데이트 : Siphor가 언급 한 변수 이름을 수정 한 후에 텍스트가 더 이상 왜곡되지 않지만 때때로 별도의 줄로 분할됩니다. 여기에 내가 의미하는 것을 보여주는 이미지가 있습니다. 클릭 해주세요

나는 당신의 코드에서 버그라고 생각한다. 렌 (bworld) 해야한다 렌 (단어) . Vba 옵션에서 Variable declaration required (Option Explicit)를 활성화해야합니다. 이러한 버그를 찾는 데 도움이됩니다.