关于delphi与office VBA(200分)

L

llk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-24

• #1

我的delphi程序，要实现打开office文档，并修改，保留修改痕迹，这些都搞定了。
现在，我想得到修改人的姓名，但不是office里默认的安装office时起的用户名，
我想自己定义姓名。那就要先得到默认的名字，再修改它。
问题出来了，我就是不知道怎么得到这个名字，在修改它。
各位高手能帮我吗，或者介绍好的网站、论坛，我真心谢了

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-24

• #2

VBA里面是Application.UserName
Sub abc()
MsgBox Application.UserName
End Sub
在Delphi里面你既然实现了保留修改痕迹等，那就很容易将上面的VBA转换成Delphi程序了。
作为Office系列，最好的文档就是Office本身的VBA帮助，只要你需要的，他那里面基本都有。

 

L

llk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-24

• #3

保留修改痕迹是别人做的，我没有源码，你可以教教我怎么转成delphi吗？

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-25

• #4

有空不妨看一下，供参考。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=737517

uses comobj;

procedure TForm1.Button1Click(Sender: TObject);
var
MsWord: OleVariant;
begin
MsWord := CreateOleObject('Word.Application');
MsWord.Visible:=True;
MsWord.Documents.open(FileName := 'c:/adoc.doc');
MsWord.Application.Username := 'newname';
end;

 

D

dae

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-25

• #5

我想在word里面加个按钮，实现自动在指定位置添加文字，直接用VBA要怎么做啊！

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-25

• #6

仔细看一下，如果你读懂了上面那个帖子里面的讨论，那么你应该能够做出来，那里面已经将算法、实现说清楚了。。。实在搞不定再问吧，呵呵。。

 

老

老人家

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-25

• #7

UP

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-25

• #8

你首先要清楚Word 的文档对象模型！

 

D

dae

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-25

• #9

查了半天的帮助，真的是半天啊！终于弄明白了！

 

L

llk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-25

• #10

多人接受答案了。

 

Z

zl_cch

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-24

• #11

有哪位大侠有保留修改痕迹的程序呀，值得学习

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-14

• #12

保留很久其实就是设置修订。
另外，可以考虑使用Word自带的版本的功能。