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

请问如何把Excel 工作表内的艺术字内容批量替换~

ctrl+h ？

Excel 中批量替换字母或文字

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

只要把下面代码复制到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

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执行该宏，按照提示输入要查找的内容和要替换的内容
即可达到你的要求，替换所有的内容。

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

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

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

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

---

利川市17684354847： 能不能用excel表格中的数据自动替换word中艺术字的内容 - ？
寿耐远浪： 这是完全可以的,就通过Office的宏来解决,而且几行代码就Ok了. 回答问题难度在于:您没有明确说明excel表格中哪一列和Doc中的哪一个艺术字图片是相关联的,比如说“姓名”列对应的“姓名艺术字”,excel表格中姓名在第几列,Doc中姓名艺术字是排在第几个.在不明白的情况下,总不能拿“班级名称”列的内容去替换“姓名艺术字”的内容吧. 要回答这个问题,请楼主补充完整问题:依次说明您的Execl表格中每一列(横向)是关于听课证的哪些内容(如:姓名、性别、年龄、班级等排列),再上传一张此Doc文档模板较为清晰的缩略图(主要是便于辨认各项艺术字图片的对应).

利川市17684354847： 如何批处理excel表格中的字符替换?? - ？
寿耐远浪： 用这个吧.EXCEL超级替换 1.0 http://www.onlinedown.net/soft/46606.htm 本程序可以实现多种要求的替换:(1)搜索范围可以为指定行或列、选定工作表、整个工作簿,(2)搜索内容包括所有英文字母、所有汉字等等,如果替换值为空表示删...

利川市17684354847： excel2003表格中批注怎样批量替换内容 - ？
寿耐远浪： 在excel界面按ctrl+F,调出“查找和替换”;点击“替换”选项卡,在“查找内容”中输入需要被替换的内容,在“替换为”中输入需要替换的内容,点击下方的“全部替换”即可.

利川市17684354847： 怎么样可以大批量把EXCEL单元格中一个字换成另一个,请求高手赐教 - ？
寿耐远浪： 用查找替换吧,快捷键是Ctrl+F,弹出对话框,选择后面的那个替换.

利川市17684354847： 如何使用EXCEL公式实现某个单元格部分文字替换为另外个单元格的内容? - ？
寿耐远浪： 第一步:打开要替换的xls表格,在表格中定位要替换的单元格.然后点击“替换和选择“下面的查找个替换. 第二步:输入查找内容”J“,替换为的内容”H“,点击替换(注意,只点击一次,不可连续点击).然后关闭替换对话框,即可完...

利川市17684354847： Execl 怎样把选中区域里的内容里的其中的字替换 - ？
寿耐远浪： 选好区域,然后键盘上按CTRL+H,依次输入查找的内容和要替换成的内容,点击全部替换即可

利川市17684354847： 如何把excel里多个艺术字变成一个整体? - ？
寿耐远浪： 用绘图工具栏上的“选择对象”工具(向左45度的空心箭头的那个)框选所有艺术字或者按ctrl键后逐一选取——右键——组合.

利川市17684354847： 在excel中如何批量替换? - ？
寿耐远浪： 在C1输入:=IF(A1=6568,1234,A1) 在D1输入:=SUBSTITUTE(B1,＂市＂,＂＂) 把C1和D1两个单元格的公式向下复制,就得到你要的效果.可以再把C列和D列的结果复制后再用“选择性粘贴”-“数据”选项粘贴回A、B列就行了.

利川市17684354847： Excel 怎么用函数将单元格中包含某几个字符以后的内容全部替换掉 - ？
寿耐远浪： 如果需要对A列“AB”字符后面的内容全部替换,那么选择A列,按Ctrl+H,“查找和替换” 查找:AB* 替换:AB 全部替换.

利川市17684354847： excel中如何批量修改工作表内的同一字体或不同字?？
寿耐远浪： CTRL+F 选择替换,查找内容输入元,替换内容不填,点击全部替换