0

Delphi2010を使用してドキュメントの作成を自動化しています。

私が持っているレイアウトでは、Wordテーブルのセル（1、1）に1行のテキストを挿入してから、次の行に移動し、段落設定を変更して、水平方向のルールを挿入する必要があります

テーブルと最初の行の内容を設定することはできますが、カーソルをセルの2番目の行に移動する方法や、水平線を挿入する方法を一生理解することはできません。

私がこれまでに持っているもの：

   tbl.Cell(1, 1).Range.Text := s;
   with tbl.Cell(1, 1).Range do
   begin
      Font.Name := '+Headings';
      Font.Size := 14;
      Font.Bold := -1;
      Font.AllCaps := -1;
      ParagraphFormat.LineSpacingRule := wdLineSpaceAtLeast;
      ParagraphFormat.LineSpacing := 12;
      ParagraphFormat.SpaceAfter := 0;
      ParagraphFormat.SpaceBefore := 0;
   end;
   tbl.Cell(1, 1).Range.InsertParagraphAfter;

Word 2010のVBAは右クリックで記録されないため、水平線のマクロ（正確なサイズと太さである必要があります）を作成することさえできません...

4

1 に答える 1

0

したがって、新しい行を実行するために必要なコードは次のとおりです

seltype := wdLine;
lineextend := False;
WordApp.Selection.EndKey(seltype, lineextend);
WordApp.Selection.TypeParagraph;

Wordに「終了」信号を送信します。

新しい水平線の記録に関しては、状況によっては、Windows キーボードのコンテキスト メニュー キーがマクロの記録時に機能し、右クリックは機能しないことがわかりました。

于 2011-12-06T11:10:00.413 に答える