正文

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

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

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

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

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

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

本文目錄:

word如何一頁生成一個文檔
如何生成word文檔

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

word如何一頁生成一個文檔

1、在Word里面打開那個需要分割的文檔（假設(shè)它的文件名叫做“原始文檔.doc”）；
鍵入ALT+F11打開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代表其對應(yīng)原始文檔中的第幾頁）的文檔，檢查它們的內(nèi)容是否就對應(yīng)于原始文檔每個頁面的內(nèi)容。
如文檔中有分節(jié)符分解后的文檔會出現(xiàn)空白頁，如要分解后不出現(xiàn)空白頁，需要把文檔中的分節(jié)符刪除。消除分節(jié)符的方法：
注意事項
分節(jié)符若全部替換，要注意替換后文檔可能會出現(xiàn)排版混亂，這則需要自己手動排版了。

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