带圈数字1如何批量替换为①？

Nonenever

带圈数字替换？
○1（用公式加圈做的）
word中的操作

{ eq\o\ac(○,1)} 如何才能替换为①


答案在4楼
VBA解决

[ 本帖最后由 Nonenever 于 2010-9-16 14:19 编辑 ]

ningshui

复制-选择性粘贴-数值  然后复制后替换
理解有误，以上excel的用法

[ 本帖最后由 ningshui 于 2010-9-15 10:06 编辑 ]

lb_bn

建议楼主上传操作附件。

csnAlex

'放在ThisDocument中
'只能替换①-⑩
'csnAlex 2010-9-16

Sub 带圈数字替换()
    Const s1 = "①②③④⑤⑥⑦⑧⑨⑩"
    Dim i As Integer, f As Field, s As String
   
    For Each f In ActiveDocument.Fields
        s = LCase(f.Code.Text)
        If InStr(1, s, "eq \o\ac(○") > 0 Then
            i = Val(Split(Split(s, ",")(1), ")")(0))
            If i <= 10 Then
                f.Select
                f.Delete
                Selection.TypeText Mid(s1, i, 1)
            End If
        End If
    Next
   
End Sub

[ 本帖最后由 csnAlex 于 2010-9-16 07:56 编辑 ]

Nonenever

不错

谢谢

没有往这方向想

xb_cyc

csnAlex 发表于 2010-9-16 07:53
'放在ThisDocument中
'只能替换①-⑩
'csnAlex 2010-9-16

为什么在ThisDocument运行了VBA代码，没反应，用f8从For Each f In ActiveDocument.Fields直接跳到了End Sub

dafanshu1

xb_cyc 发表于 2016-10-17 09:44
为什么在ThisDocument运行了VBA代码，没反应，用f8从For Each f In ActiveDocument.Fields直接跳到了End  ...

因为你的文档中没有域。

duquancai

如果需要替换的数量巨大（或者很多文件，总之量很大！！！），可以考虑一下程序，体验一下速度的快感！！！

1. Sub 数字替换为带圈数字()
   
2. '    Word文档为纯文本（无表格）
   
3.     Dim arr, S$
   
4.     S = ActiveDocument.Content.Text
   
5.     Set d = CreateObject("Scripting.Dictionary")
   
6.     arr = Array("①", "②", "③", "④", "⑤", "⑥", "⑦", "⑧", "⑨", "⑩")
   
7.     For i = 1 To 10
   
8.         d(i) = arr(i - 1)
   
9.     Next
   
10.     k = d.keys: t = d.items
    
11.     With CreateObject("VBScript.Regexp")
    
12.         .Global = True
    
13.         For i = 0 To d.Count - 1
    
14.             .Pattern = k(i): S = .Replace(S, t(i))
    
15.         Next
    
16.     End With
    
17.     ActiveDocument.Content.Text = S
    
18. End Sub

复制代码