Question

如何在delphi操作word时设置缩进

Answer 1

以下示例代码将光标向右移动lCount个字符：procedure TControlWord.MoveToRight(Selected: Boolean; lCount: Integer);var aUnit, aExtend, aCount : OleVariant;begin With FWordApp Do Begin aUnit := wdCharacter; aExtend := wdExtend; aCount := lCount; If Selected Then Selection.MoveRight(aUnit, aCount, aExtend) Else Selection.MoveRight(aUnit, aCount, EmptyParam); End;end;