我想写一个在XP下运行的简单的程序，比如运算一个公式，然后生成word

幸福不倒翁

简单吗？以前读书时候写过简单的程序。当时好像是在VC下写的，照葫芦画瓢。只是可以计算公式，不能生成word。

有没有类似的模板，修修改改就可以用的？

蔡卓妍的枕头

生成txt应该比较容易

qupengbb

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
VB简单得一B。。

哈哈。改天我去下载个VB，搭积木。
谢谢你了。

不过如果还要增加些功能的话对我来说就比较难了。

比如：有10条记录，我要选择3条进去生成文档。然后还有我可以编辑和添加这个记录。这个好像要用到数据库。对不对。这个难吗？

qupengbb

幸福不倒翁 发表于 2013-1-29 19:47
哈哈。改天我去下载个VB，搭积木。
谢谢你了。

要操作数据库的话，就用ADO吧，也不难的。应付小程序没问题。

幸福不倒翁

qupengbb 发表于 2013-1-29 19:51
要操作数据库的话，就用ADO吧，也不难的。应付小程序没问题。

好的。
VB编写的可以在win7下运行吗？

qupengbb

幸福不倒翁 发表于 2013-1-29 19:53
好的。
VB编写的可以在win7下运行吗？

我试过，一般是可以的。有些小问题，到时候百度一下就解决了。