如何给word文件自动更名？如何给word文件自动更名：文件名字

可以用脚本来做。

1、用记事本新建一个文本文件，把它保存为“批量重命名.vbs”（注意不要弄成了“批量重命名.vbs.txt”，也就是要确保其扩展名为“.vbs”）;2、把下列代码粘贴到这个VBS文件中：Option Explicit Const g_strRootPath = ＂c:\Temp\docs\Word\ToRename\＂ ' 指定存放所有文件的目录，可以有子目录 Const g_nTitleMaxLen = 16 ' 指定获取文档里面第一段中的前多少个字符来作为文件名 Call Main' 主函数入口 Sub Main() Dim fso, oFolder, oWordApp Set oWordApp = CreateObject(＂Word.Application＂) Set fso = CreateObject(＂Scripting.FileSystemObject＂) Set oFolder = fso.GetFolder(g_strRootPath) RenameDocFilesUnderFolder oWordApp, fso, oFolder oWordApp.Quit Set oWordApp = Nothing MsgBox ＂完成！＂ End Sub' 重命名指定文件夹（递归）下面的所有Word文件，按照文件里面的第一句可见的文字命名 Sub RenameDocFilesUnderFolder(oWordApp, fso, oFolder) Dim oSubFolder, oFile, oDoc Dim strTitle, strFileName For Each oSubFolder In oFolder.SubFolders RenameDocFilesUnderFolder oWordApp, fso, oSubFolder Next For Each oFile In oFolder.Files Set oDoc = oWordApp.Documents.Open(oFile.Path) strTitle = GetFirstVisibleTextContent(oDoc) oDoc.Close Set oDoc = Nothing If Len(strTitle) 0 Then strFileName = fso.BuildPath(fso.GetParentFolderName(oFile.Path), strTitle & ＂.＂ & fso.GetExtensionName(oFile.Path)) strFileName = GetUniqueFileName(fso, strFileName) fso.MoveFile oFile.Path, strFileName End If Next End Sub' 获取指定文档第一行可见文字 Function GetFirstVisibleTextContent(oDoc) Dim oParagraph Dim strContent For Each oParagraph In oDoc.Paragraphs strContent = GetSafeFileName(oParagraph.Range.Text) If Len(strContent) 0 Then GetFirstVisibleTextContent = strContent Exit Function End If Next GetFirstVisibleTextContent = ＂＂ End Function' 过滤文件名里面的无效字符 Function GetSafeFileName(strFileName) Dim arrUnsafeCharacters, strUnsafeChar Dim nIndex arrUnsafeCharacters = Array(＂\＂, ＂/＂, ＂:＂, ＂*＂, ＂?＂, ＂＂＂＂, ＂＂, ＂|＂) For nIndex = 0 To &H2F strFileName = Replace(strFileName, Chr(nIndex), ＂＂) Next For Each strUnsafeChar In arrUnsafeCharacters strFileName = Replace(strFileName, strUnsafeChar, ＂＂) Next GetSafeFileName = Left(Trim(strFileName), g_nTitleMaxLen) End Function' 获取不重复的文件名，如果有重名则在文件名后面附加“_1”、“_2”…… Function GetUniqueFileName(fso, strFullName) Dim strParentFolder, strBaseName, strExtensionName Dim nIndex If Not fso.FileExists(strFullName) Then GetUniqueFileName = strFullName Exit Function End If strParentFolder = fso.GetParentFolderName(strFullName) strBaseName = fso.GetBaseName(strFullName) strExtensionName = fso.GetExtensionName(strFullName) nIndex = 0 While fso.FileExists(strFullName) nIndex = nIndex + 1 strFullName = fso.BuildPath(strParentFolder, strBaseName & ＂_＂ & nIndex & ＂.＂ & strExtensionName) Wend GetUniqueFileName = strFullName End Function3、修改代码中开始部分的两个设置，即：存放等待重命名的Word文件的根目录，以及获取文档第一段内容时最多保留多少个字符。

4、保存这个VBS文件，在资源管理器中双击运行它，直到看见“完成”！5、检查所有文件是否已自动重命名。

注意：如果有两个以上的文档依据其内容提取出来的文字相同，则会自动在文件名后面附加“_1”、“_2”、“_3”……。

如果有什么问题，请和我联系。

超级文件批量重命名工具怎么用

先说说批量改文件名，比如你有一大堆文件，想给他们编号，可是一个一个改太麻烦，现在教你一个比较简单的方法： 1.全选上（也可以CTRL+A），然后点F2，然后改名就行了，比如你改的名字是“美眉”，后面的文件名会自动变成“美眉1”“美眉2”等。

2.或者全选上，在最后一个文件上右键改名也可以。

现在来说说怎么批量改文件后缀名吧： 其实对DOS熟悉的朋友都知道“ren”这个可更改文件名的命令，基本格式为“ren [C:\][path]filename1[.txt] filename2[.txt]”，其中“[C:\][path]”代表所改文件的路径，“filename1[.txt] filename2[.txt]”表示将文件名“filename1.txt”更换为文件名“filename2.txt”。

