请对web下的word调用给点详细的介绍
mail:diginet2000@sina.com 问题点数：100、回复次数：3Top
1 楼foreversoft（恒软信息）回复于 2005-03-04 12:02:18 得分 100
邮件已发，请查收。jfTop
2 楼pedit（）回复于 2005-03-04 12:02:21 得分 0
你首先要添加word引用，我给你个例子，这个是word9.0的
object Unknown = Type.Missing;
object Visible = false;
Word.ApplicationClass app = new Word.ApplicationClass();
try
{
app.Documents.Add(ref Unknown, ref Unknown, ref Unknown, ref Visible);
Word.DocumentClass doc = new Word.DocumentClass();
object file = "C:\\test.doc";
object start = 0;
object last = doc.Characters.Count;
//word表格是从(1,1)开始，而非(0,0)
Word.Table tab = doc.Tables.Add(doc.Range(ref start, ref last), 3, 4, ref Unknown, ref Unknown);
tab.Range.Font.Size = 11; //五号
tab.Borders.Enable = 1;
//合并单元格
tab.Cell(1, 4).Merge(tab.Cell(1, 2));
//设置阴影
tab.Rows[1].Shading.Texture = Word.WdTextureIndex.wdTexture20Percent;
Word.Cell cell = tab.Cell(1, 1);
//设置单元格文本
cell.Range.Text = "接口原型";
//设置粗体
cell.Range.Bold = 1;
//设置文本字体大小
//cell.Range.Font.Size = 12; //小四
tab.Cell(2, 1).Range.Text = "参数描述";
tab.Cell(2, 2).Range.Text = "类型";
tab.Cell(2, 3).Range.Text = "属性";
tab.Cell(2, 4).Range.Text = "描述";
object row = tab.Rows[3] as object;
Word.Row r = tab.Rows.Add(ref row);
Word.Row r1 = tab.Rows.Add(ref row);
r1.Cells[1].Range.Text = "返回值";
r1.Cells[4].Merge(r1.Cells[2]);
Word.Row r2 = tab.Rows.Add(ref row);
r2.Cells[1].Range.Text = "功能描述";
r2.Cells[4].Merge(r2.Cells[2]);
Word.Row r3 = tab.Rows.Add(ref row);
r3.Cells[1].Range.Text = "备注";
r3.Cells[4].Merge(r3.Cells[2]);
//删除最后一行
tab.Rows.Last.Delete();
//保存文本
doc.SaveAs(ref file, ref Unknown, ref Unknown, ref Unknown, ref Unknown, ref Unknown, ref Unknown,
ref Unknown, ref Unknown, ref Unknown, ref Unknown, ref Unknown, ref Unknown, ref Unknown, ref Unknown, ref Unknown);
}
catch(Exception ex)
{
MessageBox.Show(ex.Message);
}
app.Quit(ref Unknown, ref Unknown, ref Unknown);
Top
3 楼nga96（因为我笨，所以努力。陈勇华）回复于 2005-03-04 12:12:51 得分 0
一楼的，也发份给我吧。
nga2003@sohu.comTop
