Delphi调用Word模板(问题已解决,进来的前6位朋友每人50分)(300)

Z

zbr

Unregistered / Unconfirmed
GUEST, unregistred user!
有一个A3.Doc 的Word模板,里面的内容是左侧是什么考号,装订线等,是竖排的,就是考试试卷的左侧那些内容。现在想通过此模板,调用往Word里添加文本。代码如下:procedure TForm1.Button4Click(Sender: TObject);var NewTemplate,OldTemplate: OleVariant;
ItemIndex:OleVariant;
FindText,MatchCase,MatchWholeWord,MatchWildcards,MatchSoundsLike, MatchAllWordForms,Forward,Wrap,Format,ReplaceWith,Replace:OleVariant;begin
oldTemplate:=False;
newTemplate:='d:/A3.doc';
try wordApplication.Connect;
except showmessage('error');
abort;
end;

wordApplication.Documents.AddOld(newTemplate,oldTemplate);
//最大化word窗体 wordApplication.WindowState:=1;
wordApplication.Visible:=true;
wordApplication.Activate;
ItemIndex:=1;
wordDocument.ConnectTo(wordApplication.Documents.Item(ItemIndex));
WordApplication.Options.CheckSpellingAsYouType := False;
WordApplication.Options.CheckGrammarAsYouType := False;
//更改word活动子文档标题 wordDocument.ActiveWindow.Caption:='导出试卷';
Edit1.SelectAll;
Edit1.CopyToClipboard;
GotoDocEnd(WordApplication);
WordApplication.Selection.Paste;procedure TForm1.GotoDocEnd(WrdApp: TWordApplication);var WdUnit, WdCount, wdExtend: OleVariant;begin
WdUnit := wdScreen;
wdCount := 10;
wdExtend := EmptyParam;
while truedo
if WrdApp.Selection.MoveDown(WdUnit, wdCount, wdExtend) = 0 then
break;end;
问题是: 添加Edit文本添加上了,但是位置不对,添加在竖排的那些内容里。请问如何解决,或者哪位朋友有更好的办法。感谢你!
 
Z

zbr

Unregistered / Unconfirmed
GUEST, unregistred user!
我的QQ是59351851 ,谢谢! 比较急。
 
Z

zbr

Unregistered / Unconfirmed
GUEST, unregistred user!
或者哪位朋友告诉我在Word里如何定位???
 
S

szhcracker

Unregistered / Unconfirmed
GUEST, unregistred user!
来了,谢谢。
 
Z

zbdzjx

Unregistered / Unconfirmed
GUEST, unregistred user!
我也來接分了!!!!
 
Z

zbr

Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
 
顶部