VBA宏打开与单元格内容同名的word文档,Word2013中制作按钮控件

 办公软件     |      2020-03-25 10:21

遍布应用于网页的人机联作式设计其实也可用于编辑Word文档,那样的文书档案无疑给人家好多奇幻,为您的技能赢来越多的称赞。这里,word联盟作者教大家在怎么着在word二〇一一中创造轻松的按钮控件,心得下会动的word。


①出于“开辟工具”不寻常用,所以在职能选项面板中从未“开垦工具”这一栏。所大家要求设置。在效劳选项面板中选择“文件”,在跳转出来的版面中选用“选项”。

想要做三个在excel中单击有些单元格,然后依照该单元格的内容,打开三个相应word文书档案的职能。并不曾怎么用过excel,以前大约知道那东东有很有力的宏功用。OK,这就来尝试。

图片 1

Excel二零零五中开发“开辟工具”选项卡
  1. 首先点击左上角

    图片 2

    fig1

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

    图片 3

    fig2

  3. 然后勾选“在功能区显示‘开垦工具’选项卡”那几个按键

    图片 4

    fig3

  4. OK,Excel二零零七窗口应当早本来就有“开采工具”那个选项卡了,能够张开下一步操作

②在“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