如何在word里有规律的替换数字

Sub Macro1()Dim nStr As String, Str1 As String, Str2 As StringDim I As Long, M As Long, N As Long, S As LongStr1 = ＂dddd＂ '待替换的字符N = Len(Str1)nStr = ActiveDocument.Range.TextDoS = InStr(S + 1, nStr, Str1)If S = 0 Then Exit DoI = I + 1Str2 = IM = 4 - Len(Str2)If M >0 Then Str2 = String(M, ＂0＂) & Str2nStr = Left(nStr, S - 1) & Str2 & Mid(nStr, S + N)S = S + N - 1LoopActiveDocument.Range.Text = nStrEnd Sub

在word中如何替换数字后的字符？ 比如1,45,387,25 2,56,548.1,25 3,41...

这个需要借助excel表格的功能，具体方法比较繁琐，请按照步骤操作：1、将文档中的回车符替换成一个文档中没有的字符串比如“大江东去”，方法：ctrl+h调出替换对话框查找内容输入：^p替换为输入：大江东去点击全部替换2、将所有的数字前后增加回车符，方法：ctrl+h调出替换对话框查找内容输入：（[！0-9]）([0-9]{1,22})替换为输入：\1^p\2^p高级或更多选择“使用通配符”，点击全部替换3、复制所有内容（ctrl+a全选，ctrl+c复制），然后粘贴到excel中的A列，向下滚动鼠标滚轮，找到粘贴的最有一个单元格（鼠标除了滚动外，不要点击表格的任何位置），鼠标左键点住这个单元格的右下角的那个黑点，并向右拖拽到C列，此时，C列的所有数字都是A列对应数字+2，然后复制C列的全部内容，粘贴回一个新建的word文档中，并选择“仅保留文字”4、将所有的回车符替换掉，方法：ctrl+h调出替换对话框查找内容输入：^p替换为空着，点击全部替换5、将特殊字符串“大江东去”替换为回车符，方法：ctrl+h调出替换对话框查找内容输入：大江东去替换为输入：^p点击全部替换即可。

word中如何将不同的数字替换为相同的数字

思路是，你给目标加上标记，然后就好办了。

假定用作标记的字符|和$与目标中的字符不冲突，具有唯一性查找：（[！^13]）([!^13])替换为：\1|\2$当然要选使用通配符啦得到：全|字$匹|配$主|要$是|针$对|英$文|和$数|字$的|，$指|在$有|效$的|分$隔|符$范|围$内|如$果|选$择|全$字|匹$配|，$要|查$找|的$内|容$必|须$与|分$隔|符$之|间$的|部$分|完$全|一$致分析上述结果，在换段前的字符如果未出现标记，要专门补一次替换即，查找：（[！$]）^13替换为：\1|^p现在就进入正题了查找：[！^13]|即为奇数字加标记符查找：[！^13]$即为偶数字加标记符分离出来以后，再把标记符批量删除。

标记符在这里就起敲门砖作用。

如何在WORD中查找并替换上标中连续的数字？

格式修改，建议利用word中的查找，替换功能键，即点开查找和替换后，在查找中输入你要找的文字，再点击上面的高级功能键，弹出各种选项，利用其中的格式进行设置，相应的可操作看一下，最后在替换中输入要替换的文字，再按格式进行相应选择，设置好后，按替换试一下，若满意，可行全部替换。

希望我的回答对你有帮助，如有疑问可以留言或在线交流。

--------------------------------------本人感觉利用查找和替换功能解决格式或文字问题，但还没听说可以使用通配符来解决你说的这个问题，因为对于电脑通配符是代表所有（*）或一个（？），但可用此查找，替换好象电脑还不能进行识别，如将数字常规格式的1,2,3，替换为上标1,2,3，若用通配符？，只能查找出来却不能进行智能替换。

利用*也不能替换。

只能手动输入常规格式的1，再替换为上标格式的1，再手动输入其他数字。

至少若让我来操作只能至此。

再一个方式就是编写VBA代码进行操作，但那样的话，问题是可以解决，但好象你所花费的精力还没手动输入解决的快。

word如何替换一段文字？？？？？？

1.选中要替换的文字，按组合键Ctrl+c，在按组合键Ctrl+H2.在出现的对话框中，点击查找内容文本框，按组合键Ctrl+V3.在替换为文本框中输入所要替换的文字4.根据需求选择替换或是全部替换最后效果图：

转载请注明出处51数据库 » word替换数字的表达式