Excel 매크로: 문자 범위를 굵은 글씨로 왜곡된 텍스트로 설정

Question

내가 원하는 것은 다음과 같습니다. 약 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를 수정한 후 텍스트가 더 이상 왜곡되지 않지만 여전히 별도의 줄로 분할되는 경우가 있습니다. 다음은 제가 의미하는 바를 보여주는 이미지입니다.클릭 해주세요

Answer 1

내 생각엔 코드에 버그가 있는 것 같은데,렌(비월드)해야한다렌(단어). Vba 옵션에서 변수 선언 필요(Option Explicit)를 활성화해야 합니다. 그러한 버그를 찾는 데 도움이 됩니다.