vba word基本操作（经典）

    

一．   方法：

Word打开方法时调用的方法：Document_Open()

Word关闭时调用的方法：Document_Close()

调用subInt过程：Call subInt

Function fun() As Integer

‘代码

Fun=1

End Function

调用fun函数：在其他调用的方法或函数中直接用函数（因为函数要返回一个值），比如：if（fun=1）then….end if

1.1操作文件：

Private Sub deleteXML()

‘判断文件是否存在，然后删除文件

If Dir(ThisDocument.Path + "/" + filename1) <> "" Then

Kill (ThisDocument.Path + "/" + filename1) ‘

End If

End Sub

 

Private Sub rename()

‘重命名文件

If Dir(ThisDocument.Path + "/" + "temp.xml") <> "" Then

Name ThisDocument.Path & "/" & "temp.xml" As ThisDocument.Path & "/" & filename1

End If

End Sub

‘取得同目录下文件的名字

Private Sub HX_FileName()

  Dim fso As Object, folder As Object, subfolder As Object, objFile As Scripting.file   '创建FSO对象

  Set fso = CreateObject("scripting.filesystemobject")

  Set folder = fso.GetFolder(Path)

  For Each objFile In folder.Files

      If Strings.Right(objFile.Name, 8) = "gplx.xml" And Len(objFile.Name) > 8 Then filename1 = objFile.Name

  Next

End Sub

二．   声明变量

Dim a as Integer

Public mybut As CommandBarButton

Public mybar As CommandBar

三．   常用语句

1.If(a=1) then

 Else

End if

2.do while a<26

Loop

3.  For ID = 0 To count - 1 Step 1

     pidtemp = “123”

exit for ‘如果要跳出for语句，就加上此句

   Next ID

 

四：字符串

字符串的替换：将textbox1中的内容的回车和换行都替换为空。

Strings.Trim(Strings.Replace(Strings.Replace(ThisDocument.TextBox1.text, Chr(13), ""), Chr(10), ""))

1.访问标签lbel1的值：thisdocument.label1.caption

2.textbox1的值.textbox1.text

3.combobox1的值：combobox1.text

五：窗体

Userform中的textbox中光标可能无法停留在textbox框的前面，应该设置它的属性

selecttionmargin=false

二.选中table表中的行列的值，

1.首先定义表量，如果当前的table在word中的位置是第一张table,则n=1，是第几张表（必须去数没有table表的标示），n就为几。

set mytable=activedocument.tables(n)

第一种方法：（不适用表中有合并单元格的表）

mytable.rows(2).cells(2).select    '选中表的2行2列的值

selection.typetext textbox1.text   '将选中的区域的值修改为当前textbox1的值，

第二种方法：（适用于所有的表，包括表中有合并的单元格）

myTable.Cell(2, 2)=textbox1.text

三.类型转化

Cint（）：强制转化为整形

CStr（）：强制转化为字符串型

2.提取时间的年月日

DateTime.Year(2008-10-9)

DateTime.Month()

DateTime.Day()

Label1.Caption = DateTime.Year(DateTime.Date)

 Label2.Caption = DateTime.Month(DateTime.Date)

 Label3.Caption = DateTime.Day(DateTime.Date)

3.

四.弹出对话框

MsgBox("信息不能为空")，vbOKOnly+vbExclamation

五.控件

1.textbook

textbox获得焦点

TextBox1.SetFocus

2.ComboBox

 2.1combobox1的下拉列表加的内容

Private Sub ComboBox1_DropButtonClick()

  Dim oldValue As String

      oldValue = ComboBox1.text

  ComboBox1.Clear

  ComboBox1.AddItem ("北京地区")

  ComboBox1.AddItem ("沈阳地区")

  initComboValue ComboBox1, oldValue

End Sub

2.2initCombovalue方法

Private Sub initComboValue(ByRef comBox As ComboBox, ByVal oldValue As String)

    Dim i As Integer

    For i = 0 To comBox.ListCount - 1

        If comBox.List(i) = oldValue Then

            comBox.ListIndex = i

            Exit Sub

        End If

    Next i

End Sub

2.3 与combobox1关联的combobox3的下拉列表将会显示的内容

Private Sub ComboBox3_DropButtonClick()

  Dim oldValue As String

  oldValue = ComboBox3.text

  ComboBox3.Clear

  Select Case ComboBox1.value

  Case "数学"

      ComboBox3.AddItem ("数学史")

      ComboBox3.AddItem ("数理逻辑与数学基础")

      ComboBox.AddItem ("数论")

    Case "统计学"

       ComboBox3.AddItem ("统计学其他学科")

 End Select

      initComboValue ComboBox3, oldValue

 End Sub

2.4如果有“请填写”选项的话，需要改变ComboBox的样式

 Private Sub ComboBox2_Click()

   If ComboBox2.text <> "请填写" And ComboBox2.text <> "" Then

   ComboBox2.Style = fmStyleDropDownList

   Else

   ComboBox2.Style = fmStyleDropDownCombo

   End If

End Sub

六.关闭窗体

1.关闭窗体：

Unload me  '在方法里写这句话就行

七:菜单栏生成按钮

在菜单栏创建按钮控件，比如打开word文档时生成按钮。

