Finding characters within fonts

[solbjerg]

Hi All

If you want to find out which font has a character you want - you can use this Excel file where you allow the macro to run to display which font has the character and what it looks like in that font.

For example to find out which font has the square root sign √you √like best or which π π you like best. e.g. I only have the rod of Aesculapius ⚕⚕ (Alt+9877) in two fonts - DejaVu Sans Mono and Unicode Symbols.

I like the one in Unicode Symbols best.

You start by placing the character you want to find in A1 and then click the yellow button - and voila!

File attached!

Cheers

solbjerg

A1InAllFonts.zip

[titou56]

Hi Solbjerg ;-)

 

Well, thank you...

 

I recently have to uninstall Microsoft office 2007 and I am now using Open office 3.1. So, I've encoutered a bug with the macro translation and it doesn't work.

 

A few days ago I had to found the "squared root" symbol for the "have a laugh on me" thread, in wich I told about money and woman, so I tried to insert formula object :evil: and finaly used Paint :sad:

 

cheers :razz:

[solbjerg]

Hi titou

What bug is that? Is it that you can't change the character in A1?

Excel uses VBA for macroes I do not remember what OO uses.

There must be some help for this in Open office calculator?

Is far as I remember one can download a file that allows one to view Excel files? Wonder if it also shows macroes?

Cheers

solbjerg

 

Hi Solbjerg ;-)

 

Well, thank you...

 

I recently have to uninstall Microsoft office 2007 and I am now using Open office 3.1. So, I've encoutered a bug with the macro translation and it doesn't work.

 

A few days ago I had to found the "squared root" symbol for the "have a laugh on me" thread, in wich I told about money and woman, so I tried to insert formula object :evil: and finaly used Paint :sad:

 

cheers :razz:

[titou56]

Hi Solbjerg ;-)

 

here is the error window :

 

http://i46.tinypic.com/2aj6pmo.jpg

 

I'am going to correct the macro and send you the OoO file in return...

[solbjerg]

Hi titou

If you get it to work, then place it as an ocd (isn't that what they are called :-) ) file attached to this same thread please

Looks like the file for an Excel viewer should be saved in:

Microsoft Office Excel 2007 macro-enabled document (.xlsm)

The problem might also be related to security settings perhaps

Cheers

solbjerg

 

 

Hi Solbjerg ;-)

 

here is the error window :

 

http://i46.tinypic.com/2aj6pmo.jpg

 

I'am going to correct the macro and send you the OoO file in return...

[titou56]

Hi

 

Well, I am sorry, I can't propose the OOO solution... :sad:

 

but here is an interresting link : http://nirsoft.net/utils/winfontsview.zip :-P

 

cheers

[solbjerg]

Hi titou

yes, there are several - I use Arjan Mel's fontviewer.

In my opinion one of the best.

But the Excel macro makes it easy to choose which font for what sign (if one can get it to work that is :-) )

I will try to look into what can be the trouble with the compatibility between Excel and OoOCalc.

Cheers

solbjerg

 

 

Hi

 

Well, I am sorry, I can't propose the OOO solution... :sad:

 

but here is an interresting link : http://nirsoft.net/utils/winfontsview.zip :-P

 

cheers

[titou56]

Xlm

 

Hi Solbjerg,

 

Well it is a quit different in OOO macroses

 

This is the translated code, if a specialist may help us...

 

 

Attribute VBA_ModuleType=VBADocumentModule

Sub Sheet1

Sub A1AllFonts()

Rem 'Skriver en tekst fra A1 i samtlige fonts i B1 og ned, og fontnavn i C1 og ned

Rem 'Trick fra http://j-walk.com/ss/excel/tips/tip79.htm

Dim i, j, fn$, t$, FontList As CommandBarControl

Rem

Individuelt tegnformat, ActiveCell

On Error Resume Next

With ActiveCell

t = .Text: .ClearContents: fn = .Font.Name: .Formula = t

For j = 1 To .Characters.Count

With .Characters(j)

If AscW(.Text) > 256 Then

.Font.Size = 10

.Font.Name = "Arial Unicode MS" '"Arial Unicode MS","Cambria Math","Lucida Sans Unicode"

Else

.Font.Size = 10

.Font.Name = fn

End If: End With: Next: End With

Exit Sub

Rem

Application.ScreenUpdating = False

Set FontList = Application.CommandBars("Formatting").FindControl(ID:=1728)

t = [a1].Value: [b:c].Clear

For i = 1 To FontList.ListCount

Cells(i, 2).Font.Name = FontList.List(i)

Cells(i, 2).Formula = t

Cells(i, 3).Formula = FontList.List(i)

Next

Application.ScreenUpdating = True

End Sub

Rem

End Sub

 

 

First error on "CommandBarControl", I don't find the equivalence...

 

 

Cheers

[solbjerg]

Hi titou

