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

Rank: 2

帖子
33 
积分
173 
技术
0  
捐助
0  
注册时间
2009-11-3 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2012-7-7 23:50 | 只看该作者

[已应助]依次创建专题文摘doc档

本帖最后由 coolrat 于 2012-7-8 14:19 编辑

【情形】
1.文件夹内已有非空word文档：专题文摘.doc   （相当于格式模板）
2.夹内其余word文档均为“专题文摘+顺序编号”.doc，如专题文摘0001.doc，专题文摘0022.doc等诸如此类，编号均为四位数字。
3.在当前文件夹内创建新编号的专题文摘doc档。若同编号doc档存在，则自动依次不间断地创建下一编号doc，如专题文摘0002.doc存在，则自动创建专题文摘0003.doc，如此类推。
4.新创建doc需复制专题文摘.doc（即格式模板）的内容并改名为对应编号名称。
5.新建编号的专题文摘doc档自动打开。
【补充说明】
相近思路的应用曾在论坛得到 ivor、namejm、tmplinshi、 apang诸位大侠的鼎力相助，也为科研与教学带来了极大的便利。参见——
http://www.bathome.net/thread-15497-1-1.html

http://www.bathome.net/thread-17929-1-1.html

http://www.bathome.net/thread-13427-1-1.html

实际应用中发现，材料收集除日期编号外亦常需顺序编号标示，或内容中常有截图而需变txt为doc以便编辑或整理，（单独在夹内存放模板采用复制方式，则是为适需要及时修改模板）故求新的版本配合使用并恭请高手援手支持！
收藏 分享

apang

Rank: 8Rank: 8

帖子
2085 
积分
14204 
技术
665  
捐助
0  
注册时间
2011-11-27 
2楼
发表于 2012-7-8 10:07 | 只看该作者
试试
  1. @echo off&setlocal enabledelayedexpansion

  2. for /l %%a in (10001 1 19999) do (

  3.   set n=%%a

  4.   set "mydoc=专题文摘!n:~-4!.doc"

  5.   if not exist "!mydoc!" (

  6.     copy 专题文摘.doc "!mydoc!"&&start "" "!mydoc!"

  7.     goto :eof

  8.   )

  9. )
复制代码
1

评分人数

TOP

coolrat

Rank: 2

帖子
33 
积分
173 
技术
0  
捐助
0  
注册时间
2009-11-3 
3楼
发表于 2012-7-8 14:12 | 只看该作者
本帖最后由 coolrat 于 2012-7-8 14:17 编辑

回复 2# apang

apang君：
          您的设计完美实现预定功能，衷心向您的再次援助深表谢意。祝福您一切吉祥！

TOP

返回列表