本帖内容已移至：各种计算机语言简介和总结 – word vba学习记录

 【整理】word vba学习记录

Version：2011-01-14

Author: green-waste (at) 163.com

【看帖前必读】

1.此贴目的：只是为了记录最近在接触学习word vba的过程中，一些心得和体会或者是学习时候要注意的一些方面，特此记录，以备后差或他人借鉴。

2.看之前，读者最好具有基本的编程相关知识和基本的VB的基础，以便更好理解所说的内容。

3. 此贴所写内容，多为本人整理或自己的理解，如果有误，欢迎指正：green-waste (at) 163.com

【Word VBA学习记录】

1.什么是word vba？ 为何要用VBA？

什么是VBA？为什么要学习VBA?
=========
VBA是Visual Basic For Application的简称，换句话说，就是将VB应用于Application应用程序，此处的Application指的是微软的Excel，word等应用程序。所以，对于我用到的，在word里面写宏，去实现一些操作，用到的VB，就是Word VBA了。而其他常用的，还有Excel里面也会用到用宏去实现一些根据自己需求实现的一些功能，比如自动提取一些内容到一个文档中，否则，自己手动慢慢地复制粘贴，往往效率极低，累死你不说，还不容易保证完全正确，而通过宏来处理，运行一下宏，点击一下某个菜单等，即可实现要做的事情，高效，准确。

就像别人说的，除了“Excel本身的内置函数其实已经很强大了”，但是只是很强大，有些更高级或复杂的操作，还是宏实现起来更方便和快捷。

再简而言之，如果你不是需要对某（些）文档特殊处理，只是一般的使用word或excel文档，多数人都是用不到的。

而如果有类似于我这样的需求，将某个word文档中的很多表格中的符合某些特定条件的某些列的内容，经过一定条件判断，将对应的值提取到一个xml文档中，并且输出的时候，要将该值根据某些约定，再分成几个部分等等，这类的操作，手动实现，要一个个去找对应的表格，然后找到对应的值，然后手动复制，粘贴，一点点做，效率很低，而如果可以用宏实现，只需要写好宏代码，运行一下，即可省去大量的精力。

不过，再引用别人的，提示一下：“但有一点叶枫想要告诉大家，VBA功能很强大，但并不是万能的，也并不是所有工作都需要用VBA来解决，也并不是所有工作用VBA来解决都会很简单，这要根据实际情况而定，有些工作你用VBA来解决的话相反会变得很麻烦。”

2.不等于符号

VBA里面的不等于号，用<>表示，而不是其他C等语言里面的!=.。

<>，即大于号和小于号的组合，意思也很明确，既不大于也不小于，所以就是不等于了。

3。如何选中一行并获得对应的文字 和 wdMove和wdExtend的区别

前提，光标（或叫插入点）已经移动到该行了，但是想要选中该行，并想要获得对应所选Range的文字

此时可以用如下代码：

Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
其中，wdLine是单位（Unit），类似的Unit还有： wdLine， wdParagraph，wdWindow，wdScreen。

WdExtend，对应的还有wdMode，对此，VBA教程的解释是：

“如果是 wdMove，则所选内容折叠到结束位置，并向下移动。如果是 wdExtend，则所选内容向下扩展。默认值为 wdMove。”
没完全理解，但是经过测试得知，如果是mdMove，那就是光标移动到对应位置了，但是没有选择这（光标移动的）起点到终点，此处为整个这一行，的内容，如果是wdExtend，那就是不仅移动光标了，并且同时选中了起点到终点的内容。

4.如何跳转到某一标题 和 如何移动光标/插入点

Selection.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=5

这里主要是利用Goto语句，wdGoToHeading说明掉转的单位是heading标题，wdGoToAbsolute表示是绝对位置的跳转，于此相对应的还有wdGoToAbsolute, wdGoToFirst, wdGoToLast, wdGoToNext, wdGoToPrevious, wdGoToRelative。更多详细内容，请参考附录“Word VBA 教程”。

另外，对于移动光标/插入点，可以借鉴如下做法：

