Office Word 中的宏

Office Word 中的宏

  • 简介
  • 宏的使用
    • 将自定义创建的宏放入文档标题栏中的“自定义快速访问工具栏”
    • 插入指定格式、内容的字符
    • 选中word中的指定文字
    • 查找word中的指定文字A,并替换为指定文字B
    • 插入文本框并向内插入文字
    • word 表格中的宏操作
      • 遍历表格中的所有内容
      • 批量设置表格中所有内容文字为居中对齐

简介

宏是一个批量处理程序命令,微软的office软件允许用户自己编写,叫VBA的脚本来增加其灵活性,进一步扩充它的能力,具体做法是在“工具”菜单“宏”-“宏”弹出的对话框输入宏名,然后按“创建”按钮会打开visual basic编辑器,你就可以编程了,这个就是宏。

宏的使用

将自定义创建的宏放入文档标题栏中的“自定义快速访问工具栏”

如下图所示
在这里插入图片描述
在这里插入图片描述
在这里插入图片描述
若需要修改宏的图标,可以在添加该宏后 在右侧“自定义快速访问工具栏”中 选中该宏,然后点击下方的修改按钮,如下图所示。
在这里插入图片描述
点击确定后,完成宏在快速访问工具栏中的添加。

插入指定格式、内容的字符

Sub InsertWords()
'	
' InsertWords 宏
'
' FormatText 宏1 //在注释中插入自己想要描述的内容
'Selection.Font.Bold = True		//若在插入文字的代码前设置是否为粗体,则对接下来插入的字体起到设置作用Selection.Font.Italic = True	//设置是否为斜体Selection.Font.Name = "Calibri"Selection.Font.Size = 16//此段代码会在当前光标的位置插入"Hello World!"Selection.TypeText Text:="Hello World!"	//设置要插入字体//Selection.Font.Bold = True		//若在插入文字的代码后设置是否为粗体,则对下一次插入的字体起到设置作用;请注意,一旦鼠标点击将会导致【加粗下一次插入字体的设置取消】
End Sub

选中word中的指定文字

Sub 宏1()
'
' 宏1 宏
'
' 选取Word文档中的文本Dim WordDoc As Word.DocumentSet WordDoc = ActiveDocumentDim WordRange As Word.RangeSet WordRange = WordDoc.Range(Start:=0, End:=10)WordRange.Select
End Sub

查找word中的指定文字A,并替换为指定文字B

Sub WordExchanger()		//此处定义的函数名需与添加按钮时一致
1: Selection.Find.ClearFormatting
2: Selection.Find.Replacement.ClearFormatting
3: With Selection.Find //此处需要分行才能连续调用“.方法名”,即左侧的3:、4:
4: .Text = "home"
5: .Replacement.Text = "替换后的字符"
6: .Forward = True
7: .Wrap = wdFindContinue
8: .Format = Flase
9: .MatchCase = False
10: .MatchWholeWord = False
11: .MatchWildcards = False
12: .MatchSoundsLike = False
13: .MatchAllWordForms = False
14: End With			//使用With时,需要使用End With结束
15: Selection.Find.Execute Replace:=wdReplaceAll
End Sub

插入文本框并向内插入文字

Sub InsertWords()
' 插入文本框 宏Dim myTextbox As ShapeWith ActiveDocumentSet myTextbox = .Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _Left:=50, Top:=50, Width:=100, Height:=50)With myTextbox.TextFrame.TextRange.Text = "Hello, World".HorizontalAnchor = msoAnchorCenter.VerticalAnchor = msoAnchorMiddleEnd WithWith myTextbox.Line.Visible = msoTrue.ForeColor.RGB = RGB(0, 0, 255).Weight = 1End WithEnd With
End Sub

word 表格中的宏操作

遍历表格中的所有内容

