Word 插件实现读取excel自动填写

日常工作中碰到需要将EXCEL的对应数据记录填写到word文档对应的位置,人工操作的方式是:
打开exel表—>查找对应报告号的行—>逐列复制excel表列单元格内容到WORD对应的位置(如下图标注所示)

在这里插入图片描述
这种方法耗时且容易出错。实际上如果使用VBA开发WORD插件,编写代替人手操作的自动程序可以实现自动填写(秒填的感觉很爽),可以一劳永逸解决这样的困扰。
实现的代码如下:
Sub ReadExcelData()
Dim xlApp As Object
Dim xlBook As Object
arr_excel = Array(“SAMPLE CODE”, “TRI PRODUIT”, “TRI COMPOSANT”, “TYPE”, “COMPONENT”, “Color”, “Description”, “FP MODEL”, “FP MATERIAL”, “FP Color”, “DESCRIZIONE”, _
“FP SUPPLIER”, “USE”, “COMPOSIZIONE”, “FORNITORE”, “POIDS G / M2”, “INFLA”, “SHIPPING DATE TO CHINA”, “RECEPTION Date”, “CELINE PACKAGE”)
arr_E = Array(“B”, “”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “”, “R”, “S”, “T”, “U”, “V”, “W”)

arr_Word = Array(“CERTEST REFERENCE”, “”, “TRI PRODUIT”, “TRI COMPOSANT”, “TYPE”, “COMPONENT”, “Color”, “Description”, “FP MODEL”, “FP MATERIAL”, “FP Color”, “Description PROJECT”, _
“FP SUPLIER”, “USE”, “COMPOSITION”, “”, “SUPPLIER”, “POIDS”, “INFLA”, “RECEPTION Date”, “SHIPPING DATE TO CHINA”, “Test PACKAGE”)
rp = Left(ActiveDocument.Name, 11)
Set xlApp = CreateObject(“Excel.Application”)
filepath = “K:\XX\xx\xx” 'excel表坐在的路径
fn = Dir(filepath & “xxxx” & “*.xlsx”)
Set xlBook = xlApp.Workbooks.Open(filepath & fn)
With xlBook.Sheets(1)
rws = .Cells(.rows.Count, “a”).End(-4162).Row
For i = 2 To rws
If InStr(.Cells(i, 1).value, rp) > 0 Then
ReDim arr(22)
For j = 0 To 22
arr(j) = .Cells(i, j + 2)
Next
Exit For
End If
Next
End With
xlBook.Close False
Set xlBook = Nothing
Set xlApp = Nothing

'MsgBox UBound(arr)
For k = 0 To UBound(arr) - 1
If arr_Word(k) <> “” Then
Call infoFill(arr_Word(k), arr(k))
End If
Next
End Sub

Private Sub infoFill(kw, res)
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
If InStr(UCase(para.Range.Text), UCase(kw)) > 0 Then
If res = “” Then
para.Next.Next.Range = “/”
Else
para.Next.Next.Range = res
End If
If InStr(UCase(para.Range.Text), “CERTEST REFERENCE”) > 0 Then
para.Next.Next.Range = para.Next.Next.Range & Split(para.Next.Next.Range, “.”)(0) & “.02”
End If
Exit Sub
End If
Next
将插件安装在WORD的NORML文件,实现点击按钮即可实现excel内容的自动填写.
在这里插入图片描述
给按钮添加图标,这样在WORD的操作界面就可以看到程序执行的插件。
在这里插入图片描述
这样插件就完成了,每次点击按钮就可以秒速完成填写。

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/5223.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

听GPT 讲K8s源代码--pkg(三)

在 Kubernetes 项目中&#xff0c;pkg/controller目录下的子目录通常包含控制器相关的代码和逻辑。控制器是 Kubernetes 中用于管理资源的核心组件之一。它们负责监控资源的状态&#xff0c;并确保其符合所定义的期望状态。下面是对这些子目录的一些常见作用的解释&#xff1a;…

C++:这门语言优势在哪?命名空间以及缺省参数?

文章目录 C的优势解决命名空间的问题 缺省参数 C的优势 C和C语言比起来有许多优势&#xff0c;这里我们先举一个例子&#xff0c;后续进行补充 解决命名空间的问题 首先看这样的代码&#xff1a; #include <stdlib.h> #include <stdio.h>int rand 0;int main(…

【六袆 - windows】windows计划任务,命令行执行,开启计划任务,关闭计划任务,查询计划任务

windows计划任务 查看 Windows 自动执行的指令取消 Windows 中的计划任务启动执行计划任务 查看 Windows 自动执行的指令 您可以使用以下方法&#xff1a; 使用任务计划程序&#xff1a;任务计划程序是 Windows 内置的工具&#xff0c;可以用于创建、编辑和管理计划任务。您可…

Django实现接口自动化平台(十)自定义action names【持续更新中】

相关文章&#xff1a; Django实现接口自动化平台&#xff08;九&#xff09;环境envs序列化器及视图【持续更新中】_做测试的喵酱的博客-CSDN博客 深入理解DRF中的Mixin类_做测试的喵酱的博客-CSDN博客 python中Mixin类的使用_做测试的喵酱的博客-CSDN博客 本章是项目的一…

职责链(Chain of responsibility)模式

目录 处理过程应用场景参与者协作效果实现相关模式应用与思考类图 职责链(Chain of responsibility)是一种对象行为模式&#xff0c;可以使多个对象都有机会处理请求&#xff0c;从而避免请求的发送者和接收者之间的耦合关系。将这些对象连成一条链&#xff0c;并沿着这条链传递…

[ 容器 ] Docker 基本管理

