Finding raised characters by 0.5 pt step (Font.Position pb)

iwonder · #2 07-14-2017, 07:57 AM

After deeper internet search it seems that in 2007 that was impossible with pure VBA code.

"When the macro language changed from WordBasic to VBA, the developpers
messed up and defined the position as a Long (integer), although half points
are allowed."

And I think it is the same now in 2017.

Luckily, it can be bypassed with pieces of WordBasic code that can be inserted in the VBA macro code:

Code:

With WordBasic
.EditFindClearFormatting
.EditReplaceClearFormatting
.EditFindClearFormatting
.EditFindFont Position:="4.5"
.EditReplaceFont Superscript:=True
.EditReplace Format:=1, Wrap:=1, ReplaceAll:=True
End With

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
full font characters not appearing immediately	Nayan Nepal	Excel	0	06-28-2016 07:02 AM
Finding a word or phrase in a fiction book's prose without searching characters’ dialogue	Rob_001	Word	10	10-26-2015 12:41 PM
Increase Sentence Font at cursor position	ilcaa72	Word VBA	8	02-20-2014 08:40 AM
Can I bring contents of slide step-by-step	yabi	PowerPoint	1	12-17-2011 03:13 AM
Finding a problem font	RickRS	Word	5	10-14-2011 05:35 PM