怎样通过python调用word或Excel中的vba函数

WORD中的VBA也有函数啊。

a$="" & Rnd() '生成0-1之间的小数随机数

a$="" & Rnd() 1000 '生成0-1000之间的随机数(带小数）

a$="" & Int(Rnd() 1000) '生成0-1000之间的整数随机数

下面的VBA过程在WORD正文内容中插入一个5位数的整数随机数，后加一个换行符：

Sub bbb()

a$ = "" & Int(Rnd() 100000)

SelectionTypeText a$

SelectionTypeParagraph

End Sub

-------

1

$ = <Shift> + 4

2

光标置于表格第一列顶端，先录制一个宏， *** 作：

a 启动录制宏;

b 输入：123

c 按向下光标键，移到第一列第二格;

d 输入：456

e 关闭录制宏

查看,可见到录制的宏内容：

Sub Macro1()

SelectionTypeText Text:="123"

SelectionMoveDown Unit:=wdLine, Count:=1

SelectionTypeText Text:="456"

End Sub

进行一些修改，加上循环，成为

Sub Macro1()

For i = 1 To 10

SelectionTypeText Text:="" & Int(Rnd() 1000)

SelectionMoveDown Unit:=wdLine, Count:=1

Next i

End Sub

该宏从表格当前单元格开始，向下连续填充10个随机数。

使用法：

在表格中放好光标（下面要留有至少10行），运行该宏即可。

自己再研究、扩展一下，更详细的可以查阅VBA窗口中的帮助。

遍历修订示例：

    Dim rs As Revision

    For Each rs In ActiveDocumentRevisions

        MsgBox rsRangeText

    Next

遍历批注内容示例：

  Dim cm As Comment

    For Each cm In ActiveDocumentComments

        MsgBox cmRangeText

    Next

转到第 2 个批注示例：

   SelectionGoTo What:=wdGoToComment, Which:=wdGoToAbsolute, Count:=3

遍历转到每个修订内容：

    Dim rs As Revision

    For Each rs In ActiveDocumentRevisions

        rsRangeSelect

    Next

　Office取得巨大成功的一个重要原因就是VBA，使用VBA可以完成很多事情，基于 Excel 、Word的VBA小程序不计其数。竟然VBA这么重要，那么下面我就教你怎么在word2007中使用VBA吧。

　在word2007中使用VBA的 方法 步骤

　打开word2007

在word2007中使用VBA的方法步骤图1

　如果功能区有开发工具选项，跳到步骤6,如果没有，继续

在word2007中使用VBA的方法步骤图2

在word2007中使用VBA的方法步骤图3

　打开文件选项

在word2007中使用VBA的方法步骤图4

　点击word选项

在word2007中使用VBA的方法步骤图5

　选择“在功能区显示‘开发工具’选项”

在word2007中使用VBA的方法步骤图6

　点击“开发工具”选项

在word2007中使用VBA的方法步骤图7

　点击“Visual Basic”选项

在word2007中使用VBA的方法步骤图8

　出现Visual Basic页面

在word2007中使用VBA的方法步骤图9

1 excel2007怎么打开vba窗

2 怎么打开excel2007的代码编辑器

3 excel2007宏不能使用怎么办

4 Excel2007调用控件或开发工具

5 Excel2007教程

6 excel2007怎么将两个工作表合并成一个