[原创并分享]:域代码复制器(变形域代码)/变形域代码回复器

narutoshyb

这种真的是好东东，谢谢分享

pst168

VBA真是奥妙无穷啊！

菠萝大飞猪

来学习的 字数补丁

霓裳飘飘

谢谢，很实用。

hqhost

楼主，你好。
我这种：word域代码是链接到word文件所在文件夹里的另一个excel的，word中的域代码无法处理成你程序运行后那种  变形域代码  怎么回事？
这种域代码不一样？

希望能加上程序后回复一下，多谢！多谢！多谢！

WORD域代码处理.rar (68.52 KB, 下载次数: 4)

2015-3-7 00:02 上传

点击文件名下载附件

loquat

经测试，发现中间这句不能注释，前后两句好像是能注释掉的。
坐等老大释疑

1. '.Fields.Update
   
2. .TextRetrievalMode.IncludeFieldCodes = True
   
3. '.TextRetrievalMode.IncludeHiddenText = True
   

复制代码

loquat

1. Sub GetFiledsCodes_MeThee()
   
2.     Application.ScreenUpdating = False
   
3.     Dim myCodes As String
   
4.     Dim MyData As Object
   
5.     Set MyData = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   
6.     With Selection.Range
   
7.         If .Fields.count = 0 Then
   
8.             MsgBox "您所选的内容中没有域代码!", vbInformation
   
9.             Exit Sub
   
10.         Else
    
11.             '.Fields.Update
    
12.             .TextRetrievalMode.IncludeFieldCodes = True
    
13.             '.TextRetrievalMode.IncludeHiddenText = True
    
14.             myCodes = .Text
    
15.             myCodes = VBA.Replace(myCodes, Chr(19), "{")
    
16.             myCodes = VBA.Replace(myCodes, Chr(21), "}")
    
17.             MyData.SetText "域代码:" & myCodes
    
18.             MyData.PutInClipboard
    
19.         End If
    
20.     End With
    
21.     Application.ScreenUpdating = True
    
22. End Sub

复制代码

xwdys

loquat 发表于 2015-3-19 13:16
经测试，发现中间这句不能注释，前后两句好像是能注释掉的。
坐等老大释疑

经测试,不能省略.
比如域代码 { =42}
将42设为隐藏文字, 注释掉 .Fields.Update ,并设置 .TextRetrievalMode.IncludeHiddenText = False
则不显示错误.最终转换的结果为:域代码:!异常的公式结尾
如果不注释掉上述两句,虽然显示错误,但最终转换成静态文本时正确:  域代码:{=42}

不知loquat您是怎么测试的?

loquat

xwdys 发表于 2015-3-21 18:36
经测试,不能省略.
比如域代码 { =42}
将42设为隐藏文字, 注释掉 .Fields.Update ,并设置 .TextRetrieva ...

之前没有认真测试，现在仍然改回来，仅仅做了剪贴板的后期绑定，去掉了文档内的插入文本和剪切操作提高操作效率，个人测试效率大概提高了3倍。
测试之后理解一下红色三行代码的作用：
1.第一行：Update方法，如果手动对域代码做过修改的话，如果更新将无法得到正确域代码
2.第二行：提取域代码
3.第三行：提取隐藏文字中的域代码

Sub GetFiledsCodes_MeThee()
    Application.ScreenUpdating = False
    Dim myCodes As String
    Dim MyData As Object
    Set MyData = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    With Selection.Range
        If .Fields.Count = 0 Then
            MsgBox "您所选的内容中没有域代码!", vbInformation
            Exit Sub
        Else
            .Fields.Update
            .TextRetrievalMode.IncludeFieldCodes = True
            .TextRetrievalMode.IncludeHiddenText = True
            myCodes = .Text
            myCodes = VBA.Replace(myCodes, Chr(19), "{")
            myCodes = VBA.Replace(myCodes, Chr(21), "}")
            MyData.SetText "域代码:" & myCodes
            MyData.PutInClipboard
        End If
    End With
    Application.ScreenUpdating = True
End Sub

xwdys

loquat 发表于 2015-3-22 22:32
之前没有认真测试，现在仍然改回来，仅仅做了剪贴板的后期绑定，去掉了文档内的插入文本和剪切操作提高操 ...

好用............