用 TWordApplication 怎么做出水平分隔线?

Question

我们在 Word 里，打三个减号，或是 # 号，再按个 enter，就会自动转换成一条水平分隔线。
现在我要在 TWordApplication、TWordDocument 里怎么实现呢？一般我们使用 TWordApplication，都是先到 Word 里录制 macro，再依照它的 VBA 去改成 Delphi 的码。但我用这老方法录制 macro 时，「三个减号加 enter」这个动作在录制过程并不会自动转换成水平分隔线，所以我一直不知道它是怎么产生的。

Answer 1

在 Office 专区的朋友帮我找到方法了, 和诸位分享:  with WordApplication1.Selection.ParagraphFormat.Borders.Item(wdBorderBottom) do
  begin
    LineStyle := wdLineStyleSingle;
    LineWidth := wdLineWidth075pt;
    Color := wdColorAutomatic;
  end;