删除word域的特征字符，保留域里原有的内容

dafanshu1 · 发表于 2016-6-23 16:43

wordaaaaa 发表于 2016-6-23 16:31
我发不了短消息也不能留言各种都不行只能跟帖

用手工操作我可不会呢，如果你急着用，就试试下面宏吧：
Sub 转化域代码()
For Each YU In ActiveDocument.Fields
YU.Select
Selection.TypeText YU.Code
Selection.Hyperlinks(1).Delete
Next
End Sub

wordaaaaa · 发表于 2016-6-23 17:37

dafanshu1 发表于 2016-6-23 16:43
用手工操作我可不会呢，如果你急着用，就试试下面宏吧：
Sub 转化域代码()
For Each YU In ActiveDoc ...

好好好哈真是太及时了我真是挺着急的基本解决了我的问题谢谢真的谢谢您但是运行结果有点问题就是原来没有PubMed或者DOI链接的都出现了一个空的链接这个我可以自己全部替换掉挺方便的要是您有兴趣再看看的话麻烦您能不能再修改一下让原来没有PubMed或者DOI链接的不出现新的空链接

dafanshu1 · 发表于 2016-6-23 23:02

wordaaaaa 发表于 2016-6-23 17:37
好好好哈真是太及时了我真是挺着急的基本解决了我的问题谢谢真的谢谢您但是运行结果有点问 ...

你可以把含有原来没有PubMed或者DOI链接的附件传上来吗？

wordaaaaa · 发表于 2016-6-24 08:12

dafanshu1 发表于 2016-6-23 23:02
你可以把含有原来没有PubMed或者DOI链接的附件传上来吗？

当然可以期待您的结果呦

dafanshu1 · 发表于 2016-6-24 10:13

wordaaaaa 发表于 2016-6-24 08:12
当然可以期待您的结果呦

我还未明白你指的是哪个空链接呢。我已将附件运行过一次宏，请你将里面有新的空链接标处标注一下。

wordaaaaa · 发表于 2016-6-24 12:04

dafanshu1 发表于 2016-6-24 10:13
我还未明白你指的是哪个空链接呢。我已将附件运行过一次宏，请你将里面有新的空链接标处标注一下。

啊我又试了好几次是没问题的好棒！实在不好意思好像是我自己不懂没弄明白现在不知道怎么才能感谢你啊

dafanshu1 · 发表于 2016-6-24 13:17

wordaaaaa 发表于 2016-6-24 12:04
啊我又试了好几次是没问题的好棒！实在不好意思好像是我自己不懂没弄明白现在不知道怎么 ...

不用谢，能解决问题就好。
补充一下，这宏最好在开头加多一句 On Error Resume Next ，以免遇到没有链接的域时会报错。

wordaaaaa · 发表于 2016-6-24 13:54

dafanshu1 发表于 2016-6-24 13:17
不用谢，能解决问题就好。
补充一下，这宏最好在开头加多一句 On Error Resume Next ，以免遇到没有链接 ...

好的真的谢谢您~~~

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

[求助] 删除word域的特征字符，保留域里原有的内容