EXCEL如何批量替换艺术字内容？(200分)

发布网友 发布时间：2022-03-04 03:52

我来回答

共7个回答

热心网友 时间：2022-03-04 05:21

通过[工具]-[宏]实现

只要把下面代码复制到Visual Basic编辑器里，运行就可以

Sub 批量替换()

Dim n As Integer

Dim i As Integer

n = ActiveSheet.Shapes.Count

For i = 1 To n

ActiveSheet.Shapes(i).TextEffect.Text = "AB123"

Next i

End Sub

热心网友 时间：2022-03-04 06:39

1、打开你的这张电子表格
2、请打开“宏”编辑器 或可直接按 ALT+F8 弹出一个对话框，随便输入一个名字比如"dd"然后点 “创建” 进入vba编辑界面
3、先清空右侧的Sub dd()End Sub的内容，然后将如下内容粘贴进去

Sub 艺术字查找替换()
Dim number As Integer
Dim i As Integer
Dim xstr As String
Dim ystr As String
Dim my As String

number = ActiveSheet.Shapes.Count
If number = 0 Then
MsgBox "对不起，没有艺术字"
Else
xstr = Application.InputBox(Prompt:="请输入要查找的内容：", Type:=1 + 2)
ystr = Application.InputBox(Prompt:="请输入最终替换得到的值：", Type:=1 + 2)
End If

For i = 1 To number
If ActiveSheet.Shapes(i).TextEffect.Text = xstr Then
ActiveSheet.Shapes(i).TextEffect.Text = ystr
End If
Next i
End Sub
4、然后ctrl+s保存
5、按f5执行该宏，按照提示输入要查找的内容和要替换的内容
即可达到你的要求，替换所有的内容。

热心网友 时间：2022-03-04 08:14

EXCEL宏
录制编辑一个艺术字的宏，打开宏的编辑框，你会发现只用改一下宏中艺术字对应的名称就可以对任意一个艺术字进行操作。
如果你懂VBA，自己编吧。如果不懂，把sub和end行之间实际运行的内容，复制N遍（有多少个艺术字复制多少），把艺术字名称改一下（默认的艺术字名为WordArt 1最后的数字为从1开始到N的整数），执行此宏就OK了。

PS
把文件存为照片，用PS把要改的内容覆盖掉，排版复杂的话，你应该对PS应用很熟练吧

热心网友 时间：2022-03-04 10:05

查找和替换操作。 文档格式化的基本方法：字体、字型、字号的设置；文字颜色的设置、字符间距和缩放比 ⒋ 电子表格系统Microsoft Excel 的基本使用方法 Excel的启动与退出，窗口的组成及各部分使用；工作簿

热心网友 时间：2022-03-04 12:13

需要录制一个艺术字的排版过程的宏

热心网友 时间：2022-03-04 14:38

刚刚在2003版本下试过，有简易可行且又不破坏排版的办法可以解决你的问题，如有兴趣，HI我传附件帮你解决。
祝你成功！

热心网友 时间：2022-03-04 17:19

哦，很简单。。你只需要录制一个艺术字的排版过程的宏，其他的照这个办法用程序来实现，应该就可以的。。