Sub ReadTableData()Dim wdApp As Word.ApplicationDim wdDoc As Word.DocumentDim wdTable As Word.TableDim i As Long, j As LongSet wdApp = New Word.Application'此处要填写 要读取的word文档中的内容'
Set wdDoc = wdApp.Documents.Open("C:\Data\test.docx")'选中第一张表格Set wdTable = wdDoc.Tables(1)'遍历表格数据For i = 1 To wdTable.Rows.CountFor j = 1 To wdTable.Columns.CountDebug.Print wdTable.Cell(i, j).Range.TextNext jNext iwdDoc.Close SaveChanges:=FalsewdApp.QuitEnd Sub

批量设置表格中所有内容文字为居中对齐

Sub 表格内容文字居中对齐()Dim biaoge As TableFor Each biaoge In ActiveDocument.Tablesbiaoge.Range.ParagraphFormat.Alignment = wdAlignParagraphCenterbiaoge.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenterNext biaogeEnd Sub

支持flowchart的流程图:

Created with Raphaël 2.3.0 开始 我的操作 确认? 结束 yes no
  • 关于 Flowchart流程图 语法,参考 这儿.

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

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

相关文章

CTF-PWN-堆- 【off-by-one】

文章目录 堆的off-by-one利用思路Asis CTF 2016 b00ks libc 2.31IDA源码main输入名字creat函数dele函数edit函数print函数reeditor name函数 思路exp思路 堆的off-by-one off-by-one指的是单字节缓冲区溢出(off-by-one 是可以基于各种缓冲区的,比如栈、…

解决公网下,k8s calico master节点无法访问node节点创建的pod

目的:解决pod部署成功后,只能在node节点访问,而master节点无法访问 原因:集群搭建时,没有配置公网进行kubectl操作,从而导致系统默认node节点,使用内网IP加入k8s集群!如下&#xff…

八股文-TCP的三次握手

TCP协议是一种面向连接、可靠传输的协议,而建立连接的过程就是著名的三次握手。这个过程保证了通信的双方能够同步信息,确保后续的数据传输是可靠和有序的。本文将深入解析TCP三次握手的步骤及其意义。 漫画TCP的三次握手 TCP连接的建立采用了三次握手的…

VSCode 使用CMakePreset找不到cl.exe编译器的问题

在用vscode开发c项目的时候,使用预先配置的CMakePresets.json可以把一些特定的cmake选项固定下来,在配置时直接使用 "cmake --config --preset presetname"就可以进行配置,免去在命令行输入过多的配置参数。 但是在vscode中&#…

Uniapp中的事件处理:uni.emit和uni.on/uni.once

介绍 在Uniapp项目中,事件处理是一种重要的通信方式。uni.emit和uni.on(以及uni.once)是Uniapp中用于实现组件间通信的两个关键方法。本文将深入介绍这两个方法,探讨它们的优势、劣势,并通过示例代码演示它们的用法。…

C++菜鸟日记2

关于getline()函数,在char和string输入的区别 参考博客 1.在char中的使用: 2.在string中的使用: 关于char字符数组拼接和string字符串拼接方法 参考博客 字符串拼接方法: 1.直接用 号 2.利用append(&#xff0…

Django——模型层补充

django中如何开启事务 # 事务的四大特性: # 简称: ACID# A: 原子性事务对数据的修改操作要么同时成功, 要么一个都别想成功(回滚)# C: 一致性事务的执行必然是从一个一致性的状态, 转变到另一个一致性的状态.# I: 隔离性对于并发的事务, 每个事务之间是互相隔离的, 互不影响的.…

如何防止图片抖动

如何防止图片抖动 什么是图片抖动,就是我们加载图片完成之后,图片显示,但是其下方内容会跟着下移,这就造成了图片抖动用户体验不好,我们想即使图片没加载出来,页面上也有一个空白的位置留给图片。 我们要知…

【观察】华为:数智世界“一触即达”,应对数智化转型“千变万化”

毫无疑问,数智化既是这个时代前进所趋,也是国家战略所指,更是所有企业未来发展进程中达成的高度共识。 但也要看到,由于大量新兴技术的出现,技术热点不停的轮转,加上市场环境的快速变化,让数智化…

Nacos 配置中心底层原理(1.X版本)

前言 Nacos 1.X版本 是长轮询 Nacos 2.X版本 是GRPC 长轮询 概念 客户端会轮询向服务端发出一个长连接请求,这个长连接最多30s就会超时,服务端收到客户端的请求会先判断当前是否有配置更新,有则立即返回,如果没有服务端会将这个…

upload-labs关卡9(基于win特性data流绕过)通关思路

文章目录 前言一、靶场需要了解的知识1::$data是什么 二、靶场第九关通关思路1、看源码2、bp抓包修改后缀名3、检查是否成功上传 总结 前言 此文章只用于学习和反思巩固文件上传漏洞知识,禁止用于做非法攻击。注意靶场是可以练习的平台,不能随意去尚未授…

【cpolar】Ubuntu本地快速搭建web小游戏网站,公网用户远程访问

🎥 个人主页:深鱼~🔥收录专栏:cpolar🌄欢迎 👍点赞✍评论⭐收藏 目录 前言 1. 本地环境服务搭建 2. 局域网测试访问 3. 内网穿透 3.1 ubuntu本地安装cpolar 3.2 创建隧道 3.3 测试公网访问 4. 配置…

Netty Review - 从BIO到NIO的进化推演

文章目录 BIODEMO 1DEMO 2小结论单线程BIO的缺陷BIO如何处理并发多线程BIO服务器的弊端 NIONIO要解决的问题模拟NIO方案一: (等待连接时和等待数据时不阻塞)方案二(缓存Socket,轮询数据是否准备好)方案二存…

Pyrthon中pandas DataFrame对表格数据选取,修改,切片的实现

set_index()函数 在Python Pandas的数据处理中,set_index是一个非常常用的函数,它的作用就是将DataFrame中的一列或多列作为新的索引。使用set_index函数,可以快速地进行数据的筛选和重组。 如何在pandas中使用set_index( )与reset_index( )…

医院数字化LIS(检验信息系统)源码

临床检验信息管理系统(LIS)是利用计算机连接医疗设备,通过计算机信息处理技术,将医院检验科或实验室的临床检验数据进行自动收集、存储、处理、提取、传输和交换,满足所有授权用户的功能需求。 一、系统概述 1.LIS&am…

Redis篇---第五篇

系列文章目录 文章目录 系列文章目录前言一、持久化有两种,那应该怎么选择呢?二、怎么使用 Redis 实现消息队列?三、说说你对Redis事务的理解前言 前些天发现了一个巨牛的人工智能学习网站,通俗易懂,风趣幽默,忍不住分享一下给大家。点击跳转到网站,这篇文章男女通用,…

自定义ES分词器

1 分词器的组成 ES的分词器主要由三部分组成: (1)原始文本处理-charactor filters 对原始文本进行处理。 (2)切词-tokenizer 按照规则进行切词。 (3)单词处理-token filters 将切词获取的…

Axure基础详解二十二:随机点名效果

效果演示 组件 建立一个【中继器】,内部插入一个“文本框”。【中继器】每页项目数为1,开始页为1。 设置交互 页面载入时交互 给【中继器】新曾行,“name”数据列添加10行数据,填入相应的名字;“shunxu”数据列全部…

C#与c++对应的类型 转载

//C#调用C++的DLL搜集整理的所有数据类型转换方式-转载 //c++:HANDLE(void *) ---- c#:System.IntPtr //c++:Byte(unsigned char) ---- c#:System.Byte //c++:SHORT(short) ---- c#:System.Int16 //c++:WORD(unsigned short) ---- c#:System.UInt16 //c++:INT(int) ---- c#:Sys…

黑马程序员微服务 分布式搜索引擎3

分布式搜索引擎03 0.学习目标 1.数据聚合 **聚合(aggregations)**可以让我们极其方便的实现对数据的统计、分析、运算。例如: 什么品牌的手机最受欢迎?这些手机的平均价格、最高价格、最低价格?这些手机每月的销售…