高手问一下,如何让拆分好的文档命名为各个文档的第一行。谢谢
发布网友
发布时间：2022-04-29 18:57
共1个回答
热心网友
时间：2022-06-20 02:01
主控文档是子文档的一个“容器”。每一个子文档都是独立存在于磁盘中的文档，它们可以在主控文档中打开，受主控文档控制；也可以单独打开。创建主控文档的步骤如下：
（1）单击【常用】工具栏中的【新建空白文档】按钮，创建一个空文档。
（2）选择【视图】菜单中的【大纲】菜单项，并切换到大纲视图下。此时【大纲】工具栏自动激活，【大纲】工具栏及各按钮的具体含义如图6-1 所示。
（3）输入文档的大纲，并用内置的标题样式对各级标题进行格式化。
（4）选定要拆分为子文档的标题和文本。注意选定内容的第一个标题必须是每个子文档开头要使用的标题级别。例如，所选内容中的第一个标题样式是“标题3”，那么在选定的内容中所有具有“标题3”样式的段落都将创建一个新的子文档。选定的方法是鼠标移到该标题前的空心十字符号，此时鼠标指针变成十字箭头，单击鼠标即可选定该标题包括的内容。
（5）单击【大纲】工具栏中的【创建子文档】按钮，原文档将变为主控文档，并根据选定的内容创建子文档，如图6-2 所示。可以看到，Word 把每个子文档放在一个虚线框中，并且在虚线框的左上角显示一个子文档图标，子文档之间用分节符隔开。
（6）把文件保存下来即可。Word 在保存主文档的同时，会自动保存创建的子文档，并且以子文档的第一行文本作为文件名。
在主控文档中，可以插入一个已有文档作为主控文档的子文档。这样，就可以用主控文档将以前已经编辑好的文档组织起来，而且还可以随时创建新的子文档，或将已存在的文档当作子文档添加进来。例如，作者交来的书稿是以一章作为一个文件来交稿的，编辑可以为全书创建一个主控文档，然后将各章的文件作为子文档分别插进去。操作方法如下：
（1）打开主控文档，并切换到主控视图。
（2）如果子文档处于折叠状态，先单击【大纲】工具栏上的【展开子文档】按钮，以激活【插入子文档】按钮。
（3）将光标定位在添加已有文档的地方，确保光标的位置在已有的子文档之间。如果将改变定位在某一子文档内，那么插入的文档也会位于这个子文档内。
（4）单击【大纲】工具栏中的【插入子文档】按钮，将弹出如图6-3 所示的【插入子文档】对话框。
（5）在【插入子文档】对话框的【查找范围】框的文件列表中找到所要添加的文件，然后单击【打开】按钮。
经过上述操作后，选定的文档就作为子文档插入到主控文档中，用户可以像处理其他子文档一样处理该子文档。
在主控文档中，子文档是按次序排列的，而且这个次序也是整篇长文档中各部分内容的次序。如果要改变它们的次序，如要把第一节调整到第二节，第二节作为第一节，可以按如下步骤进行。
（1）打开并显示主控文档。
（2）如果子文档处于折叠状态，要首先展开子文档。
（3）如果要重新排列的子文档处于锁定状态，首先解除锁定。解除的方法参看6.1.7 节。
（4）单击子文档图标，选定要移动的子文档，例如，在图6-5 中选定的是第二节（5.1.2）。
（5）将子文档图标拖动到新的位置。在拖动过程中，Word 将用一条带箭头的横线代表被拖动的子文档，这条横线的所处的位置就是子文档拖动后的位置。将这条横线到达正确位置后再松开鼠标即可，如图6-5 所示。
完成上述操作后，被选定的子文档就会移到新的位置，从而实现了子文档的重排。追问我要编辑的文档是我们内部系统导出的，每次有几百上千个。这样的方法太费时。烦请告知通过VBA解决此问题的方法，谢谢。
追答建立一个工作簿。
在EXCEL表中，依次进行如下操作：
单击sheet1空白单元格->【工具】->【宏】->【Visual Basic 编辑器】，到此，就新建了一个VBA工程。
在VBA工程编辑器中双击Sheet1打开Sheet1代码窗口，在其中输入以下代码。
程序代码：
Sub rename()
MsgBox "请选择要重命名文件所在的文件夹"
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
reNamePath = .SelectedItems(1)
If Right(reNamePath, 1) "" Then
reNamePath = reNamePath + ""
End If
End With
Range("a2").End(xlDown).Select
rCount = ActiveCell.Row
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
For r = 2 To rCount
oName = reNamePath & Cells(r, 1) & ".jpg"
If fs.FileExists(oName) Then
nName = reNamePath & Cells(r, 2) & ".jpg"
Name oName As nName
End If
Next r
End Sub
以上程序代码为用EXCEL表中第二列数据即身份证号码为文件夹中的图片重命名。由于篇幅有限，我们对以上的代码参数稍加改动，还可以拓展延伸，比如用学生的学号为照片重命名。这里不做赘述。