‘本示例将所选内容移至当前文字部分的开头。如果所选内容位于文档正文部分，则本示例将所选内容移至文档的开头。
Selection.HomeKey Unit:=wdStory, Extend:=wdMove

其中wdStory属于wdUnits，其他类似的wdUnits，还有wdColumn，wdLine，wdRow等。

5. 如何获得选中的标题的序号

前提，已经选择某一标题了，想要获得该标题前面的序号

比如对这个标题：

2.1     PAPRBY / RubyVerifoneDefaults

想要获得标题的序号，即2.1.

Selection.Bookmarks(“headinglevel“).Range.ListFormat.ListString ‘获得当前标题的序号，即2.1

其中headinglevel是VBA里面的预定义标签。

关于此内容的详细解释，请参考：

【解决】word VBA中,获取当前所选内容的标题序号/标题数字/heading level/heading number

http://againinput4.blog.163.com/blog/static/1727994912011041136779/

6。 如何返回函数的返回值

关于这点，网上找，没几个说的很清楚的，最后还是通过VBA的Help才搞懂如何返回函数返回值的。此处，简单解释如下：

一个Function函数的语法为：

[Public | Private | Friend] [Static] Function name [(arglist)] [As type]
[statements]
[name = expression]
[Exit Function]
[statements]
[name = expression]

End Function

其中，函数内部任何地方都可以出现[name = expression]，name即为函数名，expression是表达式，当然也可以是某个变量，常量等，其就代表了返回值。更具体额度解释和例子，摘录如下，很容易看懂的：

“要从函数返回一个值，只需将该值赋给函数名。在过程的任意位置都可以出现这种赋值。如果没有对 name 赋值，则过程将返回一个缺省值：数值函数返回 0，字符串函数返回一个零长度字符串 (“”)，Variant 函数则返回 Empty。如果在返回对象引用的 Function 过程中没有将对象引用赋给 name （通过 Set），则函数返回 Nothing。

下面的示例说明如何给一个名为 BinarySearch 的函数赋返回值。在这个示例中，将 False 赋给了该函数名，表示没有找到某个值。

<code>Function BinarySearch(. . .) As Boolean  <b>. . .</b> </code> <code>'</code>值未找到，返回一个<code> False </code>值。      <code>If lower &gt; upper Then</code> <code>        BinarySearch = False</code> <code>        Exit Function</code> <code>    End If</code> <b><code>. . .</code></b> <code>End Function"</code>

看懂后，多说一句，有问题，还是先找VBA的Help系统，比百度，google等，有时候更准确，方便，易懂。

 7.字符换处理函数

关于VBA中的字符串相关的函数，刚发现，office 2010 中的 VBA的help文件里面，有已经总结好的了：

字符串处理关键字总结

上述字符串处理相关的函数，多数都是见名知意，容易看懂和使用， 但是也有些不太容易搞懂，或者和普通C语言等里面的字符串处理函数不同的，需要额外说明的，解释如下：

(1) Space, String：其中Space很方便，比如想要输出10个空格，当然你可以通过自己手动的写成“          ”，但是有了space，用其更方便，直接写成Space(10)，即代表了10个空格。同理，String(number,characterToRepeate)用于输出多个某一字符，而对于前面的空格来说，也可以用string表示，即Space(10)=String(10, 32)，其中32=0x20，是space的ASCII值。而String的优点在于，也可以输出其他字符，包括0x0~0x1F之类不可见字符。

(2) InStr, InStrRev：这个InStr，其实就是C语言的strstr,

语法为：

InStr([start, ]string1, string2[, compare])

意思为：“返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。”

而InStrRev意思和InStr类似，只不过是“在该字符串中，从后往前查找”，但是特别要注意的是，其返回的值，是从前往后数的第几个，而不是从后往前数算出来的值。

举例说明：

InStr(“abcdefgeh”, “e”) = 5 ‘返回正常的，从前往后数，第5个字母是e。

InStrRev(“abcdefgeh”, “e”) = 8 ’其从后往前查找e。返回的值是，从前往后数 的 第8，而不是 从后往前 的 第2。

(3) Asc, Chr: Asc是将字符转换为ASCII数值，Chr是将数值转换为ASCII字符。举例为：

