八达网

标题: 我想写一个在XP下运行的简单的程序，比如运算一个公式，然后生成word [打印本页]

作者: 幸福不倒翁 时间: 2013-1-29 19:07
标题: 我想写一个在XP下运行的简单的程序，比如运算一个公式，然后生成word
简单吗？以前读书时候写过简单的程序。当时好像是在VC下写的，照葫芦画瓢。只是可以计算公式，不能生成word。

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

作者: 蔡卓妍的枕头 时间: 2013-1-29 19:29
生成txt应该比较容易

作者: qupengbb 时间: 2013-1-29 19:42
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

作者: 幸福不倒翁 时间: 2013-1-29 19:47

qupengbb 发表于 2013-1-29 19:42
VB简单得一B。。

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

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

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

作者: qupengbb 时间: 2013-1-29 19:51

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

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

作者: 幸福不倒翁 时间: 2013-1-29 19:53

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

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

作者: qupengbb 时间: 2013-1-29 19:57

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

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

欢迎光临八达网 (https://www.8-da.com/)