关于在Delphi中控制Word的问题

Question

请问在Delphi中如何合并表格中的单元格？

Answer 1

//转载
var
　Range: Variant;
begin
　Range := v.Workbooks[1].WorkSheets['数据录入'].Range['A2:M2’]; //单元格从A2到M2 
  Range.Merge; //合并单元格
　Range.Rows.RowHeight := 20; //设置行高
　Range.Borders.LineStyle := 1; //加边框
　Range.Columns[2].ColumnWidth := 12; // 设置列宽
　Range.FormulaR1C1 := '标题';
　Range.HorizontalAlignment := xlCenter; //水平对齐方式 
　Range.VerticalAlignment := xlCenter; //垂直对齐方式
　Range.Characters.Font.Name := '宋体'; //字体
　Range.Characters.Font.FontStyle := '加粗';
　Range.Characters.Font.Size := 12;
　Range.Characters.Font.OutlineFont := False; //是否有下划线
　Range.Characters.Font.ColorIndex := xlAutomatic; //颜色
end;

Answer 2

谢谢大家，我自己已经搞定了。楼上这位兄弟，你的代码是用来控制Excel的吧。不过还是要说声谢谢！