Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #22  
Old 01-17-2019, 05:11 AM
Grumpy Grumpy is offline I need a slashed zero Windows 10 I need a slashed zero Office 2016
Novice
 
Join Date: Jan 2019
Posts: 2
Grumpy is on a distinguished road
Default Nukedaddy's Slashed Zero

Since most of the solutions suggested are based on using an “O” character, none are really suitable. I had the same problem some time ago and solved it using a combination of the “Ctrl+F9” method and a short macro. This will work with whatever font you are using and can be added to the Ribbon or the Quick Action Toolbar as you chose.

************************************************** ******************

Sub SlashedZero()
'
'Insert SlashZero
'
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
Text:="EQ \o (0,/)", PreserveFormatting:=False
'
' Remove the extra space that is inserted in the field.
'
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
Selection.MoveLeft Unit:=wdCharacter, Count:=2
Selection.Delete Unit:=wdCharacter, Count:=1
'
' Move insertion point to the right of the field.
'
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub

************************************************** ******************
 



Other Forums: Access Forums

All times are GMT -7. The time now is 06:01 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft