重新收集VB+Word2000应用开发问题

骷髅头

本人原来使用VB开发程序,目前使用Delphi开发. 为进一步提高本人的VB+word2000水平,现发此贴,以集VB+word问题. 请大家给予支持严禁灌水.谢谢.

守柔

支持一下楼主,请楼主先发几个示例,我们一起学习.谢谢.

骷髅头

那我来下抛砖引玉吧

打开一个现在文档

Dim wdApp As Word.Application
  Dim wdDoc As Word.Document
  Set wdApp = CreateObject("Word.Application")                    '创建Word对像
  wdApp.Documents.Open (sFileName)                                '
  Set wdDoc = wdApp.Documents(sFileName)
  wdApp.Visible = True                                            '是否显示文档

创建一个新的文档

  Dim wdApp As Word.Application
  Dim wdDoc As Word.Document
  Set wdApp = CreateObject("Word.Application")
  Set wdDoc = wdApp.Documents.Add
  wdApp.Visible = True

保存或另保存一个文档

 wdDoc.Save
 wdDoc.SaveAs sFileName

每一次创建或打开一个Word进程后，关闭后记释放内存

  Set wdDoc = Nothing
  wdApp.Quit
  Set wdApp = Nothing

[此贴子已经被作者于2006-7-22 21:36:54编辑过]

骷髅头

  拷贝整个文档

wdApp.Selection.WholeStory                                   '对文档进行复制

wdApp.Selection.Copy

wdApp.Selection.EndKey unit:=wdStory
wdApp.Selection.InsertBreak Type:=wdPageBreak
wdApp.Selection.Paste

[此贴子已经被作者于2007-5-28 7:55:37编辑过]

骷髅头

动态创建表格

    Dim wdDoc As Word.Document
    Dim wdApp As Word.Application
    Dim wdTable As Word.Table
    Dim wdCell As Word.Cells
    Set wdApp = CreateObject("Word.Application")
    Set wdDoc = wdApp.Documents.Add
    Set wdTable = wdDoc.Tables.Add(wdDoc.Range(0, 0), 8, 4)
    wdDoc.SaveAs App.Path & "\CreateTable.doc"
    wdApp.Quit
    Set wdDoc = Nothing

骷髅头

横向（整行，或也可以指定行向的几个单元格合并）合并单元格

wdDoc.Tables(i).Rows(j).Cells.Merge
i代表第几个表格,j代表是第几行

纵向(列，指定某列的向个单元格合并)合并单元格

wdDoc.Tables(i).Cell(Row:=intMerge, Column:=4).Merge Mergeto:=aDoc.Tables(i).Cell(Row:=intRowCount, Column:=4)
intMerge代表第几行（变量）,,整行的语句意思是，第intMerge行第四列到第intRowCount第四列合并单元格(某列的几行单元格合并)

骷髅头

为什么格式老变掉，排版好难排啊！！！！！！！

konggs

文字＋图片。

文字用来描述，图片看到整齐的排版。

谢谢楼主的分享。

骷髅头

QUOTE:

以下是引用konggs在2006-7-23 7:25:05的发言：

文字＋图片。

文字用来描述，图片看到整齐的排版。

谢谢楼主的分享。

我的知识取之论坛，用之于论坛，跟大家交流是我最大的愿望

zxhmfk

高手啊！
膜拜中。。。。。。