Word宏与VBA/VB

版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/hxxjxw/article/details/89499303

1、  Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言。是一种可用于微软自家产品开发的语言。

2、Word宏

      宏是一个批量处理程序命令，正确地运用它可以提高工作效率。

      微软的office软件允许用户自己编写，叫VBA的脚本来增加其灵活性，进一步扩充它的能力

      Visual Basic for Applications (VBA)，是 Microsoft Office 里的一种编程语言

      VBA 可以访问许多操作系统函数并支持文档打开时自动执行宏。这使得用这种语言写计算机病毒成为可能——宏病毒

3、VB和VBA的区别

      VBA是VB的一个子集，也可以讲是VB的简化版。

      Visual Basic for Applications（VBA）是一种Visual Basic的一种宏语言，主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件

4、基本语句、函数的作用

      ①Sub:过程；Function:函数

      ②Dim是用于声明变量并分配存储空间。

      ③MsgBox  弹出消息框
 

5、应用实例

①word中使用宏修改图片大小使图片大小相同

宏的位置

直接点上面的宏而不要点下面的下拉三角

写好之后保存点击运行就可以了

代码：

Sub 修改图片大小()
'
' 修改图片大小 宏
'

    Dim iSha As InlineShape
    For Each iSha In ActiveDocument.InlineShapes
        If iSha.Type = wdInlineShapePicture Then
            iSha.LockAspectRatio = msoFalse '不锁定纵横比
            iSha.Width = CentimetersToPoints(5) '宽5CM
            iSha.Height = CentimetersToPoints(5) '高5CM
        End If
        Next
End Sub

2、为代码添加行号

运行宏之前和运行后

代码：

Sub 代码编写行号()
'
' 代码编写行号 宏
'
    Dim parag As Paragraph
    Dim nLineNum: nLineNum = 0
    Dim selRge As Range
    Set selRge = Selection.Range
    For Each parag In Selection.Paragraphs
        nLineNum = nLineNum + 1
    selRge.Paragraphs(nLineNum).Range.InsertBefore (Format$(nLineNum, "00") & "   ")
    Next

End Sub

3、Hello World

代码：

Sub HelloWorld()
'
' HelloWorld 宏
'
    MsgBox ("hello world !")

End Sub

4、简单交互

代码：

Sub 简单交互()
'
' 简单交互 宏
'
'
    Dim X
    X = InputBox("您的姓名是：")
    MsgBox (" 欢迎" & X & "来到宏编程世界！")

End Sub