Microsoft . 技术之路...

—— 专注于微软技术, 分享是快乐的源泉......
  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2006年7月25日

摘要: Const CENTERED = 1Set objWord = CreateObject("Word.Application")objWord.Visible = TrueSet objDoc = objWord.Documents.Add()Set objSelection = objWord.SelectionobjSelection.ParagraphFormat.Alignment = C... 阅读全文

posted @ 2006-07-25 11:27 赣江源 阅读(1018) 评论(0) 推荐(0) 编辑

摘要: Set objWord = CreateObject("Word.Application")Wscript.Echo "Version: " & objWord.VersionWscript.Echo "Build: " & objWord.BuildWscript.Echo "Product Code: " & _ objWord.ProductCode()objWord.Quit 阅读全文

posted @ 2006-07-25 11:25 赣江源 阅读(304) 评论(0) 推荐(0) 编辑

摘要: Set objWord = CreateObject("Word.Application")objWord.Visible = TrueSet objDoc = objWord.Documents.Add()Set objSelection = objWord.SelectionSet objShape = objDoc.ShapesobjShape.AddPicture("C:\Scripts\... 阅读全文

posted @ 2006-07-25 11:23 赣江源 阅读(1500) 评论(0) 推荐(0) 编辑

摘要: Set objWord = CreateObject("Word.Application")objWord.Visible = TrueSet objDoc = objWord.Documents.Add()Set objRange = objDoc.Range()objDoc.Tables.Add objRange,1,3Set objTable = objDoc.Tables(1)x=1str... 阅读全文

posted @ 2006-07-25 11:22 赣江源 阅读(796) 评论(0) 推荐(0) 编辑

摘要: Set objWord = CreateObject("Word.Application")objWord.Caption = "Test Caption"objWord.Visible = TrueSet objDoc = objWord.Documents.Add()Set objSelection = objWord.SelectionobjSelection.Font.Name = "Ar... 阅读全文

posted @ 2006-07-25 11:20 赣江源 阅读(640) 评论(0) 推荐(0) 编辑