Question

急用delphi编一个word和电子失踪程序

Answer 1

TIME组件事件中添加代码
label.capion := DateTimeToStr(Now);

这个很详细了

一些Word里VBA语法在delphi中的运用：
1. 在Uses单元中一定要加入Comobj和WordXp单元。
2. 定义和word有关的变量为Vatiant型，例如Var Fword，Fdoc ：Variant；
3. 首先创建一个Word的Application：FWord := CreateOleObject( 'Word.Application ');
4. 在创建了Word的Apllication后，就可以用这个Application创建word的文档了。例如：FDoc:= FWord.Documents.Add\Open(Template:= 'F:\专业型简历.dot ');可以打开一个存在的模板或者文档。如果FDoc := FWord.Documents.Add;则将创建一个空白的文档，其加载模板为默认的Normal.dot;
5. Fword.Visible可设置可设置打开的word程序是否可见，True为可见，false为不可见。
6. Fdoc.AttachedTemplate可以返回文档加载的模板名。
7. Fdoc.content.Font.Name :=’华文彩云’可以设置整个word文档的字体；
8. Fdoc.saveas(‘路径\文件名’)可以保存当前的word文档。
9. Fword.Documents 代表了所有文档的集合，要保存所有打开的文档，只需使用
Fword.Documents.save。而Fword.documents.Close将关闭所有的文档，默认自动保存文档的改动。Fword.documents.close(savechanges :=WdDoNotSavechanges)将不保存直接退出。Savechanges := Wdsavechanges将保存所有的改动。
10. 以下语句将打印文档的1～2页
FWord.ActiveDocument.PrintOut(Range:=WdPrintFromTo,From:= '1 ',To:= '2 ');
11. FWord.Options.PrintHiddenText:=True;
FWord.Activedocument.PrintOut; Fword的options属性可以在打印之前指定文档中要打印的内容。而PageSetup对象来设定页面的方向。例如下面的代码设定页面的方向为横向并打印相应的活动文档：
Fword.Activedocument.pageSetUp.Orientation :=WdOrientLandScape;
Fword.Activedocument.Printout;
12. Wordapp.documents.Shapes.addpicture( 'D:\共享.bmp ',SaveWithDocument := True,
Left := X1, Top := y1);

这个问题我已经找到答案了,
那你知道不那,图片怎么浮于文字上方,和衬于文字上方吗???
13．可以用Fdoc.sentences.item(i),去选中word文档中的第I个句子，同样可以用此方法去选中一个段落.注意只有range对象才有insertAfter方法。
14.可以用Range.inertparagraphAfter方法插入一个段落。
15.例子：
Var
Rng1：Variant；
Rng1:=Fdoc.paragraphs(1).range;
Rng1.collapse(direction:=WdcollapseEnd);
Rng1.InsertAfter(‘New Text’);
Rng1.InsertParagrphAfter;
Rng1.Style:=WdStyleHeanding3;
16.MoveEnd（Unit：=,count:=）可以移动结尾字符的位置重新定义一个区域。Unit是移动的单位，count指定移动单位的数目。
17.在设定一个range对象后，对range.text赋值后可以覆盖这个区域。
18．VBA Word中的Color值为WDCOlor颜色，如WDColorRed；

wordapp:variant;
begin
wordapp:=createoleobject("word.application");
wordapp.visible=.t.
end;

追问

为什么我在编写快捷键加粗、倾斜、下划线时运行代码没有错误，可是却没有什么改变呢
procedure TForm1.ToolButton7Click(Sender: TObject);
begin
if toolbutton7.down then
memo.font.Style := memo.font.Style +[fsBold]
else
memo.font.Style :=memo.font.Style - [fsBold];
end;

追答

用richedit

Answer 2

delphi 有word 给件，拖进来就可以了
电子失踪，是电子时钟吧，看你要什么样界面了，数字界面就放置一个Label 然后加人time 组件，在TIME组件事件中添加代码
label.capion := DateTimeToStr(Now);
或者
label.capion := FormatDateTime('"HH:MM", Now);

追问

可是我想要详细的代码，可以帮帮我吗

追答

可以的，没有问题