MyNumber = Asc(“A”)    ‘ 返回 65。
MyChar = Chr(97)    ‘ 返回 a。

8.如何创建文件和输出信息到文件里面

‘——————方法1——————

Function createFileTest()
‘ the name of the file to be output, including full path
Dim FileName As String
FileName = “D:create_file.txt”

‘ open the file ouput text stream output, overwritng is necessary
Dim fs As Object
Set fs = CreateObject(“Scripting.FileSystemObject”)

Dim file As Object
Set file = fs.CreateTextFile(FileName, True)

file.WriteLine “test string…”

file.Close

End Function

‘——————方法2——————

Public gFileNum As Integer

Function createOutputFile()

Dim outputFileNameWithPath As String

Dim gDestFile As String
Dim outputFileNameWithPath As String

Dim openFileOK As Boolean

openFileOK = True

‘ 1. create an XML file

outputFileNameWithPath = “D:test_output.txt”
gDestFile = outputFileNameWithPath

‘ Obtain next free file handle number.
gFileNum = FreeFile()

‘ Turn error checking off.
On Error Resume Next

‘ Attempt to open destination file for output.
Open gDestFile For Output As #gFileNum

‘ If an error occurs report it and end.
If Err <> 0 Then
openFileOK = False
MsgBox “Cannot create file: ” & gDestFile
End If

‘ Turn error checking on.
On Error GoTo 0

createOutputFile = openFileOK

End Function

Sub createFileTest()

Print #gFileNum, “Test output string to this file…”

Print #gFileNum, “Test done.”

Close #gFileNum
End Sub

9.如何获得当前文件的文件名 和 当前文件所在路径
（1）获得当前文件所在的路径：ActiveDocument.Path

注意：所得结果，最后没有那个路径分隔符””

（2）获得当前文件的文件名：ActiveDocument.Name

（3）获得当前文件的路径和文件名，即全名：ActiveDocument.FullName

10.VB里面的一些常量

office 2010的help文件里面已有总结：

Visual Basic 常数

Visual Basic for Applications 定义了一些常数，使程序设计变得更为简单。下列常数可在程序代码中的任何地方代替实际值：

Calendar 常数  CallType 常数  Color 常数   Compiler 常数  Date 常数  Dir、GetAttr 和 SetAttr 常数  IMEStatus 常数  Instr、StrComp 常数  Keycode 常数  Miscellaneous 常数  MsgBox 常数  QueryClose 常数  QueryClose 常数  Shell 常数  StrConv 常数  系统颜色常数  VarType 常数  Visual Basic 常数

其中，此处打算把一些我所常用到的一些常数列出来，以供参考：

Miscellaneous 常数

下列常数由 Visual Basic for Applications 中的类型库定义，可用来在代码中的任何地方代替实际值

10. VBA中如何定义 枚举变量 和 结构体变量,如何使用switch case语句
枚举 和 结构体，分别用Enum 和 Type。

可以自己输入Enum或Type，这两个关键字，然后选择关键字，再按F1以打开Help文件，可以查看详细的语法和举例。

此处列举出其语法：

（1）枚举：

Public | Private] Enum name

membername [= constantexpression]

membername [= constantexpression]

. . .

End Enum

（2）结构体：

[Private | Public] Type varname
elementname [([subscripts])] As type
[elementname [([subscripts])] As type]
. . .

End Type

（3）vba中的类似C语言的switch case是select case：

Select Case testexpression
[Case expressionlist-n
[statements-n]] ...
[Case Else
[elsestatements]]

End Select

枚举和结构体，简单举例如下：

Enum e_ErrorType
Error_Unknown
Error_Table
Error_Command
End Enum

Type t_ErrorItem
errType     As e_ErrorType
funcName    As String
tblNr       As Integer
rowIdx      As Integer
errString   As String
End Type

Type t_ErrorInfo
errNrPerFunc    As Integer ‘ errors per funciton
curErrItemIdx   As Integer  ‘record current error item index
errArray(120)   As t_ErrorItem

End Type

Dim gErrInFunc As t_ErrorInfo    ‘record error details per function
gErrInFunc.errArray(gErrInFunc.curErrItemIdx).errString = “Error of short len !!!”

