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

Rank: 3Rank: 3

帖子
143 
积分
201 
技术
4  
捐助
0  
注册时间
2010-12-4 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2011-1-26 17:15 | 只看该作者

VBS怎样根据word内容标题自动重命名word文件名？

  1.  

  2. set fso=createobject("scripting.filesystemobject")

  3. set folder=fso.getfolder(".")

  4. set files=folder.files

  5. for each file in files 

  6.         if lcase(right(file,3))="doc"  then

  7.                 a=1

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

  9.                 Set objDoc = objWord.Documents.Open(cstr(file))

  10.                 wjm=objDoc.Paragraphs(1).Range

  11.                 objWord.Quit

  12.         if file.name <> replace(wjm,vbcr,"") & ".doc" then createobject("wscript.shell").run "cmd /c ren " & chr(34) & file.name  & chr(34) & " " & chr(34) & wjm & ".doc"  & chr(34),0

  13.         end if

  14. next

  15. if a=1 then

  16.         msgbox "操作成功!",4096,"提示"

  17. else

  18.         msgbox "对不起，没有在【" & folder & "】下找到WORD文件",4096,"提示"

  19. end if 
复制代码
这是一段根据word内容标题自动为word重命名的代码。这段代码是从网上复制过来的
刚把这快代码发在批处理版块了。。这里想请各位帮忙看下这段代码怎么改进比较。可以减少错误发生率。。
因为在执行的时候会第几行错误。。。貌似假如文件内容标题在第二行，第一行是空行的，就不会自动搜索第2行的标题，望高手看个端倪。。

[ 本帖最后由 yhcbird 于 2011-1-26 17:21 编辑 ]
收藏 分享
菜鸟学批，一批一大批~~~~~~

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
2楼
发表于 2011-1-26 22:21 | 只看该作者
Word.Application对象没用过

待我研究一番先

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
3楼
发表于 2011-1-27 01:27 | 只看该作者
刚开完盘车，然后看了下这题，写了代码如下：
  1. Dim fso,fc,f,strName

  2. Set fso = CreateObject("scripting.filesystemobject")

  3. Set fc=fso.GetFolder(".").Files

  4. For Each f In fc

  5.   If LCase(fso.GetExtensionName(f))="doc" Then

  6.     strName=GetFileName(f.Path)

  7.   End If 

  8.   f.Name=strName & ".doc"

  9.   Exit For 

  10. Next

  11. Set fso=Nothing 

  12. Function GetFileName(FilePath)

  13.   Dim i,objWord,Doc

  14.   Set objWord=CreateObject("word.application")

  15.   Set Doc=objWord.Documents.Open(FilePath)

  16.   For i=1 To Doc.Paragraphs.Count

  17.     If Replace(Doc.Paragraphs(i).Range," ","")<>vbCr Then 

  18.       GetFileName=Replace(Doc.Paragraphs(i).Range,vbCr,"")

  19.       Exit For

  20.     End If 

  21.   Next

  22.   objWord.Quit

  23.   Set objWord=Nothing 

  24. End Function
复制代码


这个代码有点还不是很到位的，就是，如果标题含有特殊字符 \ / * | 之类的，那必须要过滤。其实用replace语句可以解决的，这里我偷下懒就不写了，睡觉，晚安~

TOP

yhcbird

Rank: 3Rank: 3

帖子
143 
积分
201 
技术
4  
捐助
0  
注册时间
2010-12-4 
4楼
发表于 2011-1-28 09:35 | 只看该作者
辛苦了。测试下。没有成功。。。
菜鸟学批，一批一大批~~~~~~

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
5楼
发表于 2011-1-28 11:36 | 只看该作者
哦？我测试是没有问题的。出错提示什么？
---学无止境---

TOP

返回列表