[在word文档中怎么在方框里面打]方法一：按住键盘上的ALT键不放，然后在小键盘区输入“9745”这几个数字，最后松开ALT键，自动变成框框中带勾符号。方法二：在Word文档中输入数字“2611” ，然后按下键盘上的快捷键 AL...+阅读

可以用脚本来做。

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 Function

3、修改代码中开始部分的两个设置，即：存放等待重命名的Word文件的根目录，以及获取文档第一段内容时最多保留多少个字符。

4、保存这个VBS文件，在资源管理器中双击运行它，直到看见“完成”！

5、检查所有文件是否已自动重命名。 注意：如果有两个以上的文档依据其内容提取出来的文字相同，则会自动在文件名后面附加“_1”、“_2”、“_3”……。 如果有什么问题，请和我联系。

以下为关联文档：

word文档中插入一个字就删掉一个字怎么办工具/材料：电脑、WORD。 第一步，打开电脑进入桌面，打开软件进界面。 第二步，打开软件进入后，打开相应的文档。 第三步，打开文档输入字体时发现会把后面的字体删除。 第四步，鼠标...

为什么word文档打一个字就消掉了一个字？怎么处理让他不消掉这是改写模式。 可以按insert切换模式，平常是插入模式。 如图： 如何分辨word输入处于改写还是插入模式，如下图的红色区域。...

Word文档中如何快速找到自己想要的内容1.打开需要进行操作的文档，点击上方编辑选项，点击该选项进入编辑页面，如下图所示。 2.在编辑页面中找到下方功能选项，点击该选项进入功能页面，如下图所示。 3.在功能页面中找到...

如何将pdf转换成ppt文档使用PDF转成PPT转换器转换工具，大家可以到官方网站下载软件。 第一步，下载并安装PDF转化为PPT转换器； 第二步，进入软件界面后，选择相应的程序，PDF转换软件支持：PDF转Word、PDF转Exc...

word文档怎么设置每页字数可以在页面设置对话框中进行设置。 操作步骤： 1、单击文件菜单，在下拉菜单中选择页面设置命令，如图所示； 2、弹出页面设置对话框，选择文档网格选项卡，在网格处单击指定行和字符网...

手机怎么建文档苹果1、待机状态下，随意按住一个已经安装的应用图标，直至开始抖动。 2、将按住的那个图标慢慢移动到另一个应用图标上面。 3、当出现文件夹的时候手指松开图标。 4、在文件夹上方...

苹果电脑怎么在文件夹里创建文档苹果电脑Mac OS X 中创建新文件夹的方法有以下几种： 第一种： 1 点击桌面Finder（如下图标），打开我的所有文件界面； 2 点击选中“我的所有文件界面”左侧面板我们需要新建文件夹的文...

批量合并word文档1、新建一个WORD文档，命名后保存到和要合并的1000多篇文档一个文件夹里。 2、摁ALT+F11进入宏编辑器。 3、双击左上角的ThisDocument，在右侧的代码区粘贴代码如下： Sub 合并文...

多个WORD文档格式批处理word文档批量处理大师是最好用的了，有批量设置格式的功能。这是软件介绍： 这是软件介绍： 《Word文档批量处理大师》软件精致小巧，简单易用，针对性强，是特别针对Office办公软件中的...