select case用help中的例子：

<code>Dim Number  Number = 8    ' Initialize variable.  <b>Select Case</b> Number    ' Evaluate Number.  <b>Case</b> 1 To 5    ' Number between 1 and 5, inclusive.      Debug.Print "Between 1 and 5"  ' The following is the only Case clause that evaluates to True.  <b>Case</b> 6, 7, 8    ' Number between 6 and 8.      Debug.Print "Between 6 and 8"  <b>Case</b> 9 To 10    ' Number is 9 or 10.  Debug.Print "Greater than 8"  <b>Case Else</b>    ' Other values.      Debug.Print "Not between 1 and 10"  <b>End Select</b> </code>

【更多提示】

1.通过VBA内置的Help系统查询不懂的内容

在word里面打开VBA编辑器编辑vba代码后，对于常见的一些对象，属性，方法（函数）等的具体解释，多数都可以通过选择该对象/属性/方法，然后按F1键，打开帮助，其会自动跳转到对应的帮助内容，很是方便，而且很多的细节，解释的也比较详细，可以多多利用。

其中都包括了一些基本知识的详细解释，比如上面提到的，关于VBA中关于Function的返回值，其要去查看Help文件，就可以通过选择某函数，比如

Function funcName()
‘XXXXXX

End Function

中的Function，然后按F1键，系统自动会跳转到Help文件中关于Function的解释，很方便。

2. 一些基本单位（名词）的介绍：story, section, paragrah, line, character,table,cell,row, column

对于所选一段文字后，即引用Selection，其中会包含很多属性，Selection.XXX 其中XXX就有下面列出来的很多种，现在简单说说我对这些属性含义的理解：

Story: 中文直译为 故事，经过测试，感觉对于word文档来说，好像就是整个文档的内容。
Text:不必多解释，就是所选内容的

Sections：节。经测试，好像整个word文档，就一个节，有点像story，具体两者的区别，暂未搞懂。
Paragraphs：段落。按照中文的段落的含义理解，怎么说也应该有个几十行之类的文字，才算一个段落的，这是之前学语文的时候的感觉。结果发现这里的段落和中文意思的段落，差别很大，一个文档里面，没多少行字，结果段落就几百个了，貌似是一个单词，一个换行，一个表格中的值，都算一个段落。

Sentences：句子，同常理，不多解释。
Words：单词，同常理，不多解释。

Characters：字符，同常理，不多解释。
Tables，Cells，Rows，Columns：表格，同常理。其中包含了很多个cell，即单元格。每个cell，都对应不同的行和列。（打印）输出所选Range中（其包含很多个表格）中的第二个表格中的第三行第四列的值，表示为：

Print Selection.Tables(2).Cell(3, 4)
注意，其中第三行第四列，不是Cell(2,3)，因为其单元格的下表是从1开始，而不是原以为的类似于C语言或者Excel中的0为起始值的。

End ，Start：即Selection.Start和Selection.End ，都是直接赋值的。所以，如果你想要选中某段内容（文字），那么只要找到你所要的起点和终点，然后将其值赋值给Selection.Start和Selection.End，即可选中该段内容（文字）。当然，也可以利用两者算出所选内容的长度：slection_len  = Selection.End – Selection.Start

3.获得所选range的文字，尝试了一下，发现两种都可以：

Selection.Text

Selection.Range.Text

 4.常见函数分类列表

office 2010中VBA的help文件做的很好，里面总结了一些常见的函数，前面列出来的，就是那个字符串处理相关的函数。

下面列出了，其他一些类别，先放到这里，以备后查：

关键字分类

 5.网上在线查找相关帮助内容：

刚找到的，微软的官方的在线帮助：

http://office.microsoft.com/zh-cn/access-help/CH010072891.aspx?CTT=97

【引用】

1. Word VBA 教程：Microsoft Word Visual Basic 参考

http://d.download.csdn.net/down/1924671/taozx11

2.菜鸟谈VBA最最基础入门《原创》 –  叶枫

3. Word VBA内置的Help

转载请注明：在路上 » 【整理】word vba学习记录