Help with drop down menu changing Italic font when unlinked

macropod · #1 11-23-2015, 11:18 PM

Try:

Code:

Sub UnlinkItalic()
'Unlink Database Macro
Dim bItal As Boolean, Rng As Range
Const Pwd As String = ""
With ActiveDocument
  If .ProtectionType <> wdNoProtection Then
   .Unprotect Password:=Pwd
  End If
  While .FormFields.Count > 0
    Set Rng = .Bookmarks(.FormFields(1).Name).Range
    With Rng
      bItal = .Fields(1).Code.Font.Italic
      .End = .End + 1
      .Fields(1).Unlink
      .End = .End - 1
      .Font.Italic = bItal
    End With
  Wend
End With
End Sub

brent chadwick · #2 11-24-2015, 05:21 AM

Thanks Paul, works great. Again you have managed to make my brain explode. Questions:
1) what does "bltal" stand for?
2) would there have been a better way to write the bookmark code in the conditional content macro?
3) I've looked for a way to use range object to move cursor to right/left and only have seen "Selection.MoveRight Unit: wdCharacter, Count:=1"?
4) If Range object is better that Selection, why does Word record only "Selection"? Again thanks-

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
paragraph drop down menu	noamsa	Word	4	02-12-2015 01:36 PM
Need help with drop-down menu please	cazclocker	Excel	7	01-05-2015 04:07 PM
HELP -- Drop Menu for Reoccuring Data??	cscaudle	Word	1	03-02-2014 10:19 AM
Drop down menu with different value to display name	swsquish	Word	1	09-04-2012 08:45 PM
Merge fields & Drop down menu's	ShadeTree	Word	0	03-09-2010 08:19 AM