word宏批量插入.csv格式的附件-育师

1.ALT+F11打开宏的编译器，复制下面代码

2 F5运行，弹出对话框选择对应文件即可

Sub BatchInsertCSVAttachments() Dim fd As FileDialog Dim vrtSelectedItem As Variant Dim iconLabel As String ' 创建文件选择对话框 Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Title = "请选择要插入的CSV文件（可多选）" .Filters.Clear .Filters.Add "CSV Files", "*.csv" .AllowMultiSelect = True ' 允许通过按住 Ctrl 或 Shift 多选 If .Show = -1 Then ' 遍历所选文件 For Each vrtSelectedItem In .SelectedItems ' 获取文件名作为图标下方的标签 iconLabel = Dir(vrtSelectedItem) ' 插入 OLE 对象（即文件附件） ' DisplayAsIcon:=True 强制显示为图标 ' IconLabel 设置为文件名，否则会显示默认的 "Worksheet" 等字样 Selection.InlineShapes.AddOLEObject _ FileName:=vrtSelectedItem, _ LinkToFile:=False, _ DisplayAsIcon:=True, _ IconLabel:=iconLabel ' 插入一个换行符，防止图标挤在一起 Selection.TypeParagraph Selection.TypeParagraph Next End If End With MsgBox "批量插入完成！", vbInformation ' 清理内存 Set fd = Nothing End Sub

AI训练场景下的革命性存储解决方案：突破性分布式系统架构全解析

在当今AI模型规模指数级增长的时代，传统存储系统已成为制约训练效率的瓶颈。本文将为您深入剖析一种专为AI训练场景设计的突破性存储解决方案，揭示其如何通过全新范式解决大规模分布式计算的存储挑战。🚀 【免费下载链接】3FS A high-perfor…

李华

RuoYi-Cloud-Plus SSE实时推送：企业级消息通信终极指南

RuoYi-Cloud-Plus SSE实时推送：企业级消息通信终极指南【免费下载链接】RuoYi-Cloud-Plus 微服务管理系统重写RuoYi-Cloud所有功能整合 SpringCloudAlibaba、Dubbo3.0、Sa-Token、Mybatis-Plus、MQ、Warm-Flow工作流、ES、Docker 全方位升级定期同步项目地址…