word指定标题如何提取,提取,指定,标题

1.Word里在标题不分明的文档中如何提取目录?

建议用如下一之3的方法，补充操作，来完成目录的自动生成。

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

3、文章已经写完，可以补做上述操作。做上述操作后，标题左侧回游黑色小方块标志。

二、文件输入完毕要自动生成目录时的操作：1、将光标置于拟加目录处。2、点“插入/索引和目录/目录”，在出现界面上在显示级别栏选定顶级别确定目录是几层；选择“显示页码”、“页码右对齐”及虚线样式等。

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

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

2.如何利用VBA批量提取文件夹下所有Word文档的标题和指定段落

Sub test() Dim fso, fp, arr, wd, f, n%, fname$ Set fso = CreateObject("scripting.filesystemobject") Set fp = fso.getfolder(ThisWorkbook.Path) ReDim arr(1 To fp.Files.Count, 1 To 2) arr(1, 1) = "文件号"： arr(1, 2) = "标题" Set wd = CreateObject("word.application") n = 1 For Each f In fp.Files If Right(f, 3) = "doc" Or Right(f, 4) = "docx" Then n = n + 1: arr(n, 1) = fso.getbasename(f) fname = fso.getfilename(f) With wd.Documents.Open(ThisWorkbook.Path & "\" & fname, True, True) wd.Visible = True arr(n, 2) = .Paragraphs(2).Range .Close End With End If Next wd.Quit Sheets(1).[a1].Resize(UBound(arr), UBound(arr, 2)) = arrEnd Sub现在有一个文件夹下有N个Word文件，要将他们的文件名和文档内的第二段提取到Excel表格，如何通过VBA实现。

3.word 怎样提取特定格式的文本及所在的页码

目前我想到的方案是利用Word里面的“索引”功能。

1、选中需要提取的文字，执行菜单命令“插入-引用-索引和目录”；2、在“索引”选项页里面选择单击按钮“标记索引项”；3、指定“选项”为“当前页”，根据需要可以指定提取之后显示的页码格式为加粗或者倾斜，单击“标记”；4、此时标记索引项窗口并不会关闭，而且你还能在文档中找到并选中下一个需要提取的文字，重复步骤3;5、如果没有其它需要提取的文字了，单击“关闭”；6、在需要插入索引表的地方，执行菜单命令“插入-引用-索引和目录”，根据需要设置索引表的格式（比如分栏、对齐、缩进等风格），然后单击“确定”。这样所有标记过索引的文字以及它们所在的页码就都提取出来了。

如果需要提取的文字有很多，那么或许也可以用VBA宏来自动标记索引（即相当于自动完成上面的1-5步骤）。但是前提是这些文字必须都有非常特定的格式，即可以保证当前文档中凡是具有这个格式的文本，都是需要提取索引的文本。

如果楼主感兴趣的话，可以补充提问或者和我联系，并请告知Word版本号。 _______________________补充：下列VBA代码可以自动为当前文档中的所有红色文字建立索引条目，并在当前光标位置处插入带文字条目以及对应页码的索引表：Option ExplicitSub () Dim oSaveSelection As Range Set oSaveSelection = Selection.Range Selection.StartOf wdStory Selection.Find.ClearFormatting Selection.Find.Font.Color = wdColorRed ' 在这里可以设置更多的匹配格式，如字体、字号等 While Selection.Find.Execute(FindText:="", Forward:=True, Format:=True) ActiveDocument.Indexes.MarkEntry(Selection.Range, Selection.Range.Text).Select Selection.Collapse wdCollapseEnd Wend oSaveSelection.Select ActiveDocument.Indexes.Add Selection.Range MsgBox "完成！"End Sub如果楼主对于这个代码生成的索引表样式不太满意，也没关系。

因为现在所有索引条目已经建好，所以只需把自动生成的索引表删除后用Word自己的“插入-引用-索引和目录”命令来重新生成符合自己要求样式的索引表即可。

4.Word里在标题不分明的文档中如何提取目录

1.在[格式]中选[样式与格式]

2. 出现一条“样式格式”栏，这里面主要就是用到标题1，标题2，标题3。把标题1，标题2，标题3分别应用到文中各个章节的标题上。标题1，标题2，标题3的属性（如字体大小，居中，加粗，等等）可以自行修改的。修改方法：右键点击“标题1”选“修改”，会弹出修改菜单，您可以根据自己的要求自行修改。

4.用标题1,2,3分别去定义文中的每一章节。定义时很方便，只要把光标点到“第一章制冷概论”上，然后用鼠标左键点一下右边的标题1，就定义好了；同样方法用标题2,3定义1.1;1.1.1；依此类推，第二章，第三章也这样定义，直到全文节尾。

5.当都定义好后，我们就可以生成目录了。把光标移到文章最开头你要插入目录的空白位置，选[插入]--[引用]--[索引和目录]，.选第二个选项卡[目录]，然后点右下的确定。就OK了。

6.当你重新修改文章内容后，你需要更新一下目录，方法是：在目录区域内，点右键，选[更新域]，当选[更新域]后，会出现上图的选框，选第二个“更新整个目录”点确定。就OK了。

其实网上可以查到的，百度里就有，配有插图，很好学。

更多的word相关 问题到