دلفي أوبن أوفيس أتمتة scalc نص خلية مركز
-
22-07-2019 - |
سؤال
ومرحبا يمكن للشخص الرجاء مساعدتي بما يلي: أريد أن توسيط النص في خلية scalc فتح جدول بيانات المكتب عن طريق دلفي وأدوات OOoTools.
والتعليمة البرمجية التالية لا تعمل:
sRange := '$A$3:$A$3';
ooParams := CreateUnoStruct('com.sun.star.beans.PropertyValue', 1);
ooParams[0].Name := 'ToPoint';
ooParams[0].Value := sRange;
execDispatch('.uno:GoToCell', ooParams);
ooParams := CreateUnoStruct('com.sun.star.beans.PropertyValue', 1);
ooParams[0].Name := 'HorizontalJustification';
ooParams[0].Value := 'com.sun.star.table.CellHoriJustify.CENTER';
execDispatch('.uno:HorizontalJustification', ooParams);
لقد شخص أي فكرة لماذا لا؟ بفضل الإعلان
المحلول
ويبدو أن HorizontalJustification يحتاج إلى enumvalue، ولكن كنت إعطاء السلسلة. لديك لبحث قيمة com.sun.star.table.CellHoriJustify.CENTER
وملء ooParams[0].Value
الخاص به.
وهنا هو وسيلة لبحث وenumvalue: HTTP: // شبكة الاتصالات العالمية. oooforum.org/forum/viewtopic.phtml؟t=16383
في حالة com.sun.star.table.CellHoriJustify.CENTER
بك يساوي 2، لذلك تحتاج:
ooParams[0].Name := 'HorizontalJustification';
ooParams[0].Value := 2;
لا تنتمي إلى StackOverflow