M
mas_chen
Unregistered / Unconfirmed
GUEST, unregistred user!
我使用录制宏:代码如下
Sub Macro5()
'
' Macro5 Macro
' 宏在 2006-5-27 由 aaa 录制
'
With Selection.Paragraphs(1).DropCap
.Position = wdDropNormal
.FontName = "MT Extra"
.LinesToDrop = 2
.DistanceFromText = CentimetersToPoints(1)
End With
End Sub
其中将Selection.Paragraphs(1).DropCap
转为Delphi语句怎么通过不了呀?
我使用 word:=createoleobject('word.application)
然后word.selection.paragraphs(1).dropcap语句不能使用 请高手赐教!!!感谢之至!!!
另外:centimeterstopoints()函数前少个句柄,我该如何使用?
Sub Macro5()
'
' Macro5 Macro
' 宏在 2006-5-27 由 aaa 录制
'
With Selection.Paragraphs(1).DropCap
.Position = wdDropNormal
.FontName = "MT Extra"
.LinesToDrop = 2
.DistanceFromText = CentimetersToPoints(1)
End With
End Sub
其中将Selection.Paragraphs(1).DropCap
转为Delphi语句怎么通过不了呀?
我使用 word:=createoleobject('word.application)
然后word.selection.paragraphs(1).dropcap语句不能使用 请高手赐教!!!感谢之至!!!
另外:centimeterstopoints()函数前少个句柄,我该如何使用?