Public Sub Load_button()

  Set mybut = CommandBars.FindControl(Type:=msoControlButton, Tag:="完成")

     '添加按钮

        Set mybar = CommandBars.Add(Name:="学术研讨控件", Position:=msoBarTop)

        mybar.Visible = True

        Set mybut = mybar.Controls.Add(Type:=msoControlButton)

        mybut.Caption = "完成"

        mybut.Style = msoButtonCaption

        mybut.Tag = "完成"

        mybut.OnAction = "Produces_xml"        

End Sub

*******************************************************************************

当点击次“完成”按钮时，调用过程Produces_xml

Private Sub Produces_xml()

‘代码

End Sub

八：生成xml文件

在当前目录下生成一个xml

Public Sub Produces_xml()

   Dim txtMy As String  '文件的内容变量

  ‘文件名

  txtFlname = ThisDocument.Path + "/" + Strings.Replace(f1, Chr(13), "") + ".xml"

‘文件内容

   txtMy = "<?xml version=""1.0"" encoding=""gb2312""?>" + vbCrLf + "<informations>" + vbCrLf + "<information>"

    txtMy = txtMy + vbCrLf + "</information>" + vbCrLf + "</informations>"

   Open txtFlname For Output As #1

   Print #1, txtMy 'dText '写入文件内容

   Close #1

   MsgBox ("信息已经生成！"), vbOKOnly + vbExclamation

End Sub

 

九.文档保护：当程序写完以后要进行word文档保护，工具-文档保护-编辑限制-填写窗体-启动文档强制保护。

但用户要调用后天的程序，所以要在用户调用程序时，自动取消文档保护，离开程序时，再自动保护(密码是yjt)，所以一般主调方法里要加入此段代码：

***********************************************************

  '取消文档保护

     If ActiveDocument.ProtectionType <> wdNoProtection Then

     ActiveDocument.Unprotect Password:="yjt"

‘你要写的程序，放在中间

'打开文档保护

     ActiveDocument.Protect Password:="yjt", NoReset:=False, Type:= _

        wdAllowOnlyFormFields

  ****************************************************************

在设计模式下不能保护，要退出设计模式后才可以保护。

 

十．Textbook框填写最大的内容，屏蔽回车和自动换行，使Textbook框中填写的内容达到最大值时不能自动换行。

Dim h As Integer

Dim y As Integer

Dim oldText As String

 

Private Sub main()

‘现在不太清楚main方法是否在程序的一开始自动调用的，好像不用也可以，只是对oldText的初始化

    oldText = ""

End Sub

‘调用过程,当textbox23改变时调用下面的方法

Private Sub TextBox23_Change()

Call LineStr(TextBox23)

End Sub

‘当textbox23获得焦点时，oldText的赋值为空，隔断它与上面textbox框的连接，因为oldText可能会保存上一个textbox的内容

Private Sub TextBox23_GotFocus()

oldTextt=””        

End Sub

‘主要过程

Private Sub LineStr(text As TextBox)

h = text.LineCount        ‘记录textbox中用户输入的总行数

y = CInt(text.Height / 11) ‘求textbox能容纳的总行数，一种字体对应不同的参数，例如小四是11

If (h > y) Then

text.EnterKeyBehavior = False  ‘使回车键失效

MsgBox ("字数或行数超过限制 ！")

text.value = oldText    

Else

text.EnterKeyBehavior = True

text.MultiLine = True

oldText = text.value

End If

End Sub

十一.系统时间

Private Sub UserForm_Activate()

  d1 = CStr(DateTime.Year(DateTime.Date))

  d2 = CStr(DateTime.Month(DateTime.Date))

  d3 = CStr(DateTime.Day(DateTime.Date))

TextBox7.Text = d1 + "-" + d2 + "-" + d3

End Sub

12.得到word中的表格数：

ActiveDocument.Tables.Count

13，过滤字符串

'过滤字符串函数

'去掉回车，换行<>等特殊字符，

Function xmlStr(str As String) As String

str1 = Strings.Trim(Strings.Replace(Strings.Replace(str, Chr(13), ""), "", ""))

str2 = Strings.Replace(Strings.Replace(str1, "&", "&"), ">", ">")

xmlStr = Strings.Replace(Strings.Replace(str2, "<", "<"), Chr(10), "")

End Function

13.处理字符串

Private Function checkmess() As Integer

Dim i As Object, t As Integer

checkmess = 1 '初始化变量，来表明是否可以关闭窗体

For Each i In Me.Controls '遍历当前窗体下的子控件

If TypeName(i) = "TextBox" Then

    i.value = Strings.Trim(i.value) '去掉多余的空格

  If i.value = "" Then

     checkmess = 0 '不能关闭窗体

     MsgBox ("信息不能为空！"), vbOKOnly + vbExclamation

     '如果此控件可以编辑，则可以获得焦点，否则不行

     If i.Enabled = True Then

     i.SetFocus

     End If

   Exit For

  End If

 End If

  Next

End Function

15.word中textbox框的样式

'在程序员设计表格的时候可以调用此方法，设置textbox的样式

'一般将其放在限定字数的函数内，这样每在textbox框中输入一次就会调用此方法，省去了繁琐的劳动

'程序员将页面设计完成后，此方法就没用了，将其删除掉

private sub textboxstyle(text as TextBox)

text.BorderColor = &H80000005

text.EnterKeyBehavior = True

text.MultiLine = True

text.BorderStyle = fmBorderStyleSingle

end sub