Yes I know the problem is that in MsOffice VBA is used while Basic is used in Open Office.

The only way I think is to rewrite the whole macro in Basic - quite a drawback in the setup of Open Office that otherwise works rather fine.

Easiest way for me is to make you get hold of an Excel program :-)

I will ask my brother if he remembers enough Basic commands to do it easily.

Strange that Open Office hasn't followed suit and changed the programming to VBA!!??

Cheers

solbjerg

 

 

Hi Solbjerg,

 

Well it is a quit different in OOO macroses

 

This is the translated code, if a specialist may help us...

 

 

Attribute VBA_ModuleType=VBADocumentModule

Sub Sheet1

Sub A1AllFonts()

Rem 'Skriver en tekst fra A1 i samtlige fonts i B1 og ned, og fontnavn i C1 og ned

Rem 'Trick fra http://j-walk.com/ss/excel/tips/tip79.htm

Dim i, j, fn$, t$, FontList As CommandBarControl

Rem

Individuelt tegnformat, ActiveCell

On Error Resume Next

With ActiveCell

t = .Text: .ClearContents: fn = .Font.Name: .Formula = t

For j = 1 To .Characters.Count

With .Characters(j)

If AscW(.Text) > 256 Then

.Font.Size = 10

.Font.Name = "Arial Unicode MS" '"Arial Unicode MS","Cambria Math","Lucida Sans Unicode"

Else

.Font.Size = 10

.Font.Name = fn

End If: End With: Next: End With

Exit Sub

Rem

Application.ScreenUpdating = False

Set FontList = Application.CommandBars("Formatting").FindControl(ID:=1728)

t = [a1].Value: [b:c].Clear

For i = 1 To FontList.ListCount

Cells(i, 2).Font.Name = FontList.List(i)

Cells(i, 2).Formula = t

Cells(i, 3).Formula = FontList.List(i)

Next

Application.ScreenUpdating = True

End Sub

Rem

End Sub

 

 

First error on "CommandBarControl", I don't find the equivalence...

 

 

Cheers

[solbjerg]

Hi titou

Don't you have Word on your computer?

If not - then you probably have WordPad

The function hex number 221A works there if you use Alt+x while right behind the A in 221A. Also in ASCII it works with Alt+8730.

So just write the content of your post in WordPad - copy it and paste it in your post in the forum. Or find it in your Character symbol, use the hex number to find it there, copy it and insert it here √ - see it works!

This is another place i Open Office where it doesn't work like in Microsoft Word, the unicode codetables are different in Open Office the function Alt+8730 gives you → this sign - which in reality is 8594 in the unicode table. There ought to be some settings that will change that standard in Open Office.

Would be nice with a Symbol function option in this post window too, also it would be nice if the Alt+number worked correctly here over(higher numbers) than the utf 8 codetable, same problem as in OO, but Excel also has the same problem - one can get around it there by having a function =chrw(number) (gives the sign) and a function =codew(cell with character) there (gives the number), - which I have.

Cheers

solbjerg

 

 

Hi Solbjerg ;-)

 

Well, thank you...

 

I recently have to uninstall Microsoft office 2007 and I am now using Open office 3.1. So, I've encoutered a bug with the macro translation and it doesn't work.

 

A few days ago I had to found the "squared root" symbol for the "have a laugh on me" thread, in wich I told about money and woman, so I tried to insert formula object :evil: and finaly used Paint :sad:

 

cheers :razz:

[Melvin_Deal]

Basic is obsolete.

 

The old command types are osolete... Basic, fortran, etc. My first exposure to computing was in 1982, using a "state of the art" Apple IIE. I studied and wrote my own Basic programs then (the new thing), and only a couple of years later fortran(even older command language).

 

The old types are bulky and slow... like old cars, no matter how many horses you put under the hood... they will wipe out in the curve because the body is so heavy and the suspension so inadequate.

[solbjerg]

Hi titou and Mel

My brother figured out what is going on with 8730 and 8594

8730 = 34*256 + 26

This is seen as 26 like in the old DOS tables (Utf 8 and its multiplum is ignored) and Alt+26 is → While in the unicode table Alt+026 is the end mark (invisible). In this table → is moved to unicode number 8594 in close proximity to the other arrows.

In Windows/Word there is a table that moves all signs into the unicode system - that's why it works correctly there.

The other applications do not have that table and rely instead on DOS and utf 8, some may even rely on utf 7.

This also means that this writing window is not quite fully unicode supported - but close to it though.

Cheers

solbjerg

 

The old command types are osolete... Basic, fortran, etc. My first exposure to computing was in 1982, using a "state of the art" Apple IIE. I studied and wrote my own Basic programs then (the new thing), and only a couple of years later fortran(even older command language).

 

The old types are bulky and slow... like old cars, no matter how many horses you put under the hood... they will wipe out in the curve because the body is so heavy and the suspension so inadequate.