怎样用VBA代码将文档中的所有域转换成纯文本

weiyingde · 发表于 2021-8-12 21:03

这是一个含有域的文档，有的域能正常显示，有的域不能正常显示，显示为“错误！”，为了方便编辑，先要将所有的域，转换成静态的纯文本，请教大侠，该如何用代码实现？
在线等。

zhanglei1371 · 发表于 2021-8-13 06:33

Ctrl+A，Ctrl+shift+f9

weiyingde · 发表于 2021-8-13 07:33

zhanglei1371 发表于 2021-8-13 06:33
Ctrl+A，Ctrl+shift+f9

张大侠，你这是进入域编辑状态吧，不是从域当中取出文本。
我要的效果是，取出文本，然后删去域。
希望得到你的指教和帮助。

zhanglei1371 · 发表于 2021-8-13 12:03

weiyingde 发表于 2021-8-13 07:33
张大侠，你这是进入域编辑状态吧，不是从域当中取出文本。
我要的效果是，取出文本，然后删去域。
希望 ...

这个意思吧：
[原创并分享]:域代码复制器(变形域代码)/变形域代码回复器-Word-ExcelHome技术论坛 - https://club.excelhome.net/thread-83863-1-1.html
域代码纯文本化及其智能转换-Word-ExcelHome技术论坛 - https://club.excelhome.net/thread-368632-1-1.html
若还不是，就无能为力了。

weiyingde · 发表于 2021-8-14 08:11

zhanglei1371 发表于 2021-8-13 12:03
这个意思吧：
[原创并分享]:域代码复制器(变形域代码)/变形域代码回复器-Word-ExcelHome技术论坛 - htt ...

谢谢张大侠的热心帮助。

413191246se · 发表于 2021-8-15 01:20

ActiveDocument.Fields.Unlink

weiyingde · 发表于 2021-8-18 06:26

413191246se 发表于 2021-8-15 01:20
ActiveDocument.Fields.Unlink

我试试，不懂或行不通，再请教你。

weiyingde · 发表于 2021-8-18 06:45

413191246se 发表于 2021-8-15 01:20
ActiveDocument.Fields.Unlink

经试验，没有效果。请大侠再看看，指导指导。

zldccmx · 发表于 2021-9-3 15:55

Sub 域转文本()
Rem By Zldccmx
Rem --- https://club.excelhome.net/
Rem 2021.9.3
Application.ScreenUpdating = False
Dim F As Field
For Each F In ActiveDocument.Range.Fields
F.Select
Selection.MoveDown , 1
Selection.HomeKey
Selection.TypeParagraph
Selection.MoveUp , 1
Selection.TypeText Split(Mid(F.Code.Text, InStrRev(F.Code.Text, "(") + 1), ")")(0)
F.Delete
Next
Application.ScreenUpdating = True
End Sub

复制代码

zldccmx · 发表于 2021-9-3 15:57

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

[求助] 怎样用VBA代码将文档中的所有域转换成纯文本