“ren”命令既可对单个文件进行重命名，也可以用来批量更改文件的后缀名。

以Windows XP系统为例：在“D:\Word”文件夹下有若干后缀名为“.txt”的文本文件，我们要将它们全部转换成“.htm”后缀的网页文件。

步骤如下：在开始菜单中输入“cmd”进入命令提示符。

键入“ren d:\word\*.txt *.htm”后回车，退出命令提示符。

再回到“D:\Word”下看看，所有的“.txt”后缀的文件已全部更改为“.htm”类型的文件了。

1...

word文件,如何自动生成目录？

要想自动生成目录，必须从根上做起，打文件时应设置题目格式。

一、输入题目时这样操作 1、打开WORD文档输入标题时，点菜单字体栏左侧样式窗口，选“题目1”，并选好字体和字号；如果想在目录中显示二级题目，输入二级题目时应选择“题目2”。

2、输入正文时，则应在样式窗口选择“正文”。

3、文章已经写完，可以补做上述操作。

做上述操作后，标题左侧回游黑色小方块标志。

二、文件输入完毕要自动生成目录时的操作： 1、将光标置于拟加目录处。

2、点“插入/索引和目录/目录”，在出现界面上在显示级别栏选定顶级别确定目录是几层；选择“显示页码”、“页码右对齐”及虚线样式等。

3、确定。

至此，目录在你指定位置已经生成。

三、已生成目录的字体、间距等仍可以在目录中直接调整。

四、双击目录中某项的页码，WORD就会显示该页码的页面。

五、更新目录：按第一步方法更改或增减目录标题后，选中目录，右键选“更新域/更新整个目录/确定”即可。

为什么WORD文档一改名格式就变了？

这是因为你将WORD文档文件的后缀名.doc一起改掉的原因，首先看文件名后方有无.doc，如果有改文件名时，不改.doc后缀名即可。

如果没有可以打开任以一文件夹，在选择上方的工具——文件夹选项——查看——将隐藏已知文件类弄的扩展名前的对号取消——点确定返回，WORD文档文件的后缀名.doc即可显示。

以前操作过的文件不能正常打开的，可在重命名后方加.doc后缀名。

文件批量改名工具 C++

代码： #include #include using namespace std;void main(){//设置需要更改文件名的目录char dir[128] = {0};coutcin>>dir; CString filename = (CString)dir+＂\\*.*＂;CFileFind finder;BOOL bWorking = finder.FindFile(filename)； //更改之后的名称char prepart[32] = {0};coutcin>>prepart； //是否将目录名一起添加到新文件名之前CString adddir = ＂＂;char addpredir;coutcin>>addpredir;if('Y' == addpredir || 'y' == addpredir){CString dirname = dir;for(int i=dirname.GetLength()-1; i>=0; i--){if('\\' == dirname[i]){break;}adddir = dirname[i] + adddir;}} int filenumber = 0;while(bWorking){bWorking = finder.FindNextFile();CString tempname = finder.GetFileName();if(＂.＂ == tempname || ＂..＂ == tempname){continue;}else{//原文件名CString oldname = finder.GetFilePath();filename = finder.GetFileName();CString rightpart = filename.Right(filename.GetLength()-filename.Find（＂.＂)）； //新文件名CString newname;newname.Format(＂%s\\%s%s%.3d%s＂, dir, adddir, prepart, ++filenumber, rightpart)； //重命名try{CFile::Rename(oldname, newname);cout＂}catch (CFileException* e){char err[128] = {0};e->GetErrorMessage(err, 128);cout}}}} 需要使用MFC类库，其中的CFile、CFileFinder、CString、CFileException皆是MFC封装好的类，具体在建工程的时候选择使用MFC类库就行，图形化的界面就不提供了，代码差不多。

【word中如何生成目录】Word文档怎么自动生成目录？？？

一、设置标题格式 1.选中文章中的所有一级标题； 2.在“格式”工具栏的左端，“样式”列表中单击“标题1”。

仿照步骤1、2设置二、三级标题格式为标题2、标题3。

二、自动生成目录 1.把光标定位到文章第1页的首行第1个字符左侧（目录应在文章的前面）； 2.执行菜单命令“插入/引用/索引和目录”打开“索引的目录”对话框； 3.在对话框中单击“目录”选项卡，进行相关设置后，单击“确定”按钮，文章的目录自动生成完成。

目录是用来列出文档中的各级标题及标题在文档中相对应的页码。

首先介绍Word的一个概念：大纲级别。

Word使用层次结构来组织文档，大纲级别就是段落所处层次的级别编号，Word提供9级大纲级别，对一般的文档来说足够使用了。

Word的目录提取是基于大纲级别和段落样式的，在Normal模板中已经提供了内置的标题样式，命名为“标题1”、“标题2”，…，“标题9”，分别对应大纲级别的1-9。

我们也可以不使用内置的标题样式而采用自定义样式，但有点麻烦。

转载请注明出处51数据库 » word文档自动更名工具