互相获益,请贡献出你的心得和经验!

惊叹不已 · 发表于 2003-1-2 17:13

七叶一枝梅提议开辟一个专区,用来贴使用Word和VBA编程中的心得、经验和代码等精华,我觉得这个主意不错,请大家无私地贡献,毕竟助人为快乐之本嘛,更何况这是"人人为我,我为人人"!!! 为了查看方便及确保所发帖子都是精华,本帖谢绝灌水,要求所发的全部是心得、经验、代码等,不要发表评论,如有评论及灌水,一律删无赦!请大家理解及支持!!!

山雀 · 发表于 2003-1-2 21:41

好的！我支持此建议。过两天见贴子。

ztpcwdmcx001 · 发表于 2003-1-2 22:54

文件太大，无法上传

七叶一枝梅 · 发表于 2003-1-3 09:38

先发一个“入门级别”的不要见笑： '这是在excel中调用word的例子。 Sub ggg() Dim wawd'定义一个word对象 Dim aaaa'定义一个字符串对象 Set wawd = CreateObject("word.application")'定义一个FSO对象 wawd.documents.Open ("e:\aa.doc")'打开“e:\aa.doc”这个word对象（并没有显示这个文档，如果你要显示这个文档的话，请用:对象.visible=true） aaaa = wawd.documents(1).paragraphs(2).Range'在活动文档中，选第一个活动文档的第二自然段，将其值赋予变量aaaa; Workbooks("aaa.xls").Worksheets(1).Range("c4") = aaaa'将变量aaaa的值写入到aaa.xls工作薄的第一个表中的c4单元格中。 wawd.Quit'退出word对象。 End Sub '________________________ 反之，也可以在word中调用excel对象。

[此贴子已经被作者于2003-1-3 9:38:48编辑过]

水清山 · 发表于 2003-1-3 13:31

不错, 我双手赞同!大力支持.

zxyding · 发表于 2003-1-9 10:27

能否讲解一个VBA的函数、属性、参数。

foolish_tyu · 发表于 2003-1-15 12:51

强烈支持。

FeiHong · 发表于 2003-1-18 20:14

在Windows下有许多精美的TrueType字库，我们可以利用它来制作出精美的文档，但是在Windows下，字库是属于系统资源而存在的，如果你使用了一个对方系统上没有的字库，则Windows会自动以系统默认的字库来代替，这时候原先的效果就会大减。而在Word 2000中有一项嵌入字体技术，它能够将一篇文档和该文档所包含的字体结合成一个文件，以便传输到另一台计算机上。嵌入字体保证了在传输的文件中所使用的字体能够显示在接收文件的计算机上。只要我们单击“工具”菜单中的“选项”命令，再单击“保存”选项卡，然后选中“嵌入TrueType字体”以及“只嵌入所用字符”复选框即可。

格子衫 · 发表于 2003-2-19 19:36

不知道word还能这么玩啊.....

chanet · 发表于 2003-3-7 10:38

不错~

		自动登录	找回密码
密码			免费注册