Code doesnt work properly

ksigcajun · #1 04-02-2015, 04:26 AM

The code below will not work properly. I have drop down menu in a Word document called "Grade" and when a user selects Low it will populate text that should bold 7.15 and 2,000,000 while underlining Umbrella Insurance.

If a user selects Minimal, nothing happens and its left blanks, which is correct.

Problem is when a user selects Low, it works. If they switch to Minimal and then choose Low, the entire paragraph is bolded and the alignment is messed up.

Can someone tell me where my code is messing up and how can I correct it?

Thanks!

PHP Code:


			
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim strDetails As String
Dim oCC As ContentControl
Dim oRng As Range
  Set oCC = ActiveDocument.SelectContentControlsByTitle("Grade").Item(1)
    Select Case oCC.Range.Text
      Case "LOW"
        strDetails = "7.1.5     Umbrella Insurance with a minimum limit of not less than $2,000,000 per" & vbCr & _
      "             occurrence." 
      Case "MINIMAL"
        strDetails = " "
    End Select
    If ActiveDocument.Bookmarks.Exists("BM7") Then
      Set oRng = ActiveDocument.Bookmarks("BM7").Range
      oRng.Text = strDetails
          ActiveDocument.Bookmarks.Add "BM7", oRng
          End If
            With oRng.Find







    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "<Umbrella Insurance>"
    .Replacement.Text = "^&"
    .MatchWildcards = True
    .Format = True
    .Replacement.Font.Underline = wdUnderlineSingle
    .Execute Replace:=wdReplaceAll
 
    .Replacement.ClearFormatting
    .Text = "<2,000,000>"
    .Replacement.Font.Bold = True
    .Execute Replace:=wdReplaceAll
 
    .Text = "<7.1.5>"
    .Replacement.Font.Bold = True
    .Execute Replace:=wdReplaceAll
         End With
  End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Deleting and Inserting in Track Change doesnt work	balaji.c	Word	10	01-02-2014 12:14 AM
Powerpoint save as WMV but media doesnt work.	hooney	PowerPoint	0	02-21-2013 09:45 PM
Safe Senders Doesnt work	Anil Kaul	Outlook	0	11-16-2012 01:28 PM
Command Button doesnt work on network	rmw85	Word VBA	1	04-25-2012 01:02 PM
My Product code doesnt work!!!! PLEASE HELP	dukquaknoobhack	Office	1	01-05-2012 03:43 PM