精华内容
下载资源
问答
  • 要将word文档的每页单独保存为一个word文档,首先需要能够逐页遍历word文档。 逐页遍历word文档可以使用word的定位功能。 代码如下: Sub SplitToOnePage() Const wdNumberOfPagesInDocument = 4 Const ...

     要将word文档的每页单独保存为一个word文档,首先需要能够逐页遍历word文档。

    逐页遍历word文档可以使用word的定位功能。

    代码如下:

    Sub SplitToOnePage()
        Const wdNumberOfPagesInDocument = 4
        Const wdGoToPage = 1
        Const wdGoToAbsolute = 1
        Dim oDoc As Document
        Dim oRng As Range
        Dim oDocTemp As Document
        Set oDoc = Word.ActiveDocument
        Dim sPath As String
        sPath = Word.ActiveDocument.Path
        Dim iPageNo As Long
        '获取总页数
        With oDoc
        iPageNo = .Range.Information(wdNumberOfPagesInDocument)
            For I = 1 To iPageNo
                '定位到页开始
                Set oRng = .GoTo(wdGoToPage, Which:=wdGoToAbsolute, Count:=I)
                oRng.Select
                '定位整个页面区域
                oRng.SetRange oRng.Start, oRng.Bookmarks("\page").End
                oRng.Copy
                Set oDocTemp = Word.Documents.Add
                With oDocTemp.Application.Selection
                    .Paste
                End With
                oDocTemp.SaveAs2 sPath & "\" & I & ".docx"
                oDocTemp.Close
            Next I
        End With
    End Sub
    =====================================
    可以保存任何内容
    
    Option Explicit
    
    Sub SplitPagesAsDocuments()
    	Dim oSrcDoc As Document
    	Dim oNewDoc As Document
    	Dim strSrcName As String
    	Dim 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 "结束!"
    End Sub
    ==========================================
    可以保存任何内容
    
    Sub QQ1722187970()
        Const wdNumberOfPagesInDocument = 4
        Const wdGoToPage = 1
        Const wdGoToAbsolute = 1
        Dim oDoc As Document
        Dim oRng As Range
        Dim oDocTemp As Document
        Set oDoc = Word.ActiveDocument
        Dim sPath As String
        sPath = Word.ActiveDocument.Path
        Dim iPageNo As Long
        '获取总页数
        With oDoc
        iPageNo = .Range.Information(wdNumberOfPagesInDocument)
            For I = 1 To iPageNo
                '定位到页开始
                Set oRng = .GoTo(wdGoToPage, Which:=wdGoToAbsolute, Count:=I)
                oRng.Select
                '定位整个页面区域
                oRng.SetRange oRng.Start, oRng.Bookmarks("\page").End
                oRng.Copy
                Set oDocTemp = Word.Documents.Add
                With oDocTemp.Application.Selection
                    .Paste
                End With
                oDocTemp.SaveAs2 sPath & "\" & I & ".docx"
                oDocTemp.Close
            Next I
        End With
    End Sub
    ===========================================
    只能保存文字 
    Option Explicit
    
    Sub SaveParagraph()
    	Dim i As Integer
    	Dim PageNo As Integer
    	Dim aDoc As Document
    	Dim myDoc As Document
    	Dim sPage As String
    	Set myDoc              = ThisDocument
    	'文档视图设定为页面方式
    	ActiveWindow.View.Type = wdPageView
    	myDoc.Repaginate
    	'获得文档页数并赋值给变量 PageNo
    	PageNo = myDoc.BuiltInDocumentProperties(wdPropertyPages)
    
    	For i = 1 To PageNo
    		myDoc.Activate
    		' 光标移动到文档某一页的开始
    		Selection.GoTo What: = wdGoToPage, Which: = wdGoToNext, Name: = i
    		' 全选文档某一页的所有内容
    		Selection.EndKey Unit: = wdStory, Extend: = wdExtend
    		sPage = Selection.Text
    		'保存到一个文件中
    		Set aDoc = Documents.Add
    		aDoc.Content.Text = sPage
    		aDoc.SaveAs FileName: = "c:\" & CInt(i) & ".doc"
    		aDoc.Close
    	Next
    
    End Sub
    

    word中怎样把不同颜色的下划线文字变成对应的颜色

    展开全文
  • WORD文档拆分成单独的文件

    万次阅读 2016-07-14 15:06:46
    Const nSteps = 200 ' 修改这里控制隔几分割一次 Set fso = CreateObject("Scripting.FileSystemObject") Set oSrcDoc = ActiveDocument Set oRange = oSrcDoc.Content nTotalPages = ...
    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 "结束!"

    End Sub



    二、指定页拆分

    不过那个是按单页拆分的。如果想按照指定页数拆分,请使用下面的代码,其它步骤和原来那个方案相同。

    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("Scripting.FileSystemObject")
    Set oSrcDoc = ActiveDocument
    Set oRange = oSrcDoc.Content

    nTotalPages = ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
    oRange.Collapse wdCollapseStart
    oRange.Select
    For nIndex = 1 To nTotalPages Step nSteps
    Set oNewDoc = Documents.Add
    If nIndex + nSteps > nTotalPages Then
    nBound = nTotalPages
    Else
    nBound = nIndex + nSteps - 1
    End If
    For nSubIndex = nIndex To nBound
    oSrcDoc.Activate
    oSrcDoc.Bookmarks("\page").Range.Copy
    oSrcDoc.Windows(1).Activate
    Application.Browser.Target = wdBrowsePage
    Application.Browser.Next

    oNewDoc.Activate
    oNewDoc.Windows(1).Selection.Paste
    Next nSubIndex
    strSrcName = oSrcDoc.FullName
    strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
    fso.GetBaseName(strSrcName) & "_" & (nIndex \ nSteps + 1) & "." & fso.GetExtensionName(strSrcName))
    oNewDoc.SaveAs strNewName
    oNewDoc.Close False
    Next nIndex
    Set oNewDoc = Nothing
    Set oRange = Nothing
    Set oSrcDoc = Nothing
    Set fso = Nothing
    MsgBox "结束!"
    End Sub

    第二种方法
    Option Explicit
     Sub SaveParagraph()
     Dim i As Integer, PageNo As Integer
     Dim aDoc As Document
     Dim myDoc As Document
     Dim sPage As String

    Set myDoc = ThisDocument
    '文 档 视 图 设 定 为 页 面 方 式
    ActiveWindow.View.Type = wdPageView
     myDoc.Repaginate

     '获 得 文 档 页 数 并 赋 值 给 变 量 PageNo
     PageNo = myDoc.BuiltInDocumentProperties(wdPropertyPages)
    For i = 1 To PageNo
     myDoc.Activate
     ' 光 标 移 动 到 文 档 某一 页 的 开 始
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i
     ' 全 选 文 档某一 页 的 所 有 内 容
    Selection.EndKey Unit:=wdStory, Extend:=wdExtend
     sPage = Selection.Text
     '保存到一个文件中
    Set aDoc = Documents.Add
     aDoc.Content.Text = sPage
     aDoc.SaveAs FileName:="c:\" & CInt(i) & ".doc"
     aDoc.Close
     Next


    其它方法

     

    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 "结束!"

    End Sub

    Sub SaveAsFileByPage()
     

    Dim objShell As Object, objFolder As Object, strNameLenth As Integer
     
    Dim mySelection As Selection, myFolder As String, myArray() As String
     
    Dim ThisDoc As Document, myDoc As Document, strName As String, N As Integer
     
    Dim myRange As Range, PageString As String, pgOrientation As WdOrientation
     
    Dim sinLeft As Single, sinRight As Single, sinTop As Single, sinBottom As Single
     
    Dim ErrChar() As Variant, oChar As Variant, sinStart As Single, sinEnd As Single
     
    Const myMsgTitle As String = "豆芽网"
     
    Dim vbYN As VbMsgBoxResult
     
    sinStart = Timer
     
    On Error GoTo ErrHandle
     
    'get path startpoint
    Set objShell = CreateObject("Shell.Application")
     
    Set objFolder = objShell.BrowseForFolder(0, "请选择一个文件夹", 0, 0)
     
    If objFolder Is Nothing Then Exit Sub
     
    myFolder = objFolder.Self.Path & "\"
     
    Set objFolder = Nothing: Set objShell = Nothing
     
    'get path endpoint

    Set ThisDoc = ActiveDocument
     
    Set mySelection = ThisDoc.ActiveWindow.Selection
     
    '===========
    ErrChar = Array("\", "/", ":", "*", "?", """", "<", ">", "|")
     
    For N = 0 To 31
     
    ReDim Preserve ErrChar(UBound(ErrChar) + 1)
     
    ErrChar(UBound(ErrChar)) = Chr(N)
     
    Next

    '=============== the above code fillin Array ErrChar with space


     
    strNameLenth = Val(VBA.InputBox(prompt:="请输入您需要设置的文件名长度,0或者取消将自动命名!", Title:=myMsgTitle, Default:=10))
     
    If strNameLenth > 255 Then strNameLenth = 0
     
    '====the above to get filename limits

    vbYN = MsgBox("是否需要处理页尾的分隔符(分页符/分节符)?它可能会影响文档结构.", vbYesNo + vbInformation + vbDefaultButton2, myMsgTitle)
     
    Application.ScreenUpdating = False
     
    '=============================
    For N = 1 To mySelection.Information(wdNumberOfPagesInDocument)
     

    '------- the above is to go through all pages

    mySelection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=N
     
    Set myRange = ThisDoc.Bookmarks("\PAGE").Range

    '--------------
     
    If vbYN = vbYes And VBA.Asc(myRange.Characters.Last.Text) = 12 Then myRange.SetRange myRange.Start, myRange.End - 1

    '------------------------------- the above is to treat division marker
    myArray = VBA.Split(myRange.Text, Chr(13))
     
    PageString = VBA.Join(myArray, "")
    '--------to use space marker replace paragraph marker
     
    With myRange.Sections(1).PageSetup
     
    sinLeft = .LeftMargin
     
    sinRight = .RightMargin
     
    sinTop = .TopMargin
     
    sinBottom = .BottomMargin
     
    pgOrientation = .Orientation
     
    End With

    '----------the above is to redefine page layout
     
    For Each oChar In ErrChar
     
    PageString = VBA.Replace(PageString, oChar, "")
     
    Next
    '------------- the above is to replace errchar in pagestring with space marker
     
    If strNameLenth = 0 Then
     
    strName = ThisDoc.Name
     
    strName = VBA.Replace(LCase(strName), ".doc", "")

    'the above is to replace filename extension with space
     
    strName = strName & "_" & N
     
    Else
     
    strName = VBA.Left(PageString, strNameLenth)
     
    End If

    'the above is a filename pretreatment. use  block-if-code to response inputbox decision at front part.
     
    strName = strName & ".doc"
    '---- the above is to build up filename to saveas
    '=== in face from Set myRange = ThisDoc.Bookmarks("\PAGE").Range to here is all pretreatment
     
    myRange.Copy
     
    '-------------
    Set myDoc = Documents.Add(Visible:=False)
     
    With myDoc
     
    .Content.Paste
     
    .Content.Paragraphs.Last.Range.Delete
     

    '-------------
     
     
    With .PageSetup
     
    .Orientation = pgOrientation
     
    .LeftMargin = sinLeft
     
    .RightMargin = sinRight
     
    .TopMargin = sinTop
     
    .BottomMargin = sinBottom
     
    End With
    '----------------------

     
    If VBA.Dir(myFolder & strName, vbDirectory) <> "" Then strName = "Page_" & N & ".doc"


    '-------------- the above is to avoid filename exist
     
    .SaveAs myFolder & strName
     
    .Close
     
    End With

    '--------------
     
    Next

    ' this next is to go through all paragraphs


     
    ThisDoc.Characters(1).Copy
     
    Application.ScreenUpdating = True
     
    sinEnd = Timer
     
    'If MsgBox("分页保存结束,用时:" & sinEnd - sinStart & "秒,是否打开指定文件夹查看分页保存后的文档情况?", vbYesNo, myMsgTitle) = vbYes Then ThisDoc.FollowHyperlink myFolder
     
    Exit Sub
     
    ErrHandle:
     
    MsgBox "错误号:" & Err.Number & vbLf & "出错原因:" & Err.Description, myMsgTitle
     
    Err.Clear
     
    Application.ScreenUpdating = True
     
    End Sub
    展开全文
  • 如何将一个word文档按分割成多个word文档,很有参考价值
  • 时常,我们会把图片加入到word中,但是将word文件与其他人分享之后,却发现朋友们想从word中再把图片“扣出来”是一件...在word中本身是不提供保存word中的图片功能。不知微软的Office为何不支持这一点,或许是他的...

    时常,我们会把图片加入到word中,但是将word文件与其他人分享之后,却发现朋友们想从word中再把图片“扣出来”是一件非常困难的事情。有些影友打开文件后选中图片,右键点击然后选择复制,再存储到文件夹中。但这样做并不能将原图复制出来,而是只保存了一个“片段”文件,双击这个片段打开还是word文档。在word中本身是不提供保存word中的图片功能。不知微软的Office为何不支持这一点,或许是他的一个失误吧。

    注:2010版word 直接在文档中图片上点击右键,选择另存为即可保存图片到指定的文件夹。若是旧版的则可以按以下步骤来保存图片。

    72195884_1.jpg

    最可靠的方法:另存HTML

    要提取word文档中的图片,最可靠的方法就是将包含图片的文档另存为一个Web文档,其中的图片将自动保存为图像文件。

    点击word软件菜单中的“文件”选项,选择“另存为”或“另存为网页”,弹出对话框后,点击最下面的“保存类型”下拉菜单,选择“网页”,此时还可单击对话框中的“工具→Web选项”,设置图片的分辨率等,点击确定。

    72195884_2.jpg

    这时在这个word文档所在的文件夹中会出现一个HTM文件和一个后缀名为“.files”的文件夹,我们所要保存的图片就都在这个“.files”的文件夹中了,在这个文件夹中生成多个PNG、JPG或GIF格式的图片文件,其中PNG图片质量最好,JPG图片质量稍次,若图片在256色以下则保存为GIF格式。

    72195884_3.jpg

    需要注意的是:“.files”文件夹中每幅图片都会出现一大一小两个尺寸不同的图片文件,这是因为word文档在显示的时候会自动保存一个缩略图,这个缩略图的尺寸会根据word文档中最终显示照片的尺寸来保存,因此要选择“.files”文件里大尺寸的文件,才是我们想保留的原始图片。同理,在PPT文件中提取保存照片是同样的操作。

    当一个word或PPT文件中有许多页面,我们只需提取其中某一页的图片时,也可以先把这一页单独拷贝成一个word或PPT文件,再按上述方法操作,这样可以减少后期从“.files”文件中查找原图的麻烦。

    该方法对图片的还原效果非常好。此方法除对文档中插入的图片有效外,还可以将其它图形和对象提取为图像文件,如自选图形、艺术字、文本框、组织结构图和图表对象等。

    但是这个方法有一个弊端,那就是需要将整个文档转成html格式,如果这个文件比较大,那可是有得转换了。并且,这样做是把整个文档都转换了,如果只想保存其中的几个图片,这种方法就不太适合了。

    最笨拙的方法:屏幕拷贝

    在word文档中调整视图比例,使图片尽量大而清晰,再按下键盘右上角的“Print Screen”键进行屏幕拷贝,然后启动“画图”或Photoshop等图像编辑软件,新建一个文件后“粘贴”进去,经过裁边等修正后,保存为一个图像文件即可。

    这种方法最后得到的图片效果比较理想,与在Office中的显示效果一致,缺点是操作比较繁琐。

    使用截图工具,将要保存的图片截个图。这种方法优点很明显,那就是我需要哪张图,就截哪张图,不用管word文档的其它部分。

    打开word,找到需要的图片,右键单击图片,选择“复制”命令,或者使用以上所谓的截图。切换到QQ聊天对话框,单击右键选择“粘贴”命令,右键点击图片,选择另存为,将图片保存即可。

    其缺点有两个:

    第一是需要有专门的截图工具或是利用QQ的截图功能,而一般人都不会有或要登录QQ才可;

    第二是可能使得图片尺寸变小。

    最实用的方法:用PowerPoint保存图片(保存Word文档中图片而不失真)

    一种最简单、最方便并且效果最好的保存word中图片的方法,PowerPoint 2002有一个新增功能,它可以把文档中的图片直接保存为图像文件。

    我们可以对word中的图片点击右键后选择“复制”,然后新打开一个ppt(一般来说,安装office的话,有 word就会有Powerpoint演示文稿ppt程序的),新建一个空白页,对着ppt中空白页点击“粘帖”。这个时候,你对着ppt中的图片点击右键,就会发现有一个“另存为图片”。然后你就可以保存这张图片啦!

    此方法非常快捷,保存后的图片效果也非常理想,能够完全保持word中图片的原有大小以及清晰度。

    推荐使用方法

    其实Word中提供了一个专门用于图片处理的工具——Microsoft Photo Editor,借助这个工具我们可以轻松地将插入Word文档中的图片单独保存,并可指定图片的格式。

    在Office 的“典型”安装方式下,Photo Editor并没有随Office工具一起安装,所以我们必须另外添加。

    插入Office安装光盘,自动运行后进入“Office 维护模式”,选择“添加或删除功能”,并在“更新功能”向导步骤中展开“Office 工具”列表,将Photo Editor设置成“从本机上运行”。

    安装完成后,重新打开Word,依次单击“工具→选项→编辑”,从下拉列表中选择Photo Editor,将它作为默认的图片处理工具。

    我们将Photo Editor设置成默认的图片编辑器,在Word文档中选定需要保存或转换的图片(以前没有使用“Microsoft Word”编辑过),从右键菜单中选择“编辑图片”,这时Word会自动调用Photo Editor将图片打开,从“文件”菜单下选择“另存为”命令,在弹出的对话框中我们可以选择保存图片的格式为GIF、JPG、BMP、TIF或者PNG,同时下方还有一个“高级”按钮,可以对图像转换时一些参数进行设置。

    最简单的方法:复制粘贴

    打开图片所在的word文档,选中图片,选择“复制”命令,然后打开制图工具,新建一个文档,然后“粘贴”到目标文档,再进行剪切即可。或者可以:

    鼠标右键点击图片进行复制,打开画图程序(或任何一款平面图片编辑软件都可以)并粘贴,在画图程序中点“文件”,选“另存为” 再在“保存类型”下拉列表中选“JPEG格式”或你想要的其它格式即可。

    右击图片-复制

    72195884_4.jpg

    打开画图工具-CTRL+V====保存

    该方法简单之至,但是得到的图片效果不能保证。

    若是在Office软件之间复制,如从Word复制到PowerPoint,则复制前后的图片效果完全一样;

    若是从Oword文档复制到其它软件中,比如从Word复制到Photoshop,则图片效果不甚理想。

    word文档中的图片如何保存到桌面(粘贴到桌面)

    打开word找到需要的图片,右键单击图片,选择“复制”命令。

    切换到桌面上单击右键选择“粘贴”命令,这时会弹出一个系统对话框,标题是“Active Desktop”,内容是“要将这些项目添加到Active Desktop中,需要保存图片的副本。是否继续?”。

    点击“是”选项。在弹出的对话框中,选择好生成图片后要保存的位置。

    点击“保存”选项。这时又会弹出一个对话框,问“是否将该Active Desktop项添加到您的桌面上?”,点击“否”就可以了。

    word中的图片怎么给另存(除了截图)

    word中已经插入进去的图片怎么以.jpg的形式另存起来?别人发给我的word,现在我需要里面的一个照片,怎么给弄出来?

    首先,在word文档中单击要保存的图片,然后复制(可以右键-复制,也可以用快捷键Ctrl+C);

    第二步,在桌面新建一个画图文件,或者在开始—程序—附件中打开画图工具,然后黏贴,可以使用快捷键Ctrl+C,这时候画图工具中就有了我们需要保存的图片了;

    最后,将图片保存到想要存放的位置就可以了。

    展开全文
  • 马上要开工了,为了做好新冠肺炎疫情防控,各个小区的管理非常严格,除了要戴口罩、测量体温以外,还需要单位出具一份开工证明,作为办理小区出入通行证用,保安才会放...我们来算了一下,如果个人的信息拷贝需要1...

    马上要开工了,为了做好新冠肺炎疫情防控,各个小区的管理非常严格,除了要戴口罩、测量体温以外,还需要单位出具一份开工证明,作为办理小区出入通行证用,保安才会放你出入。

    当领导打电话让你帮公司的500名员工打印一份开工证明,并限期半天完成的时候。领导把模板发给你,一张A4纸,需要你分别把500名员工的姓名、性别、身份证号、岗位都一一填进去了,这事想想就让人崩溃。我们来算了一下,如果每个人的信息拷贝需要1分钟,就得干500分钟,天呐,没有大半天时间压根搞不定,关键是一个个复制,人数不多还好,这么多人,估计今晚是下不了班了。

    49f722bec9027ef4a3f9147a239d98dd.png

    但我们应该思考,凡是重复性的劳动,肯定有快速完成的技巧,WPS中“邮件合并”的技能,尝试着摸索了下,5分钟就完成了500人的开工证明,接下来直接打印就行了。

    具体操作如下(以个人常用的WPS文档为例):

    1、首先准备一份Excel表格,里面要包含员工的姓名、性别、身份证号、工作岗位信息,也就是Word表格里需要填写的内容。

    c6aa71437de07901171b3f02272105c1.png

    这很简单,HR手里都有这方面的信息。做一个这样的表格,重命名为“人员信息”,或者随便什么名字都行,只要你知道这个文档在哪里即可。

    d081eb165c1480bcb8ea7d38bc074d19.png

    (里面的信息仅做示例,随便乱写的,500个人也是同样制作)

    2、打开“开工证明”word文档,就是老板发给你的模板。

    点击“引用”,“邮件”选项在最右侧(微软的Office办公软件中,“邮件”一般在“引用”的右侧,自己找一找就行了),如下图:

    点击“打开数据源”:

    然后选中你桌面上的“人员信息”表格,显示如下对话框:

    53d297cde75fcae9ebd3ec7044ca2da2.png

    因为你的员工信息都在Sheet1当中,直接点击确定即可。

    3、把光标点击在文档中的姓名后的横线上,如下图:

    点击“插入合并域”

    d16fd31517a06ad1457f0c860b7731e7.png
    c26daa1eff41addc9c0d8c5a56c2a99f.png

    选中“姓名”,点击“插入”

    然后得出如下结果,带有小书名号样式的“姓名”

    5a1990bcb293edfb79601acfa4a04870.png

    按照同样的操作,搞定“性别”,“身份证号”,“工作岗位”,如下图

    977a32814d45a8863c0c423ca41b732d.png

    4、点击“邮件合并”下的“合并到新文档”功能,如下图:

    当然,如果你希望每个员工的开工证明都单独成为一个文档,可以选择“合并到不同新文档”,这里因为是统一打印,所以“合并到新文档”。

    弹出如下对话框,点击“确定”即可

    d9fbdb2b83a1c262868161dfc5ae5558.png

    开工证明就做好了,张三员工的信息自动填入了相应位置:

    39efed2c46113ee81ec55ea8f694d191.png

    李四等人的信息在文档后面也是自动生成,直接保存打印即可,完工。

    小伙伴们,一定要记住,当你接到一个重复性劳动的工作任务时,上网搜索一下批量完成的技巧,因为你遇到的问题,别人肯定早就遇到过。你只需要把你的问题清晰地描述出来,直接搜索即可。

    “邮件合并”的技巧还可以用在批量打印证书、各类通用证明上,感兴趣的小伙伴一定要收藏好这个技能。

    展开全文
  • 我们在使用Word的编辑文档的时候,如果需要在正文之前设置一些目录或者其他...设置方法如下:1、打开一个word文档,在要开始设置页码的那一前面设置光标,将光标设置到那一的最前面,如图所示,小编从第二开始...
  • word

    千次阅读 2020-12-23 22:23:41
    word里各级钢筋符号怎么打出来在word里各级钢筋符号怎么打出来 方法一 步骤1:在word中输入钢筋符号时,先在输入法里增加中文(简体)-内码 步骤2:(区位输入法),然后调用屏幕键盘,输入"10+空格"就可以找到字符的快捷键...
  • 这是一个可以将邮件合并操作的模板分割成单独文件批量保存word插件。 使用方法: 1. 加压splitMailMerge.rar 压缩包,运行压缩包里的 "注册控件.bat" 文件。 2. 在模板文档同目录下简历名称为 “分开” 的文件夹...
  • Python读取Word(.docx)正文信息的方法本文介绍用Python简单读取*.docx文件信息,一些python-word库就是对这种方法的扩展。介绍分两部分:Word(*.docx)文件简述Python提取Word信息Word(*.docx)文件简述大约在2008年...
  • excel转word后表格显示不全Excel插入word中,这样保存的全面的数据又能看到文字,领导比较喜欢看,那么有时excel显示不全是怎么回事呢?方法/步骤1、对于出现插入表格是这个形式的情况我们就要利用段落的间距来条整...
  • 有一个比复制样式表到个页面更好的办法:如果我们把样式表放进单独的文件,所有的页面都可以指向它。 要制作样式表文件,我们需要创建另一个空文本文件。你可以从编辑器里的文件菜单里选择“New” 来创建一个空的...
  • 有时候需要将一个word文档另存为一个word文档,如果手工操作,量大会累死人的。今天我们用VBA来实现批量自动处理。在文档的ThisDocument的代码中输入以下代码,然后执行Sub SaveParagraph() 即可: Option ...
  • word里目录怎么做才方便呢?有没有文字最佳排版格式??Word里面的目录做起来很方便呀,做成自动生成的就好了呀。成目录等功能的前提是正确使用“样式”,工具栏最左边的小方框注意了吗,平时是“正文”,下拉箭头有...
  • word表格怎么去边框线 word表格去边框线的方法word表格怎么去边框线 word表格去边框线的方法 Word表格怎么去边框?表格制作一般选用Microsoft Excel表格来制作工作需要的表格,但是Excel表格难以处理.因此,涉及数据的...
  • 原标题:聊聊python 办公自动化之 Word(中) 作者:星安果来源:AirPython(公众号)上一篇文章,对 Word 写入数据的一些常见操作进行了总结,详情请看聊聊python 办公自动化之 Word(上)。相比写入数据,读取数据同样很...
  • 一章的编号重新计算 简便的完成1-3 然而就是这么简单的要求,想要在word上着实不易 参考了网上无数的资料,似乎1-4总归会有几个不能满足 在疯狂的乱按word的按钮之后,总管有个看起来还不错的结果了 分享给...
  • 从HTML页面转换到MS Word 2003时,表格边框无法正确显示(Table borders don't display properly when converted from HTML page into MS Word 2003)我有一些复杂的设置。 我专注于为第三方系统编写的XSLT。 所有的...
  • Word 利用 vba 代码实现拆分文档页数

    千次阅读 2020-09-24 23:03:29
    Word使用VBA实现拆分文档页数实现步骤: 新建一个记事本,添加以下代码 Sub 利用VBA实现Word文档的拆分() On Error Resume Next Dim doc1 As Document, ...a = InputBox("请输入分割页数(默认隔1分割一次)",
  • Python实现分析当前文件夹里面所有的pdf或者Word形式简历,并且保存到Excel中 # -*- coding:utf-8 -*- #作者:公众号:湾区人工智能 #功能:实现分析pdf或者Word形式简历,并且保存到Excel中 #时间:2018年 ...
  • 推荐 Word、EXCEL必备工具箱

    千次阅读 2019-09-20 09:41:36
    增加了“拆分非合并单元格”选项,可以将一个单元格中有多行数据的这种单元格拆分成多个单元格(通过插入行来),这样行数据存放在一个单独的单元格中。 3、汇总工具→分割文档,在勾选不保留公式的情况下,部分...
  • python合并word

    2020-12-29 07:54:32
    要求:个文件合并时,均从从一个新页面开始,文件之间的内容不连在一起。文件的样式不发生改变。2 方案采用python实现,使用python中的python-docx和docxcompose结合的方式来实现此功能。优点:跨平台,不依赖...
  • 例如,您可能需要为Word文档中的个页面,个部分或页面集合创建一个单独的文档。为了自动进行文档拆分,本文介绍了如何使用Java以编程方式拆分MS Word文档。以下各节提供了上述拆分条件的分步教程和代码示例。 ...
  • 计算机操作基础Word练习题《计算机操作基础》Word练习题一、判断题:1. 用“插入”菜单中的“符号”命令可以插入符号和其他特殊字符。 2. 用“格式”菜单中的“字体”命令可以设置字体颜色、字间距。 3. 在WORD中,...
  • excel另存为pdf,保存类型里怎么添加Pdf型式?新版本的直接里面就有这个选项,老版本的可以在网上搜索Excel转pdf插件即可(有pdf虚拟打印机的也可以直接选择打印成pdf,不需要安装插件)。为什么excel不能另存为pdf1....
  • 如何保存Word中的图片

    千次阅读 2014-02-26 14:11:16
    很多影友在看到word文档或PPT文件中有好图片希望单独保留时,不知道如何将里面的照片提取出来。其实这个过程很简单。   有些影友打开文件后选中图片,右键点击然后选择复制,再存储到文件夹中。但这样做并不能将原...
  • 回答:插入公式后,将公式单独放在一个段落,在公式上点击右键,选择“设置对象格式|版式”为嵌入型(Word默认)。光标放在公式之后,不要(注意是“不要”)选中公式,在“插入|引用”菜单选“题注”(2007中是引用-插入...
  • 用Python将Word中的内容写入Excel

    万次阅读 2017-08-27 13:06:49
    python-docx读取Word的库 官网:http://python-docx.readthedocs.io/en/latest/ 读取Excel的库:xlrd 写入Excel的库:xlwt 两者的帮助库:xlutils 官网:http://www.python-excel.org/ 上面是操作xls文件的库...
  • Word板书设计怎么写

    2021-07-26 05:00:43
    1 回答 2021-02-02 浏览:7 分类:办公入门 回答: d 2003打印文件,文件上已经有个号码,我打印在Word里面无法这样自动加码的。但在Excel里面就行 2 回答 2021-04-25 浏览:18 分类:办公入门 回答: 工具/材料...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 21,969
精华内容 8,787
关键字:

word每页单独保存