Sub Macro1()
Dim oTable As Table
Dim oCell As Cell
Dim oRow As Row
Dim oPara As Paragraph
Dim oRng As Range
    Set oTable = Selection.Tables(1)
    For Each oRow In oTable.Rows
        Set oCell = oRow.Cells(2)
        oCell.Range.Font.Size = 11
        For Each oPara In oCell.Range.Paragraphs
            Set oRng = oPara.Range
            oRng.Collapse (1)
            oRng.MoveEndUntil "/"
            oRng.Font.Bold = True
            oRng.Font.Size = 14
            oRng.Collapse (0)
            oRng.Start = oRng.Start + 1
            oRng.MoveEndUntil "/"
            If InStr(1, oRng.Text, "VST") > 0 Or _
               InStr(1, oRng.Text, "PKG") > 0 Then
                oRng.Start = oRng.Start - 1
                oRng.Font.Bold = True
                oRng.Font.Size = 14
            End If
        Next oPara
    Next oRow
    Set oTable = Nothing
    Set oCell = Nothing
    Set oRow = Nothing
    Set oPara = Nothing
    Set oRng = Nothing
End Sub