最新消息:20210816 当前crifan.com域名已被污染,为防止失联,请关注(页面右下角的)公众号

【整理】word vba学习记录

VBA crifan 6258浏览 0评论

本帖内容已移至:各种计算机语言简介和总结 – 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文件里面,有已经总结好的了:

字符串处理关键字总结

作用关键字
比较两个字符串。StrComp
变换字符串。StrConv
大小写变换。Format, LCase, UCase
建立重复字符的字符串。Space, String
计算字符串长度。Len
设置字符串格式。Format
重排字符串。LSet, RSet
处理字符串。InStr, Left, LTrim, Mid, Right, RTrim, Trim
设置字符串比较规则。Option Compare
运用 ASCII 与 ANSI 值。Asc, Chr

上述字符串处理相关的函数,多数都是见名知意,容易看懂和使用, 但是也有些不太容易搞懂,或者和普通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 中的类型库定义,可用来在代码中的任何地方代替实际值

常数等于描述
vbCrLfChr(13) + Chr(10)回车符与换行符结合
vbCrChr(13)回车符
vbLfChr(10)换行符
vbNewLineChr(13) + Chr(10) or, on the Macintosh, Chr(13)平台指定的新行字符;适用于当前平台
vbNullCharChr(0)值为 0 的字符
vbNullString值为 0 的字符串用来调用外部过程;与长度为零的字符串 (“”) 不同
vbObjectError-2147221504用户定义的错误号应当大于该值,例如:
Err.Raise Number = vbObjectError + 1000
vbTabChr(9)Tab 字。
vbBackChr(8)退格字符
vbFormFeedChr(12)在 Microsoft Windows or on the Macintosh 中没有作用
vbVerticalTabChr(11)在 Microsoft or on the Macintosh Windows 中没有作用

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文件做的很好,里面总结了一些常见的函数,前面列出来的,就是那个字符串处理相关的函数。

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

关键字分类

分类描述
数组建立、定义与使用数组。
编译命令控制编译方式。
控制流循环及过程流程控制。
变换变换数值及数据类型。
数据类型数据类型与 variant 子型态。
日期与时间变换、使用日期与时间表达式。
目录和文件控制文件系统与处理文件。
错误侦测与返回错误值。
金融进行各种金融运算。
输入与输出接受输入与显示、打印输出。
数学完成各种数学运算。
其他激活其他应用程序与处理事件。
操作符比较表达式与完成其它操作。
字符串处理处理字符串及字符串数据类型。
变量与常数声明、定义变量与常数。

 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学习记录

发表我的评论
取消评论

表情

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址
81 queries in 0.165 seconds, using 22.12MB memory