word中如何放入VBA代码并自定义操作按钮到功能区

word中如何放入VBA代码并自定义操作按钮到功能区

步骤1:

首先要保证WORD能够使用宏,

打开word选项,设置启用宏;

在word中点击文件;

然后点击选项。

步骤2:

勾选“开发工具”选项卡;

(如果已经显示“开发工具”就不用再操作这一步了)

步骤3:

建立模块级别的VBA代码;

根据下图箭头指示插入模块;

把代码粘贴到右边模块中的空白中按F5执行代码;

测试是否成功运行;

步骤4:

测试成功的VBA代码可以放在菜单栏上进行便捷操作;

如下图所示:

 

 步骤5:

观察效果如下:

  • 3
    点赞
  • 9
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 2
    评论
以下是一个示例VBA代码,可以将指定文件夹的所有图片依次插Word表格: ```VBA Sub InsertPicturesToTable() Dim wdApp As Word.Application Dim wdDoc As Word.Document Dim wdTable As Word.Table Dim wdRow As Word.Row Dim wdCell As Word.Cell Dim strFolder As String Dim strPicPath As String Dim intRow As Integer Dim intCol As Integer Dim objFSO As Object Dim objFolder As Object Dim objFile As Object '设置文件夹路径 strFolder = "C:\Pictures\" '初始化Word应用程序 Set wdApp = CreateObject("Word.Application") wdApp.Visible = True '创建新文档 Set wdDoc = wdApp.Documents.Add '创建新表格 Set wdTable = wdDoc.Tables.Add(wdDoc.Range, 3, 4) '遍历文件夹的所有图片 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strFolder) intRow = 1 intCol = 1 For Each objFile In objFolder.Files If objFSO.GetExtensionName(objFile.Path) Like "jpg" Or objFSO.GetExtensionName(objFile.Path) Like "png" Then '计算单元格位置 If intCol > wdTable.Columns.Count Then intRow = intRow + 1 intCol = 1 Set wdRow = wdTable.Rows.Add End If Set wdCell = wdRow.Cells(intCol) '插图片 strPicPath = objFile.Path wdDoc.InlineShapes.AddPicture FileName:=strPicPath, LinkToFile:=False, SaveWithDocument:=True, Range:=wdCell.Range '调整图片大小 wdCell.Range.InlineShapes(1).Width = wdCell.Width - 10 wdCell.Range.InlineShapes(1).Height = wdCell.Height - 10 intCol = intCol + 1 End If Next objFile '释对象 Set objFSO = Nothing Set objFolder = Nothing Set objFile = Nothing Set wdCell = Nothing Set wdRow = Nothing Set wdTable = Nothing Set wdDoc = Nothing Set wdApp = Nothing End Sub ``` 该代码将创建一个3行4列的表格,并将指定文件夹的所有jpg和png文件依次插到表格。你可以根据需要修改表格大小、行列数目以及文件夹路径和文件类型等参数。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

IT技术猿猴

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值