广泛应用于网页的交互式设计其实也可用于编辑Word文档,这样的文档无疑给别人许多新奇,为你的能力赢来更多的赞许。这里,word联盟小编教大家在如何在word2013中制作简单的按钮控件,感受下会动的word。


①由于“开发工具”不经常用,所以在功能选项面板中没有“开发工具”这一栏。所我们需要设置。在功能选项面板中选择“文件”,在跳转出来的版面中选择“选项”。

想要做一个在excel中单击某个单元格,然后根据该单元格的内容,打开一个对应word文档的功能。并没有怎么用过excel,之前大概知道这东东有很强大的宏功能。OK,那就来试试。

新萄京娱乐场手机版 1

Excel2007中打开“开发工具”选项卡
  1. 首先点击左上角

    新萄京娱乐场手机版 2

    fig1

  2. 然后点击弹窗右下角的“Excel选项”按钮

    新萄京娱乐场手机版 3

    fig2

  3. 然后勾选“在功能区显示‘开发工具’选项卡”这个按钮

    新萄京娱乐场手机版 4

    fig3

  4. OK,Excel2007窗口应该已经有“开发工具”这个选项卡了,可以进行下一步操作

②在“Word选项”面板中选择“自定义功能区”,在右侧“自定义功能区”标签下,勾选“开发工具”。

Excel2007执行macro
  1. 首先切换到“开发工具”选项卡,确保“设计模式”(design
    mode)按钮已按下,点击“插入”,选择“ActiveX控件”中的“命令按钮”(command
    button)

    新萄京娱乐场手机版 5

    fig4

  2. 紧接上一步,在文本中合适位置拖一个按钮出来

    新萄京娱乐场手机版 6

    fig5

  3. 在“设计模式”按钮按下的情况下,在拖出来的这个按钮上右键,选择“查看代码”

    新萄京娱乐场手机版 7

    fig6

  4. 点击“查看代码”后,会出现一个新弹窗,在这个弹窗中如图所示位置,加入测试代码(Range("A1").Value="Hello"),然后关闭代码窗口

    新萄京娱乐场手机版 8

    fig7

  5. 点击一下“设计模式”按钮,退出设计模式;然后点击刚才拖出来的那个按钮一次,会发现A1单元格的值变成了“Hello”,测试成功

    新萄京娱乐场手机版 9

    fig8

  6. 实际上,只要点击“开发工具”栏的“Visual
    Basic”按钮,就可以直接打开VB代码窗口进行编辑

    新萄京娱乐场手机版 10

    fig9

新萄京娱乐场手机版 11

VBA介绍

VBA(Visual Baisc for Applications) is the programming language of Excel
and other Office programs.

VBA语法教程

③这样,在功能选项面板中就可以看到“开发工具”一栏了。单击“开发工具”—“旧式工具”—Activex控件标签下的“按钮”。

VBA调试

to be continued

新萄京娱乐场手机版 12

用excel宏打开对应word文档

首先创建测试文档,比如,在H:test下创建test-doc目录,新建3个docx文件

新萄京娱乐场手机版 13

doc1

在H:test下创建test-excel目录,新建一个xlsx文件

新萄京娱乐场手机版 14

doc2

按照前面的例子,在excel文档中添加按钮,按钮的VBA代码填下面这段(搜索docx的目录要按需要修改)

Private Sub CommandButton1_Click()
Dim dirVal As String
Dim fileVal As String
Dim targetVal As String
Dim objWord
Dim objDoc
Dim found

Set objWord = CreateObject("Word.Application")
targetVal = ActiveCell.Value ' 当前选中单元格的值

If targetVal = "" Then ' 当前选中单元格为空
    MsgBox "目标值为空!"
    Exit Sub
End If

Application.ScreenUpdating = False
dirVal = "H:testtest-doc" ' 搜索word文档的目录,根据需要修改
fileVal = Dir(dirVal & "*.do??")
found = 0

Do While fileVal <> ""
    If InStr(fileVal, targetVal) <> 0 Then
        Set objDoc = objWord.Documents.Open(dirVal & fileVal) '&注意加空格
        objWord.Visible = True
        found = 1
        Exit Do
    End If
    fileVal = Dir()
Loop

If found = 0 Then ' 没有找到合适的word文档
    MsgBox "没有docx文件叫这个名字"
End If

Application.ScreenUpdating = True
End Sub

OK,done。在excel文档中填这样几个值用来测试

新萄京娱乐场手机版 15

doc3

如果选中个空白单元格,点击按钮,会弹出

新萄京娱乐场手机版 16

doc4

如果选中内容为“test”的单元格,点击按钮,会弹出

新萄京娱乐场手机版 17

doc5

如果选中内容为“HarryPotter.docx”的单元格,点击按钮,那对应的docx文档就自动打开了

新萄京娱乐场手机版 18

doc6

Enjoy.

④确定后空白区自动显示一个按钮,单击属性,更改“Caption”名称,然后双击“Caption”。

参考链接
  1. http://www.excel-easy.com/vba/create-a-macro.html
  2. http://jingyan.baidu.com/article/39810a23c863a4b636fda6d9.html
  3. http://www.excel-easy.com/vba/examples/files-in-a-directory.html
  4. http://www.excel-easy.com/vba.html

相关文章