word中替换格式问题

stw

我单独的用查找、替换，可以如愿，但是这里就是去不掉插入的那个符号，实在遗憾。但是还是很感谢你，我知道这样录制宏了

stw

我用的是2003，不知道是不是与版本有关？

守柔

此类问题，用查找与替换也许也能解决，只是，如果使用VBA来解决，则也是一个容易的事。

以下代码供参考：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-4-17 6:36:11 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit '显式变量声明 Option Compare Text '不区分大小写 Sub ExampleToReplce() Dim aWord As Range, aChar As Range, aCharCount As Integer, ReplaceCount As Integer On Error Resume Next '忽略错误 Debug.Print Now Application.ScreenUpdating = False '关闭屏幕更新 For Each aWord In ThisDocument.Words '在本文档的词组中循环 If aWord Like "*#*" Then '如果该词组中含有数字 '如果其前面一个词为")"则将其设置为下标 If aWord.Previous(wdWord, 1) = ")" Then ReplaceCount = ReplaceCount + 1: aWord.Font.Subscript = True aCharCount = 0 '初始化变量 For Each aChar In aWord.Characters '在该词组的单字中循环 If aChar Like "[a-z]" Then aCharCount = aCharCount + 1 '计数 '如果acharcount>0并且为数字 If aCharCount > 0 And aChar Like "#" Then ReplaceCount = ReplaceCount + 1: aChar.Font.Subscript = True Next aChar '退出循环 End If Next aWord '退出循环 Application.ScreenUpdating = True '恢复屏幕更新 Debug.Print Now MsgBox "WORD 已进行了" & ReplaceCount & "次指定的格式设置,请您检查!", vbOKOnly + vbInformation End Sub '----------------------'实际运行:共设置1160个下标,用时不到1分钟.

'代码已在附件中,请ALT+F11查看该代码

rUM2r8gX.rar (24.26 KB, 下载次数: 7)

2005-4-17 06:39 上传

点击文件名下载附件

[此贴子已经被作者于2005-4-17 6:37:07编辑过]

守柔

做了一下使用WORD查找与替换的方法：

以下部分适用于OFFICE XP 及以上版本:

CTRL+F:查找对话框:

请在"突出显示在该范围内找到的所有项目前打勾",不区分大小写,不限定格式

下述各步骤中全部按此要求设置.

第一步:

查找:任意字母+任意数字+任意数字(类似于P4O10)中的"O10"这个形式的文本.

即:^$^#^#

查找全部,然后程序会自动选定所有该查找的项目.关闭对话框,格式/字体,效果,下标前打勾.

第二步:

查找:任意字母+任意数字H2O中"H2"这个形式的文本.

即:^$^#

查找全部,然后程序会自动选定所有该查找的项目.关闭对话框,格式/字体,效果,下标前打勾.

第三步:

查找:)+任意数字,类似于")2"这个形式的文本

查找全部,然后程序会自动选定所有该查找的项目.关闭对话框,格式/字体,效果,下标前打勾.

第四步:

查找:任意字母

即:^$

查找全部,然后程序会自动选定所有该查找的项目.关闭对话框,格式/字体,效果,下标前去勾(不要管它是否泛灰,你只管点击该复选框).

第五步:

查找:)

查找全部,然后程序会自动选定所有该查找的项目.关闭对话框,格式/字体,效果,下标前去勾(不要管它是否泛灰,你只管点击该复选框).

这样,我们通过五步法,达到将全部符合要求的数字,全部设置成了下标.

OK！

[em05]