2、在需要分隔的文字中间插入Tab键。(点击文字中间的间隔,再点击Tab键)
3、在所有间隔中插入Tab键后,选中需要对齐的内容。
4、点击工具栏上的视图,然后点击标尺。
5、把鼠标移到标尺数字下的刻度位置,拖动标尺对第一列数字进行对齐,对齐后松开标尺。
6、对第二列以及后面几列的数字用同样的方式拖动标尺进行对齐。
7、这时我们对某个文字进行修改,其他文字的位置是不变的。将多页文档拆分为单页或多页:
1、在Word里面打开那个需要分割的文档(假设它的文件名叫做“原始文档doc”);
2、键入ALT+F11打开VBA编辑器,选择菜单“插入-模块”;
3、粘贴下面的代码:
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("ScriptingFileSystemObject")
Set oSrcDoc = ActiveDocument
Set oRange = oSrcDocContent
oRangeCollapse wdCollapseStart
oRangeSelect
For nIndex = 1 To ActiveDocumentContentInformation(wdNumberOfPagesInDocument)
oSrcDocBookmarks("\page")RangeCopy
oSrcDocWindows(1)Activate
ApplicationBrowserTarget = wdBrowsePage
ApplicationBrowserNext
strSrcName = oSrcDocFullName
strNewName = fsoBuildPath(fsoGetParentFolderName(strSrcName), _
fsoGetBaseName(strSrcName) & "_" & nIndex & "" & fsoGetExtensionName(strSrcName))
Set oNewDoc = DocumentsAdd
SelectionPaste
oNewDocSaveAs strNewName
oNewDocClose False
Next
Set oNewDoc = Nothing
Set oRange = Nothing
Set oSrcDoc = Nothing
Set fso = Nothing
MsgBox "结束!"
End Sub
4、键入F5运行,看到“完成!”结束。
5、检查当前文档所在路径下是否生成若干名为“原始文档_ndoc”(n代表其对应原始文档中的第几页)的文档,检查它们的内容是否就对应于原始文档每个页面的内容。
不过那个是按单页拆分的。如果想按照指定页数拆分,请使用下面的代码,其它步骤和原来那个方案相同。
Option Explicit
Sub SplitEveryFivePagesAsDocuments()
Dim oSrcDoc As Document, oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim oRange As Range
Dim nIndex As Integer, nSubIndex As Integer, nTotalPages As Integer, nBound As Integer
Dim fso As Object
Const nSteps = 200 ' 修改这里控制每隔几页分割一次
Set fso = CreateObject("ScriptingFileSystemObject")
Set oSrcDoc = ActiveDocument
Set oRange = oSrcDocContent
nTotalPages = ActiveDocumentContentInformation(wdNumberOfPagesInDocument)
oRangeCollapse wdCollapseStart
oRangeSelect
For nIndex = 1 To nTotalPages Step nSteps
Set oNewDoc = DocumentsAdd
If nIndex + nSteps > nTotalPages Then
nBound = nTotalPages
Else
nBound = nIndex + nSteps - 1
End If
For nSubIndex = nIndex To nBound
oSrcDocActivate
oSrcDocBookmarks("\page")RangeCopy
oSrcDocWindows(1)Activate
ApplicationBrowserTarget = wdBrowsePage
ApplicationBrowserNext
oNewDocActivate
oNewDocWindows(1)SelectionPaste
Next nSubIndex
strSrcName = oSrcDocFullName
strNewName = fsoBuildPath(fsoGetParentFolderName(strSrcName), _
fsoGetBaseName(strSrcName) & "_" & (nIndex \ nSteps + 1) & "" & fsoGetExtensionName(strSrcName))
oNewDocSaveAs strNewName
oNewDocClose False
Next nIndex
Set oNewDoc = Nothing
Set oRange = Nothing
Set oSrcDoc = Nothing
Set fso = Nothing
MsgBox "结束!"
End Sub如果是office2007或2010的话:
假设有1docx,2docx,3docx三个文件,打开1docx,把光标定位在文档最后。
打开“插入”功能区选项卡,在选项卡的“文本”功能组找到“对象”,点旁边的小三角,选“文件中的文字”,然后在d出窗口中同时选择2docx和3docx
有很多个
word
文档,想把它们合并到一个文档中,但是复制粘贴太慢了,下面介绍一个简单的方法给大家
首先将要合并的多个
word
文档存放到同一个文件夹中,然后新建一个空白文档,在菜单中选择插入
→
文件,在d出的插入文件窗口中选择上述文件夹,然后用鼠标拖动选择全部文件(或者使用
ctrl+a
快捷键),最后单击插入按钮即可完成所有文档的合并。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)