Disable Bold Font by Keystroke?

gmayor · #6 04-05-2021, 09:33 PM

In that case the appointment item content does not match your description of that content. The code was specific to what you said.
The best I can suggest without access to the item is to offer a macro that will bar code the selected text in the appointment body. Select the number you want coding and run the following.

Code:

Sub BarCodeSelected()
'Graham Mayor - https://www.gmayor.com - Last updated - 06 Apr 2021
Dim olItem As AppointmentItem
Dim olInsp As Outlook.Inspector
Dim wdDoc As Object
Dim oRng As Object
Dim oPara As Object
Dim i As Integer
Dim sNum As String
    Set olItem = Application.ActiveExplorer.Selection.Item(1)
    With olItem
        .Save
        Set olInsp = .GetInspector
        Set wdDoc = olInsp.WordEditor
        Set oRng = wdDoc.Windows(1).Selection.Range
        sNum = oRng.Text
        oRng.Fields.Add oRng, 99, Chr(34) & sNum & Chr(34) & Chr(32) & "CODE39" & " \t", False
    End With
lbl_Exit:
    Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Change to Bold font behaviour in Word 2016?	jharrop	Word	3	08-06-2018 05:31 PM
Replace bold font with different bold font	BigJ	PowerPoint	1	07-30-2018 08:06 AM
Disable Asian font in comments or choose Latin font by default	ryofurue	Word	3	05-30-2018 08:33 PM
word 2007 bold not using font	crodgers	Word	1	10-12-2011 04:42 AM
David.ttf font coming up bold	nazareneisrael	Word	0	01-25-2010 11:07 AM