目录 一、Docker 概述1.1 Docker 是什么&#xff1f;1.2 Docker 的宗旨1.3 容器的优点1.4 Docker 与 虚拟机的区别1.5 容器在内核中支持的两种技术namespace的六大类型 二、Docker核心概念2.1 镜像2.2 容器2.3 仓库 三、安装 Docker四、docker 镜像操作五、 Docker 容器操作总结…

js数组常用方法

js数组常用方法 join Array.join() 方法将数组中所有元素都转化为字符串并连接在一起&#xff0c;返回最后生成的字符串。可以指定一个可选的字符串在生成的字符串中来分隔数组的各个元素。如果不指定分隔符&#xff0c;默认使用逗号。示例&#xff1a; var a [1,2,3] cons…

经济和行政手段使双高企业降低能耗总量和能耗强度,提高能源利用效率-安科瑞黄安南

摘要 2022年6月29日工信部、发改委、财政部、生态环境部、国资委、市场监管总局六部门联合下发《关于印发工业能效提升行动计划的通知》&#xff08;工信部联节〔2022〕76号&#xff0c;以下简称《行动计划》&#xff09;&#xff0c;主要目的是为了提高工业领域能源利用效率&…

修复git diff正文中文乱码

Linux git diff正文中文乱码 在命令行下输入以下命令&#xff1a; $ git config --global core.quotepath false # 显示 status 编码 $ git config --global gui.encoding utf-8 # 图形界面编码 $ git config --global i18n.commit.encoding utf-8 # …

Ubuntu18.04 拯救者R9-7945HX 4060 配置ZED 2i代双目相机驱动+ORBSLAM2

AMD的拯救者网卡很拉&#xff0c;研究了很久除了换网卡可以解决网络问题&#xff0c;其它没找到合适的办法&#xff0c;这里我用手机USB共享网络的方式勉强上网&#xff0c;这里不得不说华为的信号桥很好用。 之前在1050ti的电脑上布置过&#xff0c;很顺利&#xff0c;这个新…

原生js实现将图片内容复制到剪贴板

核心代码 /*复制图片*/ copyImg(dom) {/* 警告&#xff1a;dom不能是img标签&#xff0c;建议用DIV标签包裹img标签&#xff0c;否者会报错&#xff01;不支持复制背景图&#xff01; */dom.style.userSelect auto;let selection getSelection(), range document.createRan…

Springboot调整接口响应返回时长详解(解决响应超时问题)

一、前言 当后端对于数据量较大的处理或是某些耗时的操作时,需要先对请求接口的请求进行响应。实际场景中会遇到请求业务处理流程耗时较长&#xff0c;比如长查询&#xff0c;远程调用等&#xff0c;主线程会被一直占用会影响其他请求的响应&#xff0c;导致服务端性能下降。同…

【Ubuntu报错】NetworkManager is not running

如果你在运行nmcli命令时遇到"NetworkManager is not running"错误&#xff0c;这意味着NetworkManager服务没有在你的系统上运行。 你可以尝试以下步骤来启动NetworkManager服务&#xff1a; 检查NetworkManager服务的状态&#xff1a;运行以下命令来检查NetworkMa…

Linux--系统调用接口:open

open的库函数&#xff1a; #include <sys/types.h> #include <sys/stat.h> #include <fcntl.h>open的函数形式&#xff1a; int open(const char *pathname, int flags);int open(const char *pathname, int flags, mode_t mode); flags:标志位 标志位选项…

大模型开发(五):实现Jupyter本地调用OpenAI API

全文共3000余字&#xff0c;预计阅读时间约15分钟 | 满满干货&#xff0c;建议收藏&#xff01; 大模型开发(五)&#xff1a;实现Jupyter本地调用OpenAI API OpenAI作为本轮大语言模型技术进步的先驱&#xff0c;其系列大型模型在效果上一直保持着领先。其推出的各类模型如文本…

springboot第30集:springboot集合问题

Logstash Logstash 是开源的服务器端数据处理管道&#xff0c;能够同时从多个来源采集数据、格式化数据&#xff0c;然后将数据发送到es进行存储。 ElasticSearch Elasticsearch 是基于JSON的分布式搜索和分析引擎&#xff0c;是利用倒排索引实现的全文索引。 KibanaKibana 能够…

云原生环境 - 如何自定义容器hosts文件

背景 在虚拟机环境下,如果想要自定义hosts,可以直接修改/etc/hosts文件。 在云原生环境下,也有这样的需求,想给启动的容器添加自定义的hosts配置。比如 1、DNS配置以及其它选项不合理的时候,比如解析出的IP地址不正确 2、覆盖掉对主机名的解析或者添加对某些主机名的解析…

线程的创建以及使用(MFC/C/C++)

目录 一、创建线程的几种方法 1、使用POSIX线程库&#xff08;pthread)&#xff08;C&#xff09; 2、 使用Windows线程库&#xff08;Win32 API&#xff09;&#xff08;C&#xff09; 3、使用C11标准库 二、线程的应用&#xff08;常用实例&#xff0c;附上完整代码&…

如何搭建一个标准的测量系统

要搭建一个标准的测量系统,需要考虑以下几个方面: 确定测量目的和需求:首先需要明确测量的目的和需求,例如测量长度、重量、体积等。同时需要考虑测量的精度和误差范围,以及测量系统的适用范围和条件等。选择合适的传感器:根据测量目的和需求,选择合适的传感器类型,例如…

数字化时代,如何做好用户体验与应用性能管理​

引言 随着数字化时代的到来&#xff0c;各个行业的应用系统从传统私有化部署逐渐转向公有云、行业云、微服务&#xff0c;这种变迁给运维部门和应用部门均带来了较大的挑战。基于当前企业 IT 运维均为多部门负责&#xff0c;且使用多种运维工具&#xff0c;因此&#xff0c;当…