怎样在EXCEL中操作WORD文件

czz6589

为了在EXCEL中调用WORD文件,我参考有关资料编了一个程序如下,但运行时只能到WORD界面,而对其格式的更改命令却无法应用,说是不支持该属性可方法.哪位大侠能帮我?

Sub AA() Dim wd1 As Word.Application Set wd1 = New Word.Application With wd1 .Documents.Open Filename:="c:\AA.doc" .Selection.TypeParagraph .Selection.TypeText Text:="试用WORD!"

Selection.WholeStory With Selection.Font .NameFarEast = "宋体" .NameAscii = "Times New Roman" .NameOther = "Times New Roman" .Size = 180 .Bold = False .Italic = False .Underline = wdUnderlineNone .UnderlineColor = wdColorAutomatic .Strikethrough = False .DoubleStrikeThrough = False .Outline = False .Emboss = False .Shadow = False .Hidden = False .SmallCaps = False .AllCaps = False .Color = wdColorAutomatic .Engrave = False .Superscript = False .Subscript = False .Spacing = 0 .Scaling = 33 .Position = 0 .Kerning = 1 .Animation = wdAnimationNone .DisableCharacterSpaceGrid = False .EmphasisMark = wdEmphasisMarkNone End With

End With

End Sub

守柔

请参：

Sub AA() Dim wd1 As Word.Application, Doc As Word.Document Set wd1 = New Word.Application wd1.Visible = True Set Doc = wd1.Documents.Open("c:\AA.doc") With wd1.Selection .InsertAfter Chr(13) & "试用WORD!" .WholeStory .Font.Name = "Times New Roman" .Font.Size = 18 End With End Sub

在你的代码中，Selection.WholeStory With Selection.Font

selection之前应该加".",这是针对WORD对象(程序)的属性

办公之星

Sub 控制WORD() Dim wd1 As Word.Application, Doc As Word.Document Set wd1 = New Word.Application wd1.Visible = True Set Doc = wd1.Documents.Open("C:\控制WORD.doc") With wd1.Selection .InsertAfter Chr(13) & "试用WORD!" .WholeStory .Font.Name = "Times New Roman" .Font.Size = 18 End With End Sub

执行时报告：“用户定义类型未定义”，什么原因？

czz6589

非常感谢!我做好后会把我的作品传上来的.

czz6589

3楼的朋友,可能你还要在VB编辑器中"工具---引用"设置一下,再调用MICROSOFE WORD 才行.

办公之星

以下是引用czz6589在2004-11-9 12:46:00的发言： 3楼的朋友,可能你还要在VB编辑器中"工具---引用"设置一下,再调用MICROSOFE WORD 才行.

我晕，等您的练习上来了，再学习吧。

foshan

版主的代码可行!关键是要先在VBE中引用 word 对象 。 aftqWi0F.rar (26.8 KB, 下载次数: 279)

2005-1-23 17:44 上传

点击文件名下载附件
怎样在EXCEL中操作WORD文件

办公之星

最近忙得晕头转向，这个问题早都没影了，收藏起来研究吧。

谢谢楼上朋友。

leoxu_1982

正是我的问题,谢谢啊