我想写一个在XP下运行的简单的程序，比如运算一个公式，然后生成word
简单吗？以前读书时候写过简单的程序。当时好像是在VC下写的，照葫芦画瓢。只是可以计算公式，不能生成word。有没有类似的模板，修修改改就可以用的？ 生成txt应该比较容易 VB简单得一B。。
Dim wdapp As Word.Application '声明 Word 应用程序
Dim wddoc As Word.Document '声明 Word 文档
Dim atable As Word.Table '声明 Word 表格对象
Dim se1 As Word.Selection 'Selection 对象表示当前选择的区域。在 Word 用户界面中执行某项操作（例如，对文本进行加粗）时，应首先选择或突出显示文本，然后应用格式设置。Selection 对象始终存在于文档中。如果未选中任何对象，它表示插入点。此外，它也可以是不连续的多个文本块。
Set wdapp = CreateObject("Word.Application") '创建word应用程序，这一句话打开word2000
Set wddoc = wdapp.Documents.Add '在word中添加一个新文档
Set se1 = wdapp.Selection
wdapp.Caption = "打印销售订单" 'Caption 属性：返回一个包含活动窗口标题的字符串。
wdapp.Visible = True '让所创建的 Word 应用程序对象可见。
wdapp.Activate 'Activate 方法：该方法可激活工程窗口中当前选中的部件，如同双击它一样。
wddoc.PageSetup.PageWidth = CentimetersToPoints(21) '定义纸张的宽度为21cm
wddoc.PageSetup.PageHeight = CentimetersToPoints(14) '定义纸张的高度为14cm
wddoc.PageSetup.TopMargin = CentimetersToPoints(0.5) '定义上边距为0.5cm
wddoc.PageSetup.BottomMargin = CentimetersToPoints(0.5) '定义下边距为0.5cm
wddoc.PageSetup.LeftMargin = CentimetersToPoints(0.5) '定义左边距为0.5cm
wddoc.PageSetup.RightMargin = CentimetersToPoints(0.5) '定义右边距为0.5cm
Set atable = wdapp.ActiveDocument.Tables.Add(wdapp.Selection.Range, 22, 6) '创建一个22行6列的表格
se1.MoveDown Unit:=wdLine, Count:=21 '将光标在表格中向下移动21行
se1.MoveRight Unit:=wdCharacter, Count:=7 '将光标向右移动7下
se1.TypeParagraph '一个回车键
Set atable = wdapp.ActiveDocument.Tables.Add(wdapp.Selection.Range, 22, 6) '创建一个22行6列的表格
'清除word对象
Set wdapp = Nothing
Set wddoc = Nothing
qupengbb 发表于 2013-1-29 19:42 static/image/common/back.gif
VB简单得一B。。
哈哈。改天我去下载个VB，搭积木。
谢谢你了。
不过如果还要增加些功能的话对我来说就比较难了。
比如：有10条记录，我要选择3条进去生成文档。然后还有我可以编辑和添加这个记录。这个好像要用到数据库。对不对。这个难吗？
幸福不倒翁 发表于 2013-1-29 19:47 static/image/common/back.gif
哈哈。改天我去下载个VB，搭积木。
谢谢你了。
要操作数据库的话，就用ADO吧，也不难的。应付小程序没问题。 qupengbb 发表于 2013-1-29 19:51 static/image/common/back.gif
要操作数据库的话，就用ADO吧，也不难的。应付小程序没问题。
好的。
VB编写的可以在win7下运行吗？ 幸福不倒翁 发表于 2013-1-29 19:53 static/image/common/back.gif
好的。
VB编写的可以在win7下运行吗？
我试过，一般是可以的。有些小问题，到时候百度一下就解决了。
页:
[1]