吕雄

2020

January

Python插入数据到word中

word文档——插入——文档部件——域——邮件合并—— MergeField–title\date\content

from mailmerge import MailMerge
 # 打印模板
template = "C:\\Users\\Administrator\\Desktop\\1.docx"
#1.docx文档——插入——文档部件——域——邮件合并—— MergeField--title\date\content

# 创建邮件合并文档并查看所有字段
document_1 = MailMerge(template)
print("Fields included in {}: {}".format(template,document_1.get_merge_fields()))
document_1.merge(
    title=u'得趣处，几点飞翠落红',#数据采集后替换即可
    date='January 2 , 2020 ',
    content='*******', 
) 
document_1.write('C:\\Users\\Administrator\\Desktop\\2.docx')

January 13 , 2020 阅读全文

VBA批量提取word中数据放入excel中

Sub 提取word表格()   'excel中Alt+F11调出vba窗口
    
    mypath = "C:\Users\Administrator\Desktop\1\"    '待提取的文件主目录
    myname = Dir(mypath & "*.doc")                  '待提取的文件名，此处为doc格式
    m = 1
        Do While myname <> ""
        Set mydoc = GetObject(mypath & myname)
        With mydoc
            m = m + 1
            With .Tables(1)
                Cells(m, 1) = m - 1          '序号
                Range("A1:F1") = Array("序号", "姓名", "性别", "身份证号码", "政治面貌", "出生日期")
                Cells(m, 2) = Replace(.cell(1, 2).Range.Text, "", "")                'cell(1,2)表示word中第1行第2列，整条语句表示：word中第1行第2列数据放入excel中的第m行第1列
                Cells(m, 3) = Replace(.cell(1, 4).Range.Text, "", "")
                Cells(m, 4) = Replace(.cell(1, 6).Range.Text, "", "")
                Cells(m, 5) = Replace(.cell(2, 4).Range.Text, "", "")
                Cells(m, 6) = Replace(.cell(2, 6).Range.Text, "", "")
            End With
            .Close False
        End With
        myname = Dir()
        Loop
        Set mydoc = Nothing
        MsgBox "提取完成"

End Sub

January 13 , 2020 阅读全文

2019

December

September

小重山

戍楼风寒，重山路暗。
琼花吹散千千万，白骨征战两萧然。
争奈何？
朱仙遗恨、功休旦，
恨般般！

金殿云暖，皇令频传。
三十年家国梦断，八千里云月飘残。
更那堪？
风波冤案、血痕干，
深深叹！

再读岳飞《小重山》


《小重山》
岳飞
昨夜寒蛩不住鸣。
惊回千里梦，已三更。
起来独自绕阶行。
人悄悄，帘外月胧明。

白首为功名。
旧山松竹老，阻归程。
欲将心事付瑶琴。
知音少，弦断有谁听？

September 21 , 2019 故辞依旧阅读全文