正文

word內(nèi)容庫(kù)生成文檔（word內(nèi)容庫(kù)生成文檔怎么操作）

發(fā)布時(shí)間：2023-05-22 06:36:32 稿源：創(chuàng)意嶺閱讀： 150

大家好！今天讓創(chuàng)意嶺的小編來(lái)大家介紹下關(guān)于word內(nèi)容庫(kù)生成文檔的問(wèn)題，以下是小編對(duì)此問(wèn)題的歸納整理，讓我們一起來(lái)看看吧。

開(kāi)始之前先推薦一個(gè)非常厲害的Ai人工智能工具，一鍵生成原創(chuàng)文章、方案、文案、工作計(jì)劃、工作報(bào)告、論文、代碼、作文、做題和對(duì)話答疑等等

只需要輸入關(guān)鍵詞，就能返回你想要的內(nèi)容，有小程序、在線網(wǎng)頁(yè)版、PC客戶端和批量生成器

官網(wǎng)：https://ai.de1919.com。

本文目錄:

word如何一頁(yè)生成一個(gè)文檔
如何生成word文檔

word內(nèi)容庫(kù)生成文檔（word內(nèi)容庫(kù)生成文檔怎么操作）

word如何一頁(yè)生成一個(gè)文檔

1、在Word里面打開(kāi)那個(gè)需要分割的文檔（假設(shè)它的文件名叫做“原始文檔.doc”）；
鍵入ALT+F11打開(kāi)VBA編輯器，選擇菜單“插入-模塊”；
粘貼下面的代碼：
Option Explicit
Sub SplitPagesAsDocuments()
Dim oSrcDoc As Document, oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim oRange As Range
Dim nIndex As Integer
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set oSrcDoc = ActiveDocument
Set oRange = oSrcDoc.Content
oRange.Collapse wdCollapseStart
oRange.Select
For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
oSrcDoc.Bookmarks("\page").Range.Copy
oSrcDoc.Windows(1).Activate
Application.Browser.Target = wdBrowsePage
Application.Browser.Next

strSrcName = oSrcDoc.FullName
strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))
Set oNewDoc = Documents.Add
Selection.Paste
oNewDoc.SaveAs strNewName
oNewDoc.Close False
Next
Set oNewDoc = Nothing
Set oRange = Nothing
Set oSrcDoc = Nothing
Set fso = Nothing
MsgBox "結(jié)束！"
End Sub
鍵入F5運(yùn)行，看到“完成！”結(jié)束。
2、檢查當(dāng)前文檔所在路徑下是否生成若干名為“原始文檔_n.doc”（n代表其對(duì)應(yīng)原始文檔中的第幾頁(yè)）的文檔，檢查它們的內(nèi)容是否就對(duì)應(yīng)于原始文檔每個(gè)頁(yè)面的內(nèi)容。
如文檔中有分節(jié)符分解后的文檔會(huì)出現(xiàn)空白頁(yè)，如要分解后不出現(xiàn)空白頁(yè)，需要把文檔中的分節(jié)符刪除。消除分節(jié)符的方法：
注意事項(xiàng)
分節(jié)符若全部替換，要注意替換后文檔可能會(huì)出現(xiàn)排版混亂，這則需要自己手動(dòng)排版了。

word內(nèi)容庫(kù)生成文檔（word內(nèi)容庫(kù)生成文檔怎么操作）