Início / computer / Perguntas / 1541855
Accepted
Elienay Junior
Asked: 2020-04-15 07:14:58 +0800 CST

Extrair palavras em negrito, alguma solução?

  • 772

Pretendo extrair apenas as palavras que estão em negrito, para uma coluna. Alguém tem um código VBA para reconhecer texto em negrito? Preciso que ele reconheça a postagem em negrito e extraia apenas as palavras destacadas insira a descrição da imagem aqui

microsoft-excel

1 respostas

  1. Best Answer

    O Stack Overflow pós Excel extrair palavras em negrito no texto contém a seguinte função VBA para extrair texto em negrito, caractere por caractere:

     Public Function findAllBold(ByVal rngText As Range) As String
    Dim theCell As Range
    Set theCell = rngText.Cells(1, 1)

    For i = 1 To Len(theCell.Value)       
        If theCell.Characters(i, 1).Font.Bold = True Then          
            If theCell.Characters(i + 1, 1).Text = " " Then
                theChar = theCell.Characters(i, 1).Text & ", "
                Else
                theChar = theCell.Characters(i, 1).Text
            End If
            Results = Results & theChar
        End If
   Next i
   findAllBold = Results
End Function

    Esta função adiciona vírgulas entre as palavras encontradas. Para omitir, apague este texto: & ", ". O comando inteiro ifpode, neste caso, ser reduzido para uma linha:
    theChar = theCell.Characters(i, 1).Text.

    Use esta função para extrair o texto em negrito da primeira célula e, em seguida, estenda a fórmula para as seguintes linhas:

    insira a descrição da imagem aqui

    • 20

relate perguntas