请教：word如何批量添加自动更正内容，谢谢

liuhoubin168 · 发表于 2015-4-22 16:39

本帖最后由 liuhoubin168 于 2015-4-22 16:40 编辑

存入表格，在表格中读取。。。。。

假设，表格内容为
代码  名称
1111  AAAA
2222  BBBB
for i=2 to 3  '从第二行起，共三行（含标题行），运行时，将光标移到这个表格中
code=replace(selection.Tables(1).Cell(i,1).Range.Text,chr(13)&chr(7),"")
repl=replace(selection.Tables(1).Cell(i,2).Range.Text,chr(13)&chr(7),"")
AutoCorrect.Entries.Add Name:=code, Value:=repl
next i

俊锋伍贰零 · 发表于 2015-6-27 13:22

liuhoubin168 发表于 2015-4-22 16:39
存入表格，在表格中读取。。。。。

假设，表格内容为

老师好，O(∩_∩)O谢谢您，能否请您抽空写一个完整的代码，我这个一点也不会………………O(∩_∩)O谢谢

liuhoubin168 · 发表于 2015-6-29 10:14

代码添加自动更正.rar (12.64 KB, 下载次数: 43)

俊锋伍贰零 · 发表于 2015-6-29 20:18

liuhoubin168 发表于 2015-6-29 10:14

老师您好，非常感谢您的帮助，我还想求教下：如何加上代码，从excel表格中提取呢？
在word中的表格，我不会用……………………
O(∩_∩)O谢谢

liuhoubin168 · 发表于 2015-6-29 20:31

复制到word就行了。

你就别再问了

hankou2009 · 发表于 2015-7-2 22:25

大师们解答的太透彻了

jkk99 · 发表于 2019-3-1 10:55

灰常感谢大师的帮助

		自动登录	找回密码
密码			免费注册

[求助] 请教：word如何批量添加自动更正内容，谢谢

评分

评分