Word でブックマークを選択してテーブルを作成する Delphi コードがあります。私の問題は、ページの上部にタイトルがあり、範囲を選択すると選択され、テーブルが作成されるとタイトルが上書きされることです。タイトルが保持されるように、ブックマークの後に範囲を選択してテーブルを追加するにはどうすればよいですか?
R := WordApp.ActiveDocument.Bookmarks.Item('bmStartSecond').Range;
R.Select;
TableFormat(WordDoc, intCounter + 10);
function TableFormat(Adocument : variant; intNumRows : integer): variant;
var
wrdSelection: variant;
begin
wrdSelection := WordApp.Selection;
Adocument.Tables.Add(Range:=wrdSelection.Range, NumRows:=intNumRows, NumColumns:=3);
Adocument.Tables.Item(1).Columns.Item(1).SetWidth(InchestoPoint(2.5),0);
Adocument.Tables.Item(1).Columns.Item(2).SetWidth(InchestoPoint(2.25),0);
Adocument.Tables.Item(1).Columns.Item(3).SetWidth(InchestoPoint(2.75),0);
wordDoc.Tables.Item(1).Cell(Row:=1, Column:= 1).Range.Text := 'Offense:';
wordDoc.Tables.Item(1).Cell(Row:=1, Column:= 2).Range.Text := 'Date & Place:';
wordDoc.Tables.Item(1).Cell(Row:=1, Column:= 3).Range.Text := 'Disposition:';
TableFormat := Adocument;
end;
ありがとう、レスリー