一个控制 Word 插入表格的代码:

//一个控制 Word 插入表格的代码:

procedure TForm1.MakeWordFile(const UserID : string);
var
Bookmark: TBookmark;
RangeW: Word97.Range;
v1: Variant;
ov1: OleVariant;
Row1: Word97.Row;
sQANDD : string;//问题与难点
sMemo : string;//备注
sSender:string;//提交人
sPOSTDATE :string;//提交日期
fName : OleVariant;
sUserName : string;//
sfName : string;
i , j : integer;

begin
// insert title
WordDocument1.Range.Text := '文档标题';
//格式必须在最后设置
WordDocument1.PageSetup.Orientation := wdOrientLandscape;//横向
WordDocument1.Range.Font.Size := 14;
WordDocument1.Range.Font.Bold := 0;

WordDocument1.Tables.Add (WordDocument1.Words.Last,Table1.RecordCount+1,5,EmptyParam,EmptyParam);
WordDocument1.Tables.Item(1).Cell(1,1).Range.Text := '格1';
WordDocument1.Tables.Item(1).Cell(1,2).Range.Text := '格2';
WordDocument1.Tables.Item(1).Cell(1,3).Range.Text := '格3';
WordDocument1.Tables.Item(1).Cell(1,4).Range.Text := '格4';
WordDocument1.Paragraphs.Last.Range.Text := ' ';//必须填这句，否则两个表格就粘合在一起了
WordDocument1.Tables.Item(1).Cell(1,5).Range.Text := '格5';
Table1.First;
for i := 1 to Table1.RecordCount do
begin
WordDocument1.Tables.Item(1).Cell(1+i,1).Range.Text := Table1.FieldByName('ITEM').AsString;
WordDocument1.Tables.Item(1).Cell(1+i,2).Range.Text := Table1.FieldByName('Description').AsString;
WordDocument1.Tables.Item(1).Cell(1+i,3).Range.Text := Table1.FieldByName('Result').AsString;
WordDocument1.Tables.Item(1).Cell(1+i,4).Range.Text := Table1.FieldByName('MEASURE').AsString;
WordDocument1.Tables.Item(1).Cell(1+i,5).Range.Text := Table1.FieldByName('POSTDATE').AsString;
Table1.Next;
end;

WordDocument1.Tables.Add(WordDocument1.Words.Last,Table2.RecordCount +1,2,EmptyParam,EmptyParam);
WordDocument1.Tables.Item(2).Cell(1,1).Range.Text := '其它';
WordDocument1.Tables.Item(2).Cell(1,2).Range.Text := '备注';

Table2.First;
for i := 1 to Table2.RecordCount do
begin
WordDocument1.Tables.Item(2).Cell(1+i,1).Range.Text := Table2.FieldByName ('QANDD').AsString;
WordDocument1.Tables.Item(2).Cell(1+i,2).Range.Text := Table2.FieldByName ('MEMO').AsString;
Table2.Next;
end;
//***********************设置标题文字格式*********************************
WordDocument1.Paragraphs.Item(1).Range.Select;
WordDocument1.Paragraphs.Item(1).Range.Font.Size := 30;
WordDocument1.Application.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;
//****************************保存文件****************************************
sUserName := lstUser.Items[lstUser.ItemIndex];
ZipStr(sUserName, #10);
sfName := Trim(edFileDir.Text)+'/' + sUserName + ' ' + Trim(edDate.Text)+'.doc';
fName := sfname;
//保存
WordDocument1.SaveAs2000(fname);
WordDocument1.Close;//关闭
end;




//控制使用 word 模板procedure TFrmMain.SpeedButton9Click(Sender: TObject);


Var
StrTemp : String;
ZS : Integer;
Nian, Yue, Ri : Word;

ItemIndex :OleVariant;
FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
PasswordDocument, PasswordTemplate, Revert,
WritePasswordDocument, WritePasswordTemplate, Format: OleVariant;

FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike,
MatchAllWordForms, Forward, Wrap, ReplaceWith, Replace: OleVariant;

SaveChanges, OriginalFormat, RouteDocument: OleVariant;
begin
FileName := ExtractFilePath(ParamStr(0)) + 'DOC/考察材料.DOC';
try
// WordApplication1.Disconnect;
WordApplication1.Connect;
except
Application.MessageBox('连接WORD服务器失败，请确定您已经正确安装。','错误框',MB_OK+MB_ICONSTOP);
Abort;
end;

try
Frmjd := TFrmjd.Create(Self);

//显示进度
Frmjd.ProgressBar1.Max:=100;
Frmjd.Show;

WordApplication1.Visible := False;
WordApplication1.Caption := '干部考察材料';

//参数赋值
ConfirmConversions := False;
ReadOnly := False;
AddToRecentFiles := False;
PasswordDocument := '';
PasswordTemplate := '';
Revert := True;
WritePasswordDocument := '';
WritePasswordTemplate := '';
Format := wdOpenFormatDocument;

//打开文档（摸板）
WordApplication1.Documents.Openold( FileName, ConfirmConversions,
ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate,
Revert, WritePasswordDocument, WritePasswordTemplate, Format );


{Assign WordDocument component}
ItemIndex := 1;
WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));

