精华内容
下载资源
问答
  • 利用Word宏功能实现文件版本号及相关内容自动更新,最初版。 实现功能:通过Word文件自定义属性结合域和宏实现自动更新文件相关信息,包括: 通过InputBox输入作者/核查/更新日期; 通过文件名获取文档编码和文件...

    利用Word宏功能实现文件版本号及相关内容自动更新,最初版。

    实现功能:通过Word文件自定义属性结合域和宏实现自动更新文件相关信息,包括:

    通过InputBox输入作者/核查/更新日期;

    通过文件名获取文档编码和文件版本号。

    另外通过几个自定义宏可以实现快速域插入以及文档特殊标记符号的显示和隐藏。

    Attribute VB_Name = "Docu"
    Sub NS_New()
    '
    ' NS_New Macro
    ' Macro created 02/22/2012 by songv
    '
    ''''''''''''''''''''''''''''''''''''''''''''
    ''' Define variables  ''''''''''''''''''''''
    ''''''''''''''''''''''''''''''''''''''''''''
        Dim docuName, author, checker, issueNumber, updateInfo, date1 As String
        Dim result As Integer
    
    
    ''''''''''''''''''''''''''''''''''''''''''''
    ''' Initial variables  '''''''''''''''''''''
    ''''''''''''''''''''''''''''''''''''''''''''
        docuName = "DDXXXXxxxxExx"
        issueNumber = "00"
        On Error GoTo errHandler06
            author = ActiveDocument.CustomDocumentProperties("_Prepared/Modified")
        On Error GoTo errHandler07
            checker = ActiveDocument.CustomDocumentProperties("_Checked/Released")
        On Error GoTo errHandler08
            date1 = ActiveDocument.CustomDocumentProperties("_UpdateDate")
        result = 0
    ''''''''''''''''''''''''''''''''''''''''''''
    
    
    ''''''''''''''''''''''''''''''''''''''''''''
    ''' Get update information  ''''''''''''''''
    ''''''''''''''''''''''''''''''''''''''''''''
        On Error GoTo errHandler00
        '''get document name and issue number from file name, only valid for numbering system NEW
        '''for numbering system COPE and OLD, you should change 11 and 13 to correct number
        docuName = Left(ActiveDocument.Name, 11)
        issueNumber = Mid(ActiveDocument.Name, 13, 2)
        
        author = InputBox("Please input the author (prepared / modified)", "Input Author: ", author)
        '''StrPtr will check the variable address in memory,
        '''StrPtr(author) = 0 means it does not exist in memory, it is NULL.
        '''This confirms user pressed Cancel button.
        If author = "" And StrPtr(author) = 0 Then
            Exit Sub
        End If
        
        checker = InputBox("Please input the checker (checked / released)", "Input Checker: ", checker)
        If checker = "" And StrPtr(checker) = 0 Then
            Exit Sub
        End If
        
        date1 = InputBox("Please input the update date:", "Input Date: ", date1)
        If date1 = "" And StrPtr(date1) = 0 Then
            Exit Sub
        End If
    ''''''''''''''''''''''''''''''''''''''''''''
    
    
    ''''''''''''''''''''''''''''''''''''''''''''
    ''' Confirm update information  ''''''''''''
    ''''''''''''''''''''''''''''''''''''''''''''
        updateInfo = "Update information:" & vbCrLf & vbCrLf & _
            "Document name    " & vbTab & ":  " & docuName & vbCrLf & _
            "Issue number     " & vbTab & ":  " & issueNumber & vbCrLf & _
            "Prepared/modified" & vbTab & ":  " & author & vbCrLf & _
            "Checked/released " & vbTab & ":  " & checker & vbCrLf & _
            "Update date      " & vbTab & ":  " & date1 & vbCrLf & vbCrLf & vbCrLf & _
            "Please confirm to update the document."
    
        result = MsgBox(updateInfo, vbYesNo, "Confirm to update the document")
    
        If (result = 6) Then
            ''' Update custom properties
            On Error GoTo errHandler01
                ActiveDocument.CustomDocumentProperties("_DocuName") = docuName
            On Error GoTo errHandler02
                ActiveDocument.CustomDocumentProperties("_IssueNumber") = issueNumber
            On Error GoTo errHandler03
                ActiveDocument.CustomDocumentProperties("_Prepared/Modified") = author
            On Error GoTo errHandler04
                ActiveDocument.CustomDocumentProperties("_Checked/Released") = checker
            On Error GoTo errHandler05
                ActiveDocument.CustomDocumentProperties("_UpdateDate") = date1
            
            ''' resume error handler
            On Error GoTo errHandler00
    
            '''update all fields, for TOC field, this will only update page number.
            Dim aField As Field
            For Each aStory In ActiveDocument.StoryRanges
               For Each aField In aStory.Fields
                  aField.Update
               Next aField
            Next aStory
        End If
    
        Exit Sub
        
    errHandler00:
        MsgBox Err.Description
    
    ''''''''''''''''''''''''''''''''''''''''''''
    ''' Create custom properties '''''''''''''''
    ''''''''''''''''''''''''''''''''''''''''''''
    '''if custom properties cannot be updated(do not exist), create relevant properties
    errHandler01:
        ActiveDocument.CustomDocumentProperties.Add _
            Name:="_DocuName", LinkToContent:=False, Value:=docuName, _
            Type:=msoPropertyTypeString
        Resume Next
    errHandler02:
        ActiveDocument.CustomDocumentProperties.Add _
            Name:="_IssueNumber", LinkToContent:=False, Value:=issueNumber, _
            Type:=msoPropertyTypeString
        Resume Next
    errHandler03:
        ActiveDocument.CustomDocumentProperties.Add _
            Name:="_Prepared/Modified", LinkToContent:=False, Value:=author, _
            Type:=msoPropertyTypeString
        Resume Next
    errHandler04:
        ActiveDocument.CustomDocumentProperties.Add _
            Name:="_Checked/Released", LinkToContent:=False, Value:=checker, _
            Type:=msoPropertyTypeString
        Resume Next
    errHandler05:
        ActiveDocument.CustomDocumentProperties.Add _
            Name:="_UpdateDate", LinkToContent:=False, Value:=date1, _
            Type:=msoPropertyTypeString
        Resume Next
    ''''''''''''''''''''''''''''''''''''''''''''
    
    '''variable initializing when custom properties do not exist in current document
    errHandler06:
        author = "_AUTHOR_"
        Resume Next
    errHandler07:
        checker = "_CHECKER_"
        Resume Next
    errHandler08:
        date1 = Date
        Resume Next
    
    End Sub
    
    Sub NS_Cope()
    '
    ' NS_Cope Macro
    ' Macro created 02/22/2012 by songv
    '
    ''''''''''''''''''''''''''''''''''''''''''''
    ''' Define variables  ''''''''''''''''''''''
    ''''''''''''''''''''''''''''''''''''''''''''
        Dim docuName, author, checker, issueNumber, updateInfo, date1 As String
        Dim result As Integer
    
    
    ''''''''''''''''''''''''''''''''''''''''''''
    ''' Initial variables  '''''''''''''''''''''
    ''''''''''''''''''''''''''''''''''''''''''''
        docuName = "DDXXXXxxxxExx"
        issueNumber = "00"
        On Error GoTo errHandler06
            author = ActiveDocument.CustomDocumentProperties("_Prepared/Modified")
        On Error GoTo errHandler07
            checker = ActiveDocument.CustomDocumentProperties("_Checked/Released")
        On Error GoTo errHandler08
            date1 = ActiveDocument.CustomDocumentProperties("_UpdateDate")
        result = 0
    ''''''''''''''''''''''''''''''''''''''''''''
    
    
    ''''''''''''''''''''''''''''''''''''''''''''
    ''' Get update information  ''''''''''''''''
    ''''''''''''''''''''''''''''''''''''''''''''
        On Error GoTo errHandler00
        '''get document name and issue number from file name, only valid for numbering system COPE
        '''for numbering system NEW and OLD, you should change 13 and 15 to correct number
        docuName = Left(ActiveDocument.Name, 13)
        issueNumber = Mid(ActiveDocument.Name, 15, 2)
        
        author = InputBox("Please input the author (prepared / modified)", "Input Author: ", author)
        '''StrPtr will check the variable address in memory,
        '''StrPtr(author) = 0 means it does not exist in memory, it is NULL.
        '''This confirms user pressed Cancel button.
        If author = "" And StrPtr(author) = 0 Then
            Exit Sub
        End If
        
        checker = InputBox("Please input the checker (checked / released)", "Input Checker: ", checker)
        If checker = "" And StrPtr(checker) = 0 Then
            Exit Sub
        End If
        
        date1 = InputBox("Please input the update date:", "Input Date: ", date1)
        If date1 = "" And StrPtr(date1) = 0 Then
            Exit Sub
        End If
    ''''''''''''''''''''''''''''''''''''''''''''
    
    
    ''''''''''''''''''''''''''''''''''''''''''''
    ''' Confirm update information  ''''''''''''
    ''''''''''''''''''''''''''''''''''''''''''''
        updateInfo = "Update information:" & vbCrLf & vbCrLf & _
            "Document name    " & vbTab & ":  " & docuName & vbCrLf & _
            "Issue number     " & vbTab & ":  " & issueNumber & vbCrLf & _
            "Prepared/modified" & vbTab & ":  " & author & vbCrLf & _
            "Checked/released " & vbTab & ":  " & checker & vbCrLf & _
            "Update date      " & vbTab & ":  " & date1 & vbCrLf & vbCrLf & vbCrLf & _
            "Please confirm to update the document."
            
        result = MsgBox(updateInfo, vbYesNo, "Confirm to update the document")
    
        If (result = 6) Then
            ''' Update custom properties
            On Error GoTo errHandler01
                ActiveDocument.CustomDocumentProperties("_DocuName") = docuName
            On Error GoTo errHandler02
                ActiveDocument.CustomDocumentProperties("_IssueNumber") = issueNumber
            On Error GoTo errHandler03
                ActiveDocument.CustomDocumentProperties("_Prepared/Modified") = author
            On Error GoTo errHandler04
                ActiveDocument.CustomDocumentProperties("_Checked/Released") = checker
            On Error GoTo errHandler05
                ActiveDocument.CustomDocumentProperties("_UpdateDate") = date1
            
            ''' resume error handler
            On Error GoTo errHandler00
    
            '''update all fields, for TOC field, only update page number.
            Dim aField As Field
            For Each aStory In ActiveDocument.StoryRanges
               For Each aField In aStory.Fields
                  aField.Update
               Next aField
            Next aStory
        End If
    
        Exit Sub
        
    errHandler00:
        MsgBox Err.Description
    
    ''''''''''''''''''''''''''''''''''''''''''''
    ''' Create custom properties '''''''''''''''
    ''''''''''''''''''''''''''''''''''''''''''''
    '''if custom properties cannot be updated(do not exist), create relevant properties
    errHandler01:
        ActiveDocument.CustomDocumentProperties.Add _
            Name:="_DocuName", LinkToContent:=False, Value:=docuName, _
            Type:=msoPropertyTypeString
        Resume Next
    errHandler02:
        ActiveDocument.CustomDocumentProperties.Add _
            Name:="_IssueNumber", LinkToContent:=False, Value:=issueNumber, _
            Type:=msoPropertyTypeString
        Resume Next
    errHandler03:
        ActiveDocument.CustomDocumentProperties.Add _
            Name:="_Prepared/Modified", LinkToContent:=False, Value:=author, _
            Type:=msoPropertyTypeString
        Resume Next
    errHandler04:
        ActiveDocument.CustomDocumentProperties.Add _
            Name:="_Checked/Released", LinkToContent:=False, Value:=checker, _
            Type:=msoPropertyTypeString
        Resume Next
    errHandler05:
        ActiveDocument.CustomDocumentProperties.Add _
            Name:="_UpdateDate", LinkToContent:=False, Value:=date1, _
            Type:=msoPropertyTypeString
        Resume Next
    ''''''''''''''''''''''''''''''''''''''''''''
    
    '''variable initializing when custom properties do not exist in current document
    errHandler06:
        author = "_AUTHOR_"
        Resume Next
    errHandler07:
        checker = "_CHECKER_"
        Resume Next
    errHandler08:
        date1 = Date
        Resume Next
    
    End Sub
    Sub IssueNo()
    '
    ' InsertIssueNo Macro
    ' Macro recorded 02/22/2012 by songv
    '
        Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
            "DOCPROPERTY  _IssueNumber ", PreserveFormatting:=True
    End Sub
    Sub UpdateDate()
    '
    ' InsertUpdateDate Macro
    ' Macro recorded 02/22/2012 by songv
    '
        Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
            "DOCPROPERTY  _UpdateDate ", PreserveFormatting:=True
    End Sub
    Sub author()
    '
    ' InsertAuthor Macro
    ' Macro recorded 02/22/2012 by songv
    '
        Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
            "DOCPROPERTY  _Prepared/Modified ", PreserveFormatting:=True
    End Sub
    Sub checker()
    '
    ' InsertChecker Macro
    ' Macro recorded 02/22/2012 by songv
    '
        Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
            "DOCPROPERTY  _Checked/Released ", PreserveFormatting:=True
    End Sub
    Sub docuName()
    '
    ' InsertDocuName Macro
    ' Macro recorded 02/22/2012 by songv
    '
        Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
            "DOCPROPERTY  _DocuName ", PreserveFormatting:=True
    End Sub
    
    Sub ShowAll()
    '
    ' ShowAll Macro
    ' Macro created 02/29/2012 by songv
    '
        ActiveWindow.View.ShowAll = True
    End Sub
    Sub HideAll()
    '
    ' ShowAll Macro
    ' Macro created 02/29/2012 by songv
    '
        ActiveWindow.View.ShowAll = False
    End Sub
    


     

     

    展开全文
  • 常见的页眉页脚都是一些文字说明或者是数字页码,其实,Word2003中可以将文件名称和所在的路径插入到页眉页脚里面,而且是自动生成,无需我们手动输入。下面,带着大家感受一下。①首先启动Word2003,单击菜单栏--...
    常见的页眉页脚都是一些文字说明或者是数字页码,其实,Word2003中可以将文件名称和所在的路径插入到页眉页脚里面,而且是自动生成,无需我们手动输入。下面,带着大家感受一下。

    ①首先启动Word2003,单击菜单栏--视图--页眉和页脚。

    页眉和页脚

    ②将光标定位到页眉页脚里面,然后插入--自动图文集--文件名和路径。

    文件名和路径

    ③这时会在页眉页脚处自动生成文档名称以及文档所在路径,因为我是临时建立的文档,还没保存,所以并未显示路径。

    自动生成http://www.pdfgou.com/eb2pdf
    展开全文
  •  通过上学期的批改实践,我发现了上个版本中的一些错误,并进行了bug修正,修正版本如下: 0)由于脚本只能找出doc文档,所有提示符里去掉了要求输入扩展名,最好用“*实验*”找所有文件名中包含实验两...

    上学期我发过日志介绍了一个脚本程序,因为我上的《大学计算机文化二》课中学生上交的都是一个rar压缩包,里面有各种实验文件,包括实验报告,而最后我查看完内容后要将评分和评语写入实验报告,因此需要统一的把各自学生包中的实验报告抽取出来,集中批改。

           通过上学期的批改实践,我发现了上个版本中的一些错误,并进行了bug修正,修正版本如下:

    0)由于脚本只能找出doc文档,所有提示符里去掉了要求输入扩展名,最好用“*实验*”找所有文件名中包含实验两字的文档,不要加具体实验号,因为有些学生可能在这次课交上次课的实验报告。当然如果你能看懂这个脚本的话,自己修改成抽取其他类型文件也是容易的。

    图片

    1)上一版本,压缩文件所在文件夹名,路径名和压缩文件名不能带有空格或在桌面,这一版本已修正。

     

    2)由于脚本的内部运行机制,上一版本在压缩文件所在目录同时有其他doc文档时,会出错,这一版本提前将这些文件放进了创建doc子文件夹,然后解压出来的目标文档也在doc子文件夹里面。这样也带出了个程序的附带功能,就是能将本目录下的文档进行分类放入子目录,比如找出本文件夹下所有的名字中带“荷塘月色”的文档。

    图片

     

    3)这一版本增加了一功能,在发现有学生的压缩包里没有目标文档时,会将该压缩包复制到程序创建的notfound子目录下,便于我们事后检查,这些学生为什么没交实验报告,还是命名不规范,便于告知这些学生。

     

    4)文档最后增加了如下图的统计信息

    图片

    要应对的是如下图的,恰好学生的实验练习文档名也带有“实验”两字的情况,比如上图的39个压缩文件里找到了71个目标文档显然是不对的。

    图片

     

    5)上一版本没有递归查找很深的压缩包子目录里的目标文档,这一版本做了修正。

     

    6)可能一个压缩包里学生交1个以上的重名目标文档,这次对这些文档自动做了重命名,比如第二个重复文档名带“(1)”表示。

     

    程序已经上传到http://e.ys168.com/?wucccsk  下的“vbs和vba脚本”目录下,双击vbs脚本即可运行,也可以新建记事本,然后将下列源代码复制到文档中,选择另存,文件类型选择“所有文件”,文件名的扩展名为VBS。希望大家用的愉快,减轻工作负担,最后附上源码清单:

     

    filterstr=inputbox("请输入要解压的word文件,如 * 或者 *实验* 等",,"*实验*")
    if filterstr="" then WScript.Quit
    filterstr=filterstr & ".doc"
    nofoundstr=""
    rarcount=0
    doccount=0
    Set WshShell = WScript.CreateObject("WScript.Shell")
    rarpath=WshShell.Regread("HKLM/Software/Microsoft/Windows/CurrentVersion/Uninstall/Winrar archiver/UninstallString")
    lenstr=Instr(lcase(rarpath),"uninstall.exe")
    rarpath=Left(rarpath,lenstr-1) & "unrar.exe"
    rarpath=chr(34) & rarpath & chr(34)
    Set FSO = CreateObject("Scripting.FileSystemObject")
    CurrentDirectory=WshShell.CurrentDirectory
    Set myFolder=FSO.GetFolder(CurrentDirectory)
    Set myfiles=myFolder.Files
    myfilename=mid(wscript.scriptfullname,len(CurrentDirectory)+2)
    If fso.FolderExists(CurrentDirectory & "/doc") Then
       fso.DeleteFolder (CurrentDirectory & "/doc")
    End If
    fso.CreateFolder CurrentDirectory & "/doc"
    For Each myfile in myfiles
             if Instr(myfile.name,".doc")<>0 then
                       OldName=CurrentDirectory & "/" &  myfile.name
                       if Instr(myfile.name,"实验")<>0 then
                            NewName = CurrentDirectory & "/doc/" & myfile.name
                       else
                            If not fso.FolderExists(CurrentDirectory & "/otherdoc") Then
                                 fso.CreateFolder CurrentDirectory & "/otherdoc"
                            End If   
                            NewName = CurrentDirectory & "/otherdoc/" & myfile.name
                       end if
                       fso.movefile oldname,newname
             end if
    next
    newname=""
    oldname=""
    For Each myfile in myfiles
            if myfile.name<>myfilename and instr(myfile.name,".rar")<>0 then
             exestr=rarpath & " e -o+ -or -r -n"& filterstr & " """& CurrentDirectory & "/" & myfile.name & """"
             Wshshell.run  exestr,0,true
             Set submyfiles=myFolder.Files
             found=false
             For Each submyfile in submyfiles
               if Instr(submyfile,".doc") then
               OldName = CurrentDirectory &"/"& submyfile.name
               tempstr=left(myfile.name,len(myfile.name)-4)
               NewName = CurrentDirectory &"/doc/"& tempstr &"-"&  submyfile.name
               fso.movefile OldName,newname
               found=true
               doccount=doccount+1
               end if
             next
               if found then rarcount=rarcount+1
               if not found then
                    if nofoundstr="" then
                         If fso.FolderExists(CurrentDirectory & "/notfound") Then
                             fso.DeleteFolder (CurrentDirectory & "/notfound")
                         End If
                         fso.CreateFolder CurrentDirectory & "/notfound"
                    end if    
                    fso.copyfile CurrentDirectory & "/" & myfile.name,CurrentDirectory & "/notfound/" & myfile.name
                    nofoundstr=nofoundstr & " , " & myfile.name
               end if
             set submyfiles=nothing
            end if
    Next
    if nofoundstr<>"" then
                msgbox  nofoundstr & "中没有发现目标文档"
    end if
    set wshell=nothing
    set fso=nothing
    set myfolder=nothing
    set myfiles=nothing
    msgbox "从"& rarcount & "个压缩文件中找到了" & doccount &"个目标文档!"

    展开全文
  • 然后再新建一个word文档,在需要插入表格的地方,选择菜单:【插入(I)】-->【对象(O)...】-->出现对象对话框后,选择第二页【由文件创建(F)】-->【文件名(N)】的右边有【浏览(B)】,你可以从浏览找到你的exc
    如何在word中插入excel表格,并且表格要随着excel文件内容的跟新而更新,我今天简单测试了一下,很容易完成。现在说一下步骤:
      在首先之前,插入一句看似没用,实际上又很重要的话:我的office版本是office2003。
      首先,建立一个excel表格,里面随便输入一些内容。然后再新建一个word文档,在需要插入表格的地方,选择菜单:【插入(I)】-->【对象(O)...】-->出现对象对话框后,选择第二页【由文件创建(F)】-->【文件名(N)】的右边有【浏览(B)】,你可以从浏览找到你的excel文件,如果这里你点确定,直接excel文件里的内容就加到word里了,不过!!这样不会实时跟新,注意,右边还有个复选框【链接到文件(K)】,如果这里√的话,就可以达到我们预期的效果了,excel文件更新后,word文档里的内容也一起变动了。
      这样做法的好处:当然不用说,一起更新了,而且,你打开word文档后,双击excel表格区域,可以直接打开excel表格进行编辑,编辑结束后关闭excel,在word里的excel表格鼠标右击,选择【!更新链接(D)】就可以立即更新。而且每次打开word文档,也会有对话框问你是否要更新链接。
      这样做的坏处:就是每次打开文档都会弹出对话框需要决定是否更新,给一般用户感觉很麻烦,而且如果更新的话,每次关闭word文档都会询问你是否要保存。另一个坏处就是,如果excel文件内容巨大,那完蛋了,直接链接过来全部的excel文件,那可要忙死你了。下文我还会说一种更简单的链接方法。
      另外说一下注意要点:那个链接的excel文档不要删除,删除后就无法编辑或者更新里面的内容了,虽然最后保存的东西还在。经过简单测试,excel改文件名、移动等操作,都不会影响word文档的自动更新。
      如果大家有兴趣,可以试试在excel表格里插入能自动更新的word,其实操作方法基本相同。
      中午吃午饭的时候,又仔细考虑了一下,想到了之前这种通过【对象(O)...】菜单链接excel表格是链接全部,这其实不是我预期想要的效果,难道为了配合更新特地要建立一个小区域的excel文件?那又何苦呢?虽然我考虑到了,即使链接过来的全部excel文件,可以通过修改图片的方式,例如放大缩小、裁剪(在表格鼠标右键,选择【显示“图片”工具栏】可以找到操作按钮),但是后来我又发现了更高级的办法。听我慢慢道来……(远处飞来一只番茄,给我娴熟的躲过……)
      现在面临的是要在word文档里插入excel大表格的局部,其实很简单,打开excel,选中你要链接到word的区域,选择复制(快捷键ctrl+c,鼠标右键点【复制(C)】,通过菜单【编辑(E)】-->【复制(C)】三种方法都可以),然后打开word(注意!这里不要关闭excl),点菜单【编辑(E)】-->【选择性粘贴(S)...】-->出现的“选择性粘贴”对话框左边一定要选择【粘贴链接(L)】,否则就不会自动更新了,形式选择【Microsoft Office Excel 工作表 对象】,点确定。好了,现在就和之前的样子一样了,插入了一个“图片”格式的excel表格,和之前的区别就是,鼠标右击表格,选择【链接的 工作表 对象(O)】-->【链接(K)...】,这里出现的对话框,如果点击【更改源(N)...】,在出现的更改源对话框里,可以更改excel路径(废话),另外,在文件名(N)的右边多了一个【项目(E)...】点击可以改动excel表格中具体位置,比如Sheet1改成Sheet2,或者具体选择定位改动。不过一般原excel表格改动了还是直接复制粘贴一下比较好,用这种方法改动反而有些复杂了。
      不过呢,以上两种方法,链接过来的表格都是“图片”格式,这种方法其实和word文档里的表格相当不兼容,操作起来很不方便,经过我再一次的努力,我又发现了一种更好的方法。以上两种方法作废,大家不用学了。(远处又飞来一只鸡蛋,被我闪开……)
      好,和第二种方法一开始一样,打开excel,选中需要链接的表格,复制好,不要关闭,再在word里粘贴(快捷键ctrl+v,鼠标右键点【粘贴(P)】,通过菜单【编辑(E)】-->【粘贴(P)】三种方法都可以),然后注意,表格右下角会有一个【粘贴选项】图标就是“粘贴”的图标,对,点这个,选择【保留原格式并链接到 Excel(E)】或【匹配目标区域表格样式并链接到 Excel(L)】,其实这两个点完后结果基本相同,看到了吗?表格再也不是图片形式了,是word专用的那种表格形式,这样再通过word的表格操作,是不是更方便呢?而且表格的格式不会随着excel文件格式的改变而变动,word里的表格仅提取excel文件的数值。
    展开全文
  • word count

    2018-09-30 22:27:00
    实现对文件内容的单词、字符、行数的统计,并将结果输出到文件中,可以是用户指定的输入文件,也可以是程序自动生成的默认文件result,并且result和wc.exe同级 2.基本功能: wc.exe [选项...] [需要统计的文件名]...
  • word使用技巧大全

    热门讨论 2011-03-18 20:37:53
    三十六、自定义模板 自动生成指定的Word文件名 68 三十七、从头到脚完美:Word文档布局 69 三十八、文件夹的内容生成文件 70 三十九、参考文献的标注 70 1、如何在word文档中加进参考文献的标注 70 2、省时省力——...
  • 这样再在Word中单击“文件→打开”命令时,在打开对话框中的“文件类型”中就可以看到打开“WPSDOS导入”和“WPS文件”两个选项,分别对应DOS版的WPS文件和WPS97/WPS2000/WPSOffice文件,选中文件就可以在Word中...
  • 对于ui上显示的文件名,请使用固定宽度,这样主菜单项的位置就不会随其他文件而移动。 - 固定的。 现在,不带扩展名的文件名将被跳过,并且不会包含在“最近的文件”中。 - 固定的。 执行“转换为Abs / Rel Url”后...
  • 当用户点击工具栏上的添加按钮时弹出“文件路径选择对话框”,选择路径之后点“确认”按钮,系统会将次路径下的文件按照文件名后缀自动分成“Word文档”、“Excel文档”、“TXT文档”、“音频文档”、“视频文档”等...
  • xcopy.ZIP 一个类似于XCopy的程序(9KB) 6,shname.ZIP 获得Win9X文件的8.3文件名(2KB) 7,FileOP.ZIP 利用API函数对文件进行拷贝,移动,删除等操作(2KB) 8,RunShort.ZIP 自动利用与选中的文件...
  • oracle学习文档 笔记 全面 深刻 详细 通俗易懂 doc word格式 清晰 第一章 Oracle入门 一、 数据库概述 数据库(Database)是按照数据结构来组织、存储和管理数据的仓库,它产生于距今五十年前。简单来说是本身可视...
  • rtf格式文件表面看来和doc没啥区别,都可以用word打开,各种格式都可以设定。 ----- 实现的功能:读取rtf模板内容(格式和文本内容),替换变化部分,形成新的rtf文档。 ----- 实现思路:模板中固定部分...
  • 3,输入文件名输入文件名,没什么好说的 4,进入编写界面PyCharm的默认编辑界面很怪,会自动生成一行 __author__ = “作者” 的头。而比较常用的文件头,如:#coding=utf-8 等,反倒没有自动生成。 输入code: ...
  • 用户还可以通过文件名称模板定制文件名自动保存捕捉内容,支持BMP、GIF、JPG、PNG、TIF、PDF等文件格式,输出文件夹位置也可以自行设定。 总之,大大推荐啦!! 使用时,可以选择单一文件,携带方便,随便放在...
  • 主要内容有C#开发环境的使用、C#语言基础应用、字符串处理技术、数组和集合的使用、面向对象编程...文件、C#与Word互操作、高效应用Excel、基本图形绘制、图像处理技术、常用图表应用、动画处理技术、音频与视频控制...
  • 实例043 从字符串中分离文件路径、文件名及 扩展名 55 实例044 获取字符串中汉字的个数 57 实例045 批量替换某一类字符串 58 实例046 对字符串进行加密与解密 59 3.3 常用数字处理技术 61 实例047 判断输入的货币值...
  • 中学生成绩管理信息系统设计与开发 1. 学生成绩管理系统中不同使用单位(用户)的学生人数事先无法确定. ...输入班级号和课程名字符串后自动生成文件名.如1班,语文,则文件名为:c1yuwen.txt.
  • MASM汇编编辑器 好用 简单

    热门讨论 2008-12-13 12:16:07
    列表文件是一种文本文件,含有源程序和目标代码,创建列表文件输入如下命令: ML /Fl /Sg LI6-1.ASM 该命令除产生模块文件LI6-1.OBJ和可执行文件LI6-1.EXE,还产生列表文件LI6-1.LST,采用/Sg,如果源程序具有....
  • 由于HLP文件所支持的格式只能是RTF,所以用户在使用HW之前必须先用WORD制作好RTF文件。 二、制作前的准备 1、下载并安装 HTML Help WorkShop 你可以在微软的站点上下载 HHW 软件,也可以直接 按此下载...
  • 实例043 从字符串中分离文件路径、文件名及扩展名 实例044 获取字符串中汉字的个数 实例045 批量替换某一类字符串 实例046 对字符串进行加密与解密 3.3 常用数字处理技术 实例047 判断输入的货币值是否为数字 ...
  • 实例043 从字符串中分离文件路径、文件名及扩展名 实例044 获取字符串中汉字的个数 实例045 批量替换某一类字符串 实例046 对字符串进行加密与解密 3.3 常用数字处理技术 实例047 判断输入的货币值是否为数字 ...
  • 实例043 从字符串中分离文件路径、文件名及扩展名 实例044 获取字符串中汉字的个数 实例045 批量替换某一类字符串 实例046 对字符串进行加密与解密 3.3 常用数字处理技术 实例047 判断输入的货币值是否为数字 ...
  • 实例094 如何自动获取文件夹和文件 实例095 如何搜索指定目录下的文件 实例096 如何搜索指定目录下的隐藏文件 实例097 如何搜索文本文件中的字符串 实例098 如何替换文本文件中的字符串 实例099 如何将长文件名...
  • EncryptBox_2010k

    2011-09-17 10:56:23
    ◆可象操作文件夹中文件一样直接操作密码箱中的文件,可同时并行打开和编辑密码箱中的多个文件,各文件的修改均会实时回存(如双击word类型的文件后会自动调用office软件进行编辑,不是在编辑结束后回存整个文件,...
  • FastStone Capture 7.6 简体中文注册版

    热门讨论 2013-07-29 10:35:22
    自动保存文件、发送到打印机、邮件、WORD、Powerpoint、网络FTP等。存入文件时,可以由通过文件名称模板自由定制文件名,可以保存为BMP、GIF、JPG、 PNG、TIF、PDF格式,输出文件夹位置也可以自己设定。 FastStone ...
  • 2、如何设置文件下拉窗口的最下面的最近运行的文件名个数? 3、在EXCEL中输入如“1-1”、“1-2”之类的格式后它即变成1月1日,1月2日等日期形式,怎么办? 4、在EXCEL中如何使它象WORD一样的自动定时保存档...
  • 实例143 从字符串中分离文件路径、文件名及其扩展名 实例144 进行文本加密与解密 实例145 对字符串进行加、减、乘、除计算 实例146 统计字符个数 实例147 实现字节数组和字符串的相互转换 实例148 用VB分离出...
  • 实例143 从字符串中分离文件路径、文件名及其扩展名 实例144 进行文本加密与解密 实例145 对字符串进行加、减、乘、除计算 实例146 统计字符个数 实例147 实现字节数组和字符串的相互转换 实例148 用VB分离出...
  • 介绍了应用Java Web进行程序开发的各个方面的知识和技巧,主要包括Java Web编程基础、文件操作管理、图形图像与多媒体技术、窗体应用技术、JSP操作Word与Excel等。全书分6篇23章,共计600个实例和600个经验技巧。每...
  • 介绍了应用Java Web进行程序开发的各个方面的知识和技巧,主要包括Java Web编程基础、文件操作管理、图形图像与多媒体技术、窗体应用技术、JSP操作Word与Excel等。全书分6篇23章,共计600个实例和600个经验技巧。每...

空空如也

空空如也

1 2 3 4 5 ... 11
收藏数 214
精华内容 85
关键字:

word文件名自动输入文件