check character is bold or not

[anand]

I need a vba code in word to check whether first character of line is bold or not

[Stefan Blom]

More details are needed, for anyone to provide a really helpful reply. Do you want to check the first character of each word, the first character of each sentence, or what?

Also, it would help if you described which end result you are trying to achieve.

[anand]

I have to check first character of each sentence whether it is bold or not.
if sentence starts with number then leave that sentence as it is but if sentence starts with alphabet in bold than i have to delete that sentence.
if first character of sentence is not bold than leave that sentence as it is

[gmayor]

Based on your description, the following macro shoudl do the job. Test it on a copy of the document:

Option Explicit
Sub DeleteBoldSentences()
Dim oSentence As Range
    For Each oSentence In ActiveDocument.Range.Sentences
        If Not IsInteger(Asc(oSentence.Characters(1))) Then
            Do While oSentence.Characters.Last = Chr(13)
                oSentence.End = oSentence.End - 1
            Loop
            If oSentence.Characters(1).Font.Bold Then oSentence.Delete
        End If
    Next oSentence
lbl_Exit:
    Set oSentence = Nothing
    Exit Sub
End Sub

Private Function IsInteger(ByVal i As String) As Boolean
    Select Case i
        Case 48 To 57
            IsInteger = True
        Case Else
            IsInteger = False
    End Select
lbl_Exit:
    Exit Function
End Function