{Turn Spell checking of because it takes a long time if enabled and slows down Winword}
WordApplication1.Options.CheckSpellingAsYouType := False;
WordApplication1.Options.CheckGrammarAsYouType := False;

//让Word替换标记字符串要使用WordDocument.Range.Find.Execute：姓名
FindText := '<#XM>';
MatchCase := False;
MatchWholeWord := True;
MatchWildcards := False;
MatchSoundsLike := False;
MatchAllWordForms := False;
Forward := True;
Wrap := wdFindContinue;
Format := False;
ReplaceWith := DM.ADOQryMainXM.Value;
Replace := wdReplaceAll;
WordDocument1.Range.Find.Executeold( FindText, MatchCase, MatchWholeWord,
MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward,
Wrap, Format, ReplaceWith, Replace );
Frmjd.ProgressBar1.Position := 10;//进度
Frmjd.Update;//进度窗口刷新

直接在WORD模版上写出<#name>。
FindText := '<#XM>';//这个是模板中的标记。
MatchCase := False;//匹配大小写。
MatchWholeWord := True;//匹配整个词语，这个不管，添True就行
MatchWildcards := False;//不清楚，这个不管，添False就行
MatchSoundsLike := False;//不清楚，这个不管，添False就行
MatchAllWordForms := False;//不清楚，这个不管，添False就行
Forward := True;//不清楚，这个不管，添True就行
Wrap := wdFindContinue;//不清楚，这个不管，用wdFindContinue就行
Format := False;//不清楚，这个不管，添False就行
ReplaceWith := DM.ADOQryMainXM.Value;//数据库的内容啊。
Replace := wdReplaceAll;//全部替换。




//Delphi＋Word解决方案参考[转]


这是我做项目过程中自己做的几个函数，见到大家都在问Word的问题。现在拿出来和大家共享。（希望有朋友可以进一步添加新的功能，或者做成包或者lib等，更方便大家使用。我自己是没有时间啦，呵呵）

使用前，先根据需要建立一个空的WORD文件作为模板，在模板文件中设置好各种格式和文本。另外，其中的PrnWordTable的参数是TDBGridEh类型的控件，取自Ehlib2.6

其中用到的shFileCopy函数（用于复制文件）和guiInfo函数（用于显示消息框）也是自己编写的，代码也附后。

示范代码如下：

代码完成的功能：
1. 替换打印模板中的“#TITLE#”文本为“示范代码1”
2. 并且将DBGridEh1控件当前显示的内容插入到文档的末尾
3. 在文档末尾插入一个空行
4. 在文档末尾插入新的一行文本
5. 将文档中的空行去掉

if PrnWordBegin('C:/打印模板.DOC','C:/目标文件1.DOC') then
begin
PrnWordReplace('#TITLE#','示范代码1');
PrnWordTable(DBGridEh1);
PrnWordInsert('');
PrnWordInsert('这是新的一行文本');
PrnWordReplace('^p^p','^p',true);
PrnWordSave;
end;

源代码如下：

//Word打印（声明部分）
wDoc,wApp:Variant;
function PrnWordBegin(tempDoc,docName:String):boolean;
function PrnWordReplace(docText,newText:String;bSimpleReplace:boolean=false):boolean;
function PrnWordInsert(lineText:String;bNewLine:boolean=true):boolean;overload;
function PrnWordInsert(var imgInsert:TImage;sBookMark:String=''):boolean;overload;
function PrnWordInsert(var chartInsert:TChart;sBookMark:String=''):boolean;overload;
function PrnWordTable(var dbG:TDBGridEh;sBookMark:String=''):boolean;
procedure PrnWordSave;
procedure PrnWordEnd;

//Word打印（实现部分）
{
功能：基于模板文件tempDoc新建目标文件docName并打开文件
}
function PrnWordBegin(tempDoc,docName:String):boolean;
begin
result:=false;
//复制模版
if tempDoc<>'' then
if not shFileCopy(tempDoc,docName) then exit;
//连接Word
try
wApp:=CreateOleObject('Word.Application');
except
guiInfo('请先安装 Microsoft Word 。');
exit;
end;
try
//打开
if tempDoc='' then
begin
//创建新文档
wDoc:=wApp.Document.Add;
wDoc.SaveAs(docName);
end else begin
//打开模版
wDoc:=wApp.Documents.Open(docName);
end;
except
guiInfo('打开模版失败，请检查模版是否正确。');
wApp.Quit;
exit;
end;
wApp.Visible:=true;
result:=true;
end;

{
功能：使用newText替换docText内容
bSimpleReplace：true时仅做简单的替换，false时对新文本进行换行处理
}
function PrnWordReplace(docText,newText:String;bSimpleReplace:boolean=false):boolean;
var i:Integer;
begin
if bSimpleReplace then
begin
//简单处理，直接执行替换操作
try
wApp.Selection.Find.ClearFormatting;
wApp.Selection.Find.Replacement.ClearFormatting;
wApp.Selection.Find.Text := docText;
wApp.Selection.Find.Replacement.Text :=newText;
wApp.Selection.Find.Forward := True;
wApp.Selection.Find.Wrap := wdFindContinue;
wApp.Selection.Find.Format := False;
wApp.Selection.Find.MatchCase := False;
wApp.Selection.Find.MatchWholeWord := true;
wApp.Selection.Find.MatchByte := True;
wApp.Selection.Find.MatchWildcards := False;
wApp.Selection.Find.MatchSoundsLike := False;
wApp.Selection.Find.MatchAllWordForms := False;
wApp.Selection.Find.Execute(Replace:=wdReplaceAll);
result:=true;
except
result:=false;
end;
exit;
end;

//自动分行
reWord.Lines.Clear;
reWord.Lines.Add(newText);
try
//定位到要替换的位置的后面
wApp.Selection.Find.ClearFormatting;
wApp.Selection.Find.Text := docText;
wApp.Selection.Find.Replacement.Text := '';
wApp.Selection.Find.Forward := True;
wApp.Selection.Find.Wrap := wdFindContinue;
wApp.Selection.Find.Format := False;
wApp.Selection.Find.MatchCase := False;
wApp.Selection.Find.MatchWholeWord := False;
wApp.Selection.Find.MatchByte := True;
wApp.Selection.Find.MatchWildcards := False;
wApp.Selection.Find.MatchSoundsLike := False;
wApp.Selection.Find.MatchAllWordForms := False;
wApp.Selection.Find.Execute;
wApp.Selection.MoveRight(wdCharacter,1);

//开始逐行插入
for i:=0 to reWord.Lines.Count-1 Do
begin
//插入当前行
wApp.Selection.InsertAfter(reWord.Lines[i]);
//除最后一行外，自动加入新行
if i<reWord.Lines.Count-1 then
wApp.Selection.InsertAfter(#13);
end;

//删除替换位标
wApp.Selection.Find.ClearFormatting;
wApp.Selection.Find.Replacement.ClearFormatting;
wApp.Selection.Find.Text := docText;
wApp.Selection.Find.Replacement.Text := '';
wApp.Selection.Find.Forward := True;
wApp.Selection.Find.Wrap := wdFindContinue;
wApp.Selection.Find.Format := False;
wApp.Selection.Find.MatchCase := False;
wApp.Selection.Find.MatchWholeWord := true;
wApp.Selection.Find.MatchByte := True;
wApp.Selection.Find.MatchWildcards := False;
wApp.Selection.Find.MatchSoundsLike := False;
wApp.Selection.Find.MatchAllWordForms := False;
wApp.Selection.Find.Execute(Replace:=wdReplaceAll);
result:=true;
except
result:=false;
end;
end;

{
功能：打印TDBGridEh当前显示的内容
基于TDBGridEh控件的格式和内容，自动在文档中的sBookMark书签处生成Word表格
目前能够支持单元格对齐、多行标题（两行）、底部合计等特性
sBookMark：Word中要插入表格的书签名称
}
function PrnWordTable(var dbG:TDBGridEh;sBookMark:String=''):boolean;
var iCol,iLine,i,j,k:Integer;
wTable,wRange:Variant;
iRangeEnd:longint;
iGridLine,iTitleLine:Integer;
getTextText:String;getTextDisplay:boolean;
titleList:TStringList;
titleSplit,titleCol:Integer;
lastTitleSplit,SubTitle:Integer;
lastTitle:String;
begin
result:=false;
try
//计算表格的列数（不包括隐藏的列）
iTitleLine:=1; //始终默认为1
iCol:=0;
for i:=0 to dbG.Columns.Count-1 Do
begin
if dbG.Columns[i].Visible then
begin
iCol:=iCol+1;
end;
end;

//计算表格的行数（不包括隐藏的列）
if dbG.DataSource.DataSet.Active then
iLine:=dbG.DataSource.DataSet.RecordCount
else
iLine:=0;
iGridLine:=iLine+iTitleLine+dbG.FooterRowCount;

//定位插入点
if sBookMark='' then
begin
//在文档末尾
iRangeEnd:=wDoc.Range.End-1;
if iRangeEnd<0 then iRangeEnd:=0;
wRange:=wDoc.Range(iRangeEnd,iRangeEnd);
end else begin
//在书签处
wRange:=wDoc.Range.Goto(wdGoToBookmark,,,sBookMark);
end;
wTable:=wDoc.Tables.Add(wRange,iGridLine,iCol);
wTable.Columns.AutoFit;
//标题行
k:=1;
for j:=1 to dbG.Columns.Count Do
begin
if dbG.Columns[j-1].Visible then
begin
if dbG.UseMultiTitle then
begin
titleList:=strSplit(dbG.Columns[j-1].Title.Caption,'|');
wTable.Cell(1,k).Range.InsertAfter(titleList.Strings[0]);
end else
wTable.Cell(1,k).Range.InsertAfter(dbG.Columns[j-1].Title.Caption);

//设置单元格对齐方式
if dbG.Columns[j-1].Title.Alignment=taCenter then
wTable.Cell(1,k).Range.ParagraphFormat.Alignment:=wdAlignParagraphCenter
else if dbG.Columns[j-1].Title.Alignment=taRightJustify then
wTable.Cell(1,k).Range.ParagraphFormat.Alignment:=wdAlignParagraphRight
else if dbG.Columns[j-1].Title.Alignment=taLeftJustify then
wTable.Cell(1,k).Range.ParagraphFormat.Alignment:=wdAlignParagraphJustify;
k:=k+1;
end;
end;

//填写每一行
if iLine>0 then
begin
dbG.DataSource.dataset.DisableControls;
dbG.DataSource.DataSet.First;
for i:=1 to iLine Do
begin
k:=1;
for j:=1 to dbG.Columns.Count Do
begin
if dbG.Columns[j-1].Visible then
begin
if dbG.Columns[j-1].FieldName<>'' then //避免由于空列而出错
begin
//如果该列有自己的格式化显示函数，则调用显示函数获取显示串
getTextText:='';
if Assigned(dbG.DataSource.DataSet.FieldByName(dbG.Columns[j-1].FieldName).OnGetText) then
begin
dbG.DataSource.DataSet.FieldByName(dbG.Columns[j-1].FieldName).OnGetText(dbG.DataSource.DataSet.FieldByName(dbG.Columns[j-1].FieldName),getTextText,getTextDisplay);
wTable.Cell(i+iTitleLine,k).Range.InsertAfter(getTextText);
end else begin
//使用数据库内容显示
wTable.Cell(i+iTitleLine,k).Range.InsertAfter(dbG.DataSource.DataSet.FieldByName(dbG.Columns[j-1].FieldName).AsString);
end;
end;
//设置单元格对齐方式
if dbG.Columns[j-1].Alignment=taCenter then
wTable.Cell(i+iTitleLine,k).Range.ParagraphFormat.Alignment:=wdAlignParagraphCenter
else if dbG.Columns[j-1].Alignment=taRightJustify then
wTable.Cell(i+iTitleLine,k).Range.ParagraphFormat.Alignment:=wdAlignParagraphRight
else if dbG.Columns[j-1].Alignment=taLeftJustify then
wTable.Cell(i+iTitleLine,k).Range.ParagraphFormat.Alignment:=wdAlignParagraphJustify;
k:=k+1;
end;
end;
dbG.DataSource.DataSet.Next;
end;
end;
//结尾行
for i:=1 to dbG.FooterRowCount Do
begin
k:=1;
for j:=1 to dbG.Columns.Count Do
begin
if dbG.Columns[j-1].Visible then
begin
wTable.Cell(iLine+1+i,k).Range.InsertAfter(dbG.GetFooterValue(i-1,dbG.Columns[j-1]));
//设置单元格对齐方式
if dbG.Columns[j-1].Footer.Alignment=taCenter then
wTable.Cell(iLine+1+i,k).Range.ParagraphFormat.Alignment:=wdAlignParagraphCenter
else if dbG.Columns[j-1].Footer.Alignment=taRightJustify then
wTable.Cell(iLine+1+i,k).Range.ParagraphFormat.Alignment:=wdAlignParagraphRight
else if dbG.Columns[j-1].Footer.Alignment=taLeftJustify then
wTable.Cell(iLine+1+i,k).Range.ParagraphFormat.Alignment:=wdAlignParagraphJustify;
k:=k+1;
end;
end;
end;
//处理多行标题
if dbG.UseMultiTitle then
begin
//先分割单元格，再逐个填入第二行
k:=1;
titleCol:=1;
lastTitleSplit:=1;
SubTitle:=0;
lastTitle:='';
for j:=1 to dbG.Columns.Count Do
begin
if dbG.Columns[j-1].Visible then
begin
titleList:=strSplit(dbG.Columns[j-1].Title.Caption,'|');
if titleList.Count>1 then
begin
//处理第二行以上的内容
wTable.Cell(1,k-SubTitle).Range.Cells.Split(titleList.Count,1,false);
for titleSplit:=1 to titleList.Count-1 Do
begin
wTable.Cell(titleSplit+1,titleCol).Range.InsertAfter(titleList.Strings[titleSplit]);
end;
titleCol:=titleCol+1;
//处理第一行合并
if (lastTitleSplit=titleList.Count) and (lastTitle=titleList.Strings[0]) then
begin
//内容相同时，合并单元格
wTable.Cell(1,k-SubTitle).Range.Copy;
wRange:=wDoc.Range(wTable.Cell(1,k-SubTitle-1).Range.Start,wTable.Cell(1,k-SubTitle).Range.End);
wRange.Cells.Merge;
wRange.Paste;
SubTitle:=SubTitle+1;
end;
end;
lastTitle:=titleList.Strings[0];
lastTitleSplit:=titleList.Count;
titleList.Clear;titleList.Free;
k:=k+1;
end;
end;
end;

//自动调整表格
wTable.AutoFitBehavior(1);//根据内容自动调整表格wdAutoFitContent
wTable.AutoFitBehavior(2);//根据窗口自动调整表格wdAutoFitWindow
result:=true;
except
result:=false;
end;
try
dbG.DataSource.dataset.EnableControls;
except
end;
end;

{
功能：在Word文件中插入文本（能够自动进行换行处理）
lineText：要插入的文本
bNewLine：true时新起一行，false时在当前行插入
}
function PrnWordInsert(lineText:String;bNewLine:boolean=true):boolean;
var i:Integer;
begin
try
if bNewLine then
wDoc.Range.InsertAfter(#13);
//自动分行
reWord.Lines.Clear;
reWord.Lines.Add(lineText);
//开始逐行插入
for i:=0 to reWord.Lines.Count-1 Do
begin
//插入当前行
wDoc.Range.InsertAfter(reWord.Lines[i]);
//除最后一行外，自动加入新行
if i<reWord.Lines.Count-1 then
wDoc.Range.InsertAfter(#13);
end;
result:=true;
except
result:=false;
end;
end;

{
功能：在Word文件的sBookMark书签处插入TImage控件包含的图片
}
function PrnWordInsert(var imgInsert:TImage;sBookMark:String=''):boolean;
var wRange:Variant;iRangeEnd:Integer;
begin
try
if sBookMark='' then
begin
//在文档末尾
iRangeEnd:=wDoc.Range.End-1;
if iRangeEnd<0 then iRangeEnd:=0;
wRange:=wDoc.Range(iRangeEnd,iRangeEnd);
end else begin
//在书签处
wRange:=wDoc.Range.Goto(wdGoToBookmark,,,sBookMark);
end;
if imgInsert.Picture.Graphic<>nil then
begin
Clipboard.Assign(imgInsert.Picture);
wRange.Paste;
end else begin
wRange.InsertAfter('照片');
end;
result:=true;
except
result:=false;
end;
end;

{
功能：在书签sBookMark处插入TChart控件包含的图表
}
function PrnWordInsert(var chartInsert:TChart;sBookMark:String=''):boolean;
var wRange:Variant;iRangeEnd:Integer;
begin
try
if sBookMark='' then
begin
//在文档末尾
iRangeEnd:=wDoc.Range.End-1;
if iRangeEnd<0 then iRangeEnd:=0;
wRange:=wDoc.Range(iRangeEnd,iRangeEnd);
end else begin
//在书签处
wRange:=wDoc.Range.Goto(wdGoToBookmark,,,sBookMark);
end;
chartInsert.CopyToClipboardBitmap;
wRange.Paste;
result:=true;
except
result:=false;
end;
end;

{
功能：保存Word文件
}
procedure PrnWordSave;
begin
try
wDoc.Save;
except
end;
end;

{
功能：关闭Word文件
}
procedure PrnWordEnd;
begin
try
wDoc.Save;
wDoc.Close;
wApp.Quit;
except
end;
end;

附：shFileCopy源代码
{
功能：安全的复制文件
srcFile，destFile：源文件和目标文件
bDelDest：如果目标文件已经存在，是否覆盖
返回值：true成功，false失败
}
function shFileCopy(srcFile,destFile:String;bDelDest:boolean=true):boolean;
begin
result:=false;
if not FileExists(srcFile) then
begin
guiInfo ('源文件不存在，不能复制。'+#10#13+srcFile);
exit;
end;
if srcFile=destFile then
begin
guiInfo ('源文件和目标文件相同，不能复制。');
exit;
end;
if FileExists(destFile) then
begin
if not bDelDest then
begin
guiInfo ('目标文件已经存在，不能复制。'+#10#13+destFile);
exit;
end;
FileSetAttr(destFile,FileGetAttr(destFile) and not $00000001);
if not DeleteFile(PChar(destFile)) then
begin
guiInfo ('目标文件已经存在，并且不能被删除，复制失败。'+#10#13+destFile);
exit;
end;
end;
if not CopyFileTo(srcFile,destFile) then
begin
guiInfo ('发生未知的错误，复制文件失败。');
exit;
end;
//目标文件去掉只读属性
FileSetAttr(destFile,FileGetAttr(destFile) and not $00000001);
result:=true;
end;

附：guiInfo源代码
{
功能：封装了各种性质的提示框
sMsg：要提示的消息
}
procedure guiInfo(sMsg:String);
begin
MessageDlg(sMsg,mtInformation,[mbOK],0);
end;

xiammy 发表于 2006-10-22 9:46:57

楼上也太夸张了吧。
我感觉楼主已经知道控制Word了。

我的意见是不是：直接在外面组织好Cell的内容，然后替换原有的内容

bluewave 发表于 2006-10-26 19:16:21

同问。
PS：
chaofan201是不是没有看明白楼主的问题？
楼主是要在一个
[red][h3][b]单元格[/b][/h3][/red]
里插入新的内容，而非新写，原来的
[b]单元格里已经有内容了[/b]

newsmile 发表于 2006-10-27 7:43:39

没什么难的啊，会读单元格内容不？如果会读，那就简单了，读出内容加上新的内容（即插入）再写回去就行了。所谓一段就是两个回车之间的所有内容了。

bluewave 发表于 2006-10-30 19:34:14

借宝地请教newsmile：
如何“读出内容加上新的内容（即插入）再写回去”？
如果直接在两段内容之间插入应该如何实现？
谢谢

sxwy 发表于 2006-10-30 23:23:24

高人呀.不知在D7+OFF2000有没有用,我在网上发现好多都是D6开发的,跟本移植不到D7+0FF2000,到D7好多参数都变了.

sxwy 发表于 2006-10-30 23:25:42

借宝地问一个问题,如何在一页WORD文档里找到表格.并在表格的右边加入一行空字符,哪位朋友能答一下.问题解决另开帖加分.请楼主不要见怪.....

newsmile 发表于 2006-10-31 12:17:39

这里的要点是得到选定单元格中有文字的两行的位置以及它们之间的空行数以便确定要插入的行的位置，所以要读出来，作插入再写回去（写之前有可能要清除单元格原内容）。
to bluewave
直接插入可用TypeText方法。
to sxwy
用ole方法可以较好应对因office版本不同而产生的参数改变。的确office版本的不同常常导致程序运行失败。用Selection.Tables.count找表格，在表格右边加入一空行应先把插入点移到表格下插入一空行（Selection.TypeParagraph），再用把表格设为环绕（Selection.Tables(1).Rows.WrapAroundText := True）。

bluewave 发表于 2006-10-31 18:53:32

谢谢newsmile

我是用OLE打开的Word,原来的两行文字都设置好了各种格式，因此不想清除，想直接定位到中间来插入文字，用Range时，总是在最后插入，能不能定位到两行中间插入文字？

这个问题困扰我好长时间了，恳请newsmile回答，如需加分，偶另开帖加分，谢谢！

sxwy 发表于 2006-10-31 20:30:25

to newsmile,有QQ吗.谢谢.要怎么能具体解决一下上面说的问题.
如何用Selection.Tables.count找表格呢.

唐宗 发表于 2007-1-6 23:15:11

用selection对象的InsertRowsBelow可以在你选中的行的下面插入一行,不知道行不行,你可以试一下.