#i119555# fix FontWork font size when saving to *.doc file

Patch by: Zuojun Chen
Found by: Lou Qingle
Review by: hdu

filter/source/msfilter/escherex.cxx

@@ -3063,6 +3063,15 @@ void EscherPropertyContainer::CreateCustomShapeProperties( const MSO_SPT eShapeT
                                     }
                                 }
                             }
+                            if ( EscherPropertyValueHelper::GetPropertyValue( aAny, aXPropSet, String( RTL_CONSTASCII_USTRINGPARAM( "CharHeight" ) ), sal_True ) )
+                            {
+                                float fCharHeight = 0.0;
+                                if ( aAny >>= fCharHeight )
+                                {
+                                    sal_Int32 nTextSize = static_cast< sal_Int32 > ( fCharHeight * 65536 );
+                                    AddOpt(ESCHER_Prop_gtextSize, nTextSize);
+                                }
+                            }
                             if ( EscherPropertyValueHelper::GetPropertyValue( aAny, aXPropSet, String( RTL_CONSTASCII_USTRINGPARAM( "CharKerning" ) ), sal_True ) )
                             {
                                 sal_Int16 nCharKerning = sal_Int16();