精华内容
下载资源
问答
  • 下面这个直接用是不行的,要修改一下几个地方 docxurl:指的是你存放docx文件的目录 ...#操作excel文件模块 import pandas as pd from pandas import DataFrame #接受一个文件目录,返回一个包含文件名的数组 def re
  • word中表格批量导入Excel

    千次阅读 2016-05-17 17:07:35
    通过宏命令将word中表格批量导入Excel
    
    	如果是一个word中的,复制粘贴。
    	如果是多个word中的,需要写个代码(如下),或者在网上找一下相关的工具。
    此方法适用于多个word文档里面的所有表格:
    1、将多个含有表格的word文档放入一个目录;
    2、在该目录中新建一个空的excel表格
    3、在excel表格中运行以下宏命令,即可。



    Sub WordTabletoExcel()

    Dim WordApp As Object, DOC, mTable, Fn$, Str$
    On Error Resume Next    '设置容错代码
    CreateObject("wscript.shell").Run "cmd.exe /c dir """ & ThisWorkbook.Path & "\*.doc"" /s/b>""" & ThisWorkbook.Path & "\list.txt""", False, True     '取得指定目录下的word文档清单
    Set WordApp = CreateObject("word.application")  '创建word程序项目(用于操作word文档)
    WordApp.Visible = True  '设定word程序项目可见
    Open ThisWorkbook.Path & "\list.txt" For Input As #1    '打开清单文件并读取内容
    While Not EOF(1)    '循环读取清单文件各行内容
    Input #1, Str   '输入一行文本到变量str中
    If Trim(Str) <> "" Then '如果文本有效则
    Set DOC = WordApp.Documents.Open(Trim(Str)) '利用word程序项目打开对应的word文档
    With DOC
    For Each mTable In .Tables  '循环文档中的各个表格

    If Mid(mTable.Cell(1, 1).Range.Text, 1, 4) = "水库名称"  and  Mid(mTable.Cell(1, 1).Range.Text, 1, 4) <> "水库名称" Then      '判断第一行第一列的名称

    '整个表格复制
           WordApp.Activate    '激活word程序,使之窗体前置
    mTable.Range.Copy   '复制表格区域
    With Windows(1)     '激活excel程序窗体,使之前置
    .Activate
    With ThisWorkbook.ActiveSheet   '选中当前使用区A列下面的第一个单元格,并粘贴复制的word中的表格数据
    .Cells(.Cells.SpecialCells(xlCellTypeLastCell).Row + 1, 1).Select
    .Paste
    End With
    End With


    '获取某个关键字值
    For Each MyRng In MyTable.Range.Cells
                    With MyRng.Range.Find
                        .Text = "关键字"
                       .Execute
                       If .Found Then
                            Sheets(1).[b65536].End(3).Offset(1) = Replace(MyRng.Next.Range, Chr(7), "")
                        End If
                    End With
                Next MyRng

        End If


    Next mTable
    .Close False    '关闭word文档
    End With
    End If
    Wend
    Close #1    '关闭清单文件
    If Dir(ThisWorkbook.Path & "\list.txt") <> "" Then Kill ThisWorkbook.Path & "\list.txt"     '删除清单文件
    WordApp.Quit    'word程序项目关闭
    Set DOC = Nothing   '清空对应项目变量
    Set WordApp = Nothing
    End Sub


    展开全文
  • #python批量处理会议记录word导入excelword to excel) importos fromdocximportDocument importopenpyxl fromopenpyxlimportload_workbook defget_meet_content(filename): #提取会议信息(会议记录格式...

    #python批量处理会议记录word导入excel(word to excel)

    import os

    from docx import Document

    import openpyxl

    from openpyxl import load_workbook

     

    def get_meet_content(filename):

    #提取会议信息(会议记录格式类似)

        meet_dict = {}     #以字典存放会议各要素内容

        doc = Document(filename)

        cjry = ''

        for paragraph in doc.paragraphs[0:9]: 

            paragraph.text = paragraph.text.strip().replace(' ','')  #去空格

            if 'dw' in paragraph.text:

                meet_dict['单位']='zddw'        

            if '时间' in paragraph.text:

                print(paragraph.text)

                meet_time = paragraph.text.replace('时间:','')#替换“时间:”,获取时间信息

                meet_dict['时间']=meet_time      

            if '党委' in paragraph.text:

                meet_dict['会议名称']='党委会'

            if '院长办' in paragraph.text:

                meet_dict['会议名称']='院长办公会'

            if '地点:' in paragraph.text:

                place = paragraph.text.replace('地点:','')

                meet_dict['会议地点']=place        

            if '主持人' in paragraph.text:

                cjry = cjry +  paragraph.text.replace('主持人:','')

            if '出席:' in paragraph.text:

                cjry = cjry + paragraph.text.replace('出席:','')   

            if '列席:' in paragraph.text:

                cjry = cjry + paragraph.text.replace('列席:','')

            meet_dict['参加人员']=cjry

                

        content = ' '     #会议内容正文信息

        for paragraph in doc.paragraphs[9:]: 

            paragraph.text = paragraph.text.strip().replace(' ','')

            content =content + paragraph.text

        meet_dict['会议内容']=content

        list = ['',

                meet_dict['单位'],

                meet_dict['时间'],

                '',

                meet_dict['会议名称'],

                meet_dict['会议地点'],

                meet_dict['参加人员'],

                meet_dict['会议内容'],

                '',

                '']

            #空格对应excel表单元格

        list.append(filename)

        return list

    #输入excel表

    def input_excel(list):

        excel_file = 'G:\\工作记录\\工作任务清单.xlsx'

        wb = load_workbook(excel_file )

        ws = wb['会议记录']

        ws.append(list)    

        wb.save(excel_file )

     

    if __name__ == '__main__':

        path = 'G:\\会议纪录\\'

        os.chdir(path)

        i = 0

        for filename in os.listdir(path) :

            if filename.endswith('docx'):

                print(filename)

                list =  get_meet_content(filename)

                input_excel(list)

                i = i+1

                print('******No.'+str(i)+' file input over******')

        print('ok')

    展开全文
  • 批量获取excel的指定列表的值转换格式后导入word文档指定位置中;适用于代理人(律师)整理案件文书,或者一些需要批量操作的工作者
  • Excel表格某些字段批量导入word

    千次阅读 2018-05-11 11:52:13
    打开word2013,邮件-开始邮件合并-邮件合并分步向导-右侧点击下一步下一步到选择收件人那一步-点击浏览-选择需要导入Excel文件-下一步-点击其他项目-...注意:假设Excel中有50行数据,只需要在word中建立一个模板...

    打开word2013,邮件-开始邮件合并-邮件合并分步向导-右侧点击下一步下一步到选择收件人那一步-点击浏览-选择需要导入的Excel文件-下一步-点击其他项目-光标停在word中需要导入的地方-点击插入-点击插入旁边的关闭-全部完成以后点击完成并合并-点击编辑单个文档-系统会自动生成一个新的word文件。

    注意:假设Excel中有50行数据,只需要在word中建立一个模板,新生成的word文件会自动生成50个内容不一样的。

    展开全文
  • 用VBA解决思路(以批量导入word作为例子) 1、设置word模板(标识要替换的位置) 2、设置excel原数据(找到替换的内容) 3、复制word模板,修改文件名,替换里边的内容 4、循环2和3步骤,工作...

    Excel批量产生excel或者word

    (单行或多行、多个sheet数据导入到一个word或者一个excel)

    本文只有单行批量生成word或者excel,多行的例子后续发布

    用VBA解决思路(以批量导入word作为例子)

    1、设置word模板(标识要替换的位置)

    2、设置excel原数据(找到替换的内容)

    3、复制word模板,修改文件名,替换里边的内容

    4、循环2和3步骤,工作结束

     

    下面是具体的操作

    (后续用起来只要改一下模板和主数据第2列的内容,结束行,结束列,模板名称)

    文档放同一目录下

    学生登记表.docx就是word模板

    打开如下图

    1、设置word模板(标识要替换的位置)

    制作模板,把该替换的地方写成相应的列名。比如 学生号码鱻,加上鱻避免重复(古代的鲜字xian。鱻这个字基本上不用,如果用了,可以尝试其他替换符号);学生编号:学生编号鱻;这次要替换学生编号鱻(2次,不管多少次,反正就是把学生编号鱻,替换成相应的内容)姓名鱻,还有其他替换的内容,其实就是手工替换类似,后续就是把手工替换自动化。

    2、设置excel原数据(找到替换的内容)

    在存放数据的表格中,把第2行作为一个替换的目标寻找列。

    第二行内容,是关键性的,就是通过找第二行再去找相应的替换内容。

    手工操作就是:比如现在要把excel第5行的数据生成一个word。第五行第3列的值是”5ABC”,要替换的内容是”学生编号鱻”;第五行的第4列的值是”李四”,要替换的内容是”姓名鱻”,以此类推,后续多列。

    注意不要出现,父母鱻、祖父母鱻这样的包含列,祖父母鱻已经被父母鱻替换掉了,祖这个字变成多余,解决方法可以是父母鱻、祖父祖母鱻;反正就不能存在被包含关系。

     

    模板和数据文件必须放在同一个文件夹,设置一下参数,

    模板名称要对的上,关键是结束列和结束替换行

    序号

    名称

    1

    模板word文件名称

    学生登记表.doc

    2

    模板excel文件名称

    学生记录表.xlsx

    3

    开始生成行

    4

    4

    结束生成行

    40

    5

    结束替换列(开始列是第3列)

    33

    6

    保存单个文档的文件夹名称

    单个文档

    7

     

     

    8

     

     

     

    3、设置完毕,点击生成多个word,就在当前文件夹下面新建一个单个文档的文件夹,里边有一个个的word文档。

     

    展开全文
  • 首先对EXCEL或者Word处理我们要懂得使用原则: 之前使用过NPOI常见基本都是在.net或者C#中使用,感兴趣可以去了解一下,大致相同; 首先是导入操作: 1.我们要进行文件上传(需要使用jar包fileupload),那么我们...
  • 9999))+title document.save(title+’.docx’) excel = xlrd.open_workbook(‘地标号.xlsx’) table = excel.sheet_by_index(0) nows = table.nrows for i in range(nows): title = table.cell(i, 2).value type1 = ...
  • 做完了excel批量导入数据,但是不能导入图片,今早产品叫我再写一个word文档的导入,原因为了导入图片?这是什么操作,求大佬赐教?有案例参考吗?
  • 第二步:(word名单批量导入Excel) (1)运行Windows+R(也可以用搜索“运行”),在里面输入“cmd”,如下图 (2)单击确定后会出现 然后在里面输入下面这张图片中的东西: (1)输入“D:”然后回车, (2)输入...
  • 批量导入

    2019-06-06 16:57:32
    批量导入,它和之前的Excel表格一样,都是得下载原先做好的模板文件。与Excel表格不一样的是,它导入的过程对数据的处理是较复杂一点,因为我们对每份数据的导入都是有格式的,在这个方面如何通过代码让计算机严...
  • Excel百宝箱 9.0 破解版 批量导入图片等200种功能 Excel2007 Excel百宝箱2012是强大的制表插件,当安装百宝箱后,如果您使用Excel 2003,则将产生【百宝箱】菜单,包括100多个子菜单;如果您使用Excel 2007或者2010...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 409
精华内容 163
关键字:

word批量导入excel