小
小小生
Unregistered / Unconfirmed
GUEST, unregistred user!
我现在在将office宏转化成delphi代码时碰到了一些问题:
譬如:在动态创建word和excel时,vba中的代码转化成delphi时,delphi不能使用
如在vba中的居中对齐,selectiong.horizontalalignment:=xlcenter
其align 或者alignment 属性不能识别。
还有就是对段落的操作,不能识别paragraphformat
此下的都是录制经修改的宏,在delphi下的都不能运行。
pp_handle.Application.Selection.Find.ClearFormatting;
app_Handle.Application.Selection.Find.text:='今天,我有幸拜读了关于他的《邓小平文选》,
它精辟而通俗的实录了在中国改革发展腾飞的一路中,我们的伟人所起的作用,所作的果断决策。
掩卷遐思,对其中关于改革的篇章感受颇深。';
app_Handle.Application.Selection.Find.Execute;
if app_handle.application.Selection.paragraphformat.Alignment = wdAlignParagraphCenter then
if app_handle.application.Selection.Paragraphformat.font.Alignment = wdAlignParagraphCenter then
score:=score+3; //居中得3分。
app_handle.application.Selection.ParagraphFormat.FirstLineIndent := CentimetersToPoints(-0.35);
if app_handle.application.Selection.ParagraphFormat.CharacterUnitLeftIndent = 6 then
score:=score+3; //向左缩进6字符,得3分
if app_handle.application.Selection.ParagraphFormat.CharacterUnitFirstLineIndent = -2 then
score:=score+3; //悬挂2字符,得3分
此外,在excel中也是不能识别对齐方式。
如有精通delphi的高手,请尽快予以回答,不胜感激!
或告之于本人信箱:zhangkuii@sohu.com
譬如:在动态创建word和excel时,vba中的代码转化成delphi时,delphi不能使用
如在vba中的居中对齐,selectiong.horizontalalignment:=xlcenter
其align 或者alignment 属性不能识别。
还有就是对段落的操作,不能识别paragraphformat
此下的都是录制经修改的宏,在delphi下的都不能运行。
pp_handle.Application.Selection.Find.ClearFormatting;
app_Handle.Application.Selection.Find.text:='今天,我有幸拜读了关于他的《邓小平文选》,
它精辟而通俗的实录了在中国改革发展腾飞的一路中,我们的伟人所起的作用,所作的果断决策。
掩卷遐思,对其中关于改革的篇章感受颇深。';
app_Handle.Application.Selection.Find.Execute;
if app_handle.application.Selection.paragraphformat.Alignment = wdAlignParagraphCenter then
if app_handle.application.Selection.Paragraphformat.font.Alignment = wdAlignParagraphCenter then
score:=score+3; //居中得3分。
app_handle.application.Selection.ParagraphFormat.FirstLineIndent := CentimetersToPoints(-0.35);
if app_handle.application.Selection.ParagraphFormat.CharacterUnitLeftIndent = 6 then
score:=score+3; //向左缩进6字符,得3分
if app_handle.application.Selection.ParagraphFormat.CharacterUnitFirstLineIndent = -2 then
score:=score+3; //悬挂2字符,得3分
此外,在excel中也是不能识别对齐方式。
如有精通delphi的高手,请尽快予以回答,不胜感激!
或告之于本人信箱:zhangkuii@sohu.com