Trying to apply two types of word case formatting to same TextBox Content Control

[gmayor]

Try the following

     For Each oCtrl In .Controls
            If TypeName(oCtrl) = "TextBox" Then
                If oCtrl.Name = "txtDescription" Then
                    Set oCC = ActiveDocument.SelectContentControlsByTag("Description").Item(1)
                    oCC.Range.Text = StrConv(oCtrl.Text, vbProperCase)
                End If
                If oCtrl.Name = "txtKeys" Then
                    If InStr(1, LCase(oCtrl.Text), "yet to be determined") > 0 Then
                        Set oRng = ActiveDocument.SelectContentControlsByTag("Keys").Item(1).Range
                        oRng.Text = StrConv(oCtrl.Text, vbLowerCase)
                        oRng.Words.First = UCase(oRng.Words.First)
                    Else
                        Set oRng = ActiveDocument.SelectContentControlsByTag("Keys").Item(1).Range
                        oRng.Text = StrConv(oCtrl.Text, vbProperCase)
                        oRng.Words.Last = UCase(oRng.Words.Last)
                    End If
                Else
                    ActiveDocument.SelectContentControlsByTag(Replace(oCtrl.Name, "txt", "")).Item(1).Range.Text = oCtrl.Text
                End If
            End If
     Next oCtrl