[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
12
返回列表 发帖
yy2372575

Rank: 1

帖子
15 
积分
18 
技术
0  
捐助
0  
注册时间
2015-9-21 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2015-9-21 11:11 | 只看该作者

[其他] 批处理如何批量解除/取消word域功能？

本帖最后由 pcl_test 于 2016-4-15 19:29 编辑

现在有三个文件夹，每个文件夹里有大量word文档，而每个word文档都含有域功能，我想把三个文件夹内的全部word的域功能取消，请问怎么办呀？
我知道如何取消单个word域功能。如下：
解除域的链接  
首先选择有关域内容，然后按下“CTRL＋SHIFT＋F9”组合键即可解除域的链接，此时当前的域结果就会变为常规文本（即失去域的所有功能），以后它当然再也不能进行更新了。用户若需要重新更新信息，必须在文档中插入同样的域才能达到目的
可是word文档太多了，我不能一个一个取消，怎么批量取消呀
收藏 分享

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5330 
技术
684  
捐助
0  
注册时间
2014-10-19 
2楼
发表于 2015-11-9 11:03 | 只看该作者
勿重复发帖

TOP

upfour

Rank: 1

帖子
5 
积分
17 
技术
0  
捐助
0  
注册时间
2015-11-8 
3楼
发表于 2015-11-11 09:51 | 只看该作者
估计bat不行，用VBA吧

TOP

yy2372575

Rank: 1

帖子
15 
积分
18 
技术
0  
捐助
0  
注册时间
2015-9-21 
4楼
发表于 2015-11-11 10:51 | 只看该作者
本帖最后由 pcl_test 于 2015-11-12 09:15 编辑

回复 3# upfour

谢谢大神，能帮忙编辑出来，并教我怎么用吗。万分感谢

TOP

youxi01

Rank: 8Rank: 8

帖子
962 
积分
2449 
技术
40  
捐助
0  
注册时间
2007-10-25 
5楼
发表于 2015-11-11 12:08 | 只看该作者
参考代码：

Sub test()
Dim tField As Word.Field
For Each tField In ActiveDocument.Fields
    tField.Unlink
Next
End Sub
3

评分人数

    • codegay: bathome之创始神技术 + 1
    • CrLf: 亲们，快出来看上帝！PB + 40 技术 + 10
    • 依山居: 就知道你是VBA高手。技术 + 1

TOP

yy2372575

Rank: 1

帖子
15 
积分
18 
技术
0  
捐助
0  
注册时间
2015-9-21 
6楼
发表于 2015-11-12 09:04 | 只看该作者
谢谢大神。我试试

TOP

yy2372575

Rank: 1

帖子
15 
积分
18 
技术
0  
捐助
0  
注册时间
2015-9-21 
7楼
发表于 2015-11-12 09:09 | 只看该作者
回复 5# youxi01

出现这个问题

TOP

yy2372575

Rank: 1

帖子
15 
积分
18 
技术
0  
捐助
0  
注册时间
2015-9-21 
8楼
发表于 2015-11-12 09:56 | 只看该作者
大神，我传了一个样本。你看看http://pan.baidu.com/s/1kT3xCgv密码：99mx

TOP

yy2372575

Rank: 1

帖子
15 
积分
18 
技术
0  
捐助
0  
注册时间
2015-9-21 
9楼
发表于 2015-11-17 10:47 | 只看该作者
自己给自己顶一下，希望大神看见再多多帮忙，谢谢

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18837 
技术
980  
捐助
100  
注册时间
2010-10-9 
10楼
发表于 2015-11-17 16:54 | 只看该作者
卧槽，5楼那位不是盘古大神吗？
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

yy2372575

Rank: 1

帖子
15 
积分
18 
技术
0  
捐助
0  
注册时间
2015-9-21 
11楼
发表于 2015-11-19 14:51 | 只看该作者
是吧！我也觉得他好厉害，我这贴好久了没人回，还是他回的。可惜昙花一现，我权限还没办法联系上他。

TOP

依山居

Rank: 5Rank: 5

帖子
593 
积分
935 
技术
49  
捐助
0  
注册时间
2008-1-3 
12楼
发表于 2015-11-19 15:07 | 只看该作者
回复 11# yy2372575


    自己找VBA的资料慢慢看去。
下载安装python3 https://www.python.org/downloads/ 代码存为xx.py 双击运行或IDLE打开F5运行

TOP

yy2372575

Rank: 1

帖子
15 
积分
18 
技术
0  
捐助
0  
注册时间
2015-9-21 
13楼
发表于 2015-12-1 13:26 | 只看该作者
大哥，小白一枚，现在学vba，能给个推荐学习资料吗？另外实在紧迫，等我学完了，黄花菜都凉了，你要有能力请帮忙

TOP

aa77dd@163.com

Rank: 5Rank: 5

帖子
548 
积分
1246 
技术
176  
捐助
0  
注册时间
2015-6-4 
14楼
发表于 2015-12-1 14:03 | 只看该作者
C:\>reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\excel.exe" /v path

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\excel.exe
    path    REG_SZ    D:\Program Files (x86)\Microsoft Office\OFFICE11\


C:\>DIR /B "D:\Program Files (x86)\Microsoft Office\OFFICE11\2052\VBA*.CHM"
VBAAC10.CHM
VBAGR10.CHM
VBAOF11.CHM
VBAOL11.CHM
VBAOWS10.CHM
VBAPB10.CHM
VBAPP10.CHM
VBAWD10.CHM
VBAXL10.CHM

TOP

WHY

Rank: 6Rank: 6

帖子
1442 
积分
3193 
技术
556  
捐助
0  
注册时间
2015-7-19 
15楼
发表于 2015-12-1 14:32 | 只看该作者 
  1. strPath = "C:\Users\Administrator\Desktop"

  2. Set fso = CreateObject("Scripting.FileSystemObject")

  3. Set objWord = CreateObject("Word.Application")

  4. objWord.Visible = True

  5. 

  6. For Each objFile In fso.GetFolder(strPath).Files

  7.     If LCase(Right(objFile.Path, 4)) = ".doc" Or LCase(Right(objFile.Path, 5)) = ".docx" Then

  8.         Set objDoc = objWord.Documents.Open(objFile.Path)

  9.         objDoc.Fields.Unlink

  10.         objDoc.SaveAs objFile.Path

  11.         objDoc.Close

  12.     End If

  13. Next

  14. 

  15. objWord.Quit
复制代码

TOP

12
返回列表