You can insert or type the Sigma symbol in Word documents in several ways. Can anyone please modify the below code to add the superscript for these two symbols.įor the symbols %, ° there should be no spaces.Insert the Sigma Symbol in Word Documents (Upper or Lower Case)īy Avantix Learning Team | Updated September 30, 2021Īpplies to: Microsoft ® Word ® 2013, 2016, 2019 or 365 (Windows) Superscript I used the function ".Font.Superscript = True" however it did not change to superscript. The code that I have only changes the font. Number=228) and Trade Mark " ™" (Character number=226) to be in superscript if they are not already. However I want the symbols for Registered mark " ®" (Character I have a code that changes symbols in "normal text" font to "symbol" font. InsertSymbol Font:="Symbol", CharacterNumber:=108, Unicode:=True InsertSymbol Font:="Symbol", CharacterNumber:=103, Unicode:=TrueĬase ChrW(&H3BB). InsertSymbol Font:="Symbol", CharacterNumber:=226, Unicode:=TrueĬase ChrW(&H3B3). InsertSymbol Font:="Symbol", CharacterNumber:=227, Unicode:=TrueĬase "®". InsertSymbol Font:="Symbol", CharacterNumber:=228, Unicode:=TrueĬase "©". InsertSymbol Font:="Symbol", CharacterNumber:=61, Unicode:=TrueĬase "™". InsertSymbol Font:="Symbol", CharacterNumber:=37, Unicode:=TrueĬase "=". InsertSymbol Font:="Symbol", CharacterNumber:=35, Unicode:=TrueĬase "%". InsertSymbol Font:="Symbol", CharacterNumber:=62, Unicode:=TrueĬase "#". It would be great if this can be achieved. Sometimes the spaces are in place as per the requirement, in that case the macro should not add any extra spaces. "25 %" should be "25%" (no space before symbol)Īnd for the symbols =, ±, ≥, ≤, there should be a space before and after the symbol To make them superscript I used the function ".Font.Superscript = True" however it did not change to superscript.Ĭan you guys please modify the below code to add the superscript for these two symbols.Īlso is it possible to have spaces added/removed around the symbols?įor the symbols %, ° there should be no spaces. When I used the above code for these symbols only the font was changed to "Symbol" style. The symbols for Trade mark " ä" (Character number=228) and Registered Mark " â" (Character There is one more situation in the above case. This dosen't give the desired output as my actual live documents contain each symbol more than 50 times at the least and running the program for more number of times does not serve the purpose of macro. Rng.InsertSymbol Font:="Symbol", CharacterNumber:=-3998, Unicode:=TrueĪfter running this code what I observed is, it changes only some symbols when it was run for the first time.
Rng.InsertSymbol Font:="Symbol", CharacterNumber:=-3999, Unicode:=True Rng.InsertSymbol Font:="Symbol", CharacterNumber:=-3919, Unicode:=True Rng.InsertSymbol Font:="Symbol", CharacterNumber:=-4053, Unicode:=True Rng.InsertSymbol Font:="Symbol", CharacterNumber:=-3987, Unicode:=True Rng.InsertSymbol Font:="Symbol", CharacterNumber:=-3933, Unicode:=True Rng.InsertSymbol Font:="Symbol", CharacterNumber:=-3917, Unicode:=True Rng.InsertSymbol Font:="Symbol", CharacterNumber:=-3920, Unicode:=True Rng.InsertSymbol Font:="Symbol", CharacterNumber:=-4036, Unicode:=True Rng.InsertSymbol Font:="Symbol", CharacterNumber:=-4034, Unicode:=True InsertSymbol Font:="Symbol", CharacterNumber:=228, Unicode:=Trueĭo note that the symbols ™, ©, ® are already positioned above the font baseline, so superscripting really shouldn't be necessary. InsertSymbol Font:="Symbol", CharacterNumber:=227, Unicode:=TrueĬase "™". InsertSymbol Font:="Symbol", CharacterNumber:=226, Unicode:=TrueĬase "©". InsertSymbol Font:="Symbol", CharacterNumber:=126, Unicode:=TrueĬase "®". InsertSymbol Font:="Symbol", CharacterNumber:=62, Unicode:=TrueĬase "~". 'Remove spaces after the symbols , ±, =, = InsertSymbol Font:="Symbol", CharacterNumber:=98, Unicode:=True InsertSymbol Font:="Symbol", CharacterNumber:=97, Unicode:=TrueĬase ChrW(&H3B2). InsertSymbol Font:="Symbol", CharacterNumber:=163, Unicode:=TrueĬase ChrW(&H3B1). InsertSymbol Font:="Symbol", CharacterNumber:=179, Unicode:=TrueĬase ChrW(&H2264). InsertSymbol Font:="Symbol", CharacterNumber:=177, Unicode:=TrueĬase ChrW(&H2265). InsertSymbol Font:="Symbol", CharacterNumber:=43, Unicode:=TrueĬase "±". InsertSymbol Font:="Symbol", CharacterNumber:=109, Unicode:=TrueĬase "+".
InsertSymbol Font:="Symbol", CharacterNumber:=176, Unicode:=TrueĬase "µ". InsertSymbol Font:="Symbol", CharacterNumber:=60, Unicode:=TrueĬase "°". InsertSymbol Font:="Symbol", CharacterNumber:=62, Unicode:=TrueĬase "<". It's difficult to know from your post whether some of the content you're trying to Find (i.e.