python批量操作word问题

dengdengda · 发表于 2021-8-11 14:14

WORD加密限制编辑以后，有一种很方便的解密方法就是
新建一个word，然后插入对象—文件中的文字
这样格式内容什么的都不会改变，但是可以编辑了

想在python里面实现批量的操作
但是最关键的这一步不知道怎么能够实现
求大神指点迷津

alongzhenggang · 发表于 2021-8-11 16:15

一知半解的时候最痛苦等大佬

zheshiweihe · 发表于 2021-8-11 16:43

python处理这个没见过，可以用宏把你的操作录下来，然后想办法导入宏一键处理

dengdengda · 发表于 2021-8-11 17:07

这倒是个之前没想过的思路，去试试

china-ray · 发表于 2021-8-11 17:17

VBA应该可以吧？

dengdengda · 发表于 2021-8-11 17:22

china-ray 发表于 2021-8-11 17:17
VBA应该可以吧？

发现自己不会VBA语言

刚试了一下，如果是单纯的重复确实很快，但是因为文件比较多，可能需要一个遍历，而不是按照文件名去做，我去研究研究

rsnodame · 发表于 2021-8-12 08:29

dengdengda 发表于 2021-8-11 17:22
发现自己不会VBA语言
刚试了一下，如果是单纯的重复确实很快，但是因为文件比较多，可能需要一 ...

自己参考网上的资料写的，批量合并同一文件夹下doc和docx文件的宏，用的就是插入文件内容的方式

[Visual Basic] 纯文本查看 复制代码

Sub 宏1()
'
' 宏1 宏
'
'
'    MyPath = ActiveDocument.Path
    MyPath = InputBox("请指定待插入的word文件所在的文件夹。", "消息", Application.Path)
    ChangeFileOpenDirectory MyPath
    MyName = Dir(MyPath & "\" & "*.doc")
    i = 0
    Do While MyName <> ""
    If MyName <> ActiveDocument.Name Then
    Selection.InsertBreak Type:=wdPageBreak
    Selection.InsertFile FileName:=MyName, Range:="", _
        ConfirmConversions:=False, Link:=False, Attachment:=False
    i = i + 1
    End If
    MyName = Dir
    Loop
    MyName = Dir(MyPath & "\" & "*.docx")
    i = 0
    Do While MyName <> ""
    If MyName <> ActiveDocument.Name Then
    Selection.InsertBreak Type:=wdPageBreak
    Selection.InsertFile FileName:=MyName, Range:="", _
        ConfirmConversions:=False, Link:=False, Attachment:=False
    i = i + 1
    End If
    MyName = Dir
    Loop
End Sub

dengdengda · 发表于 2021-8-12 15:47

rsnodame 发表于 2021-8-12 08:29
自己参考网上的资料写的，批量合并同一文件夹下doc和docx文件的宏，用的就是插入文件内容的方式[mw_shl_c ...

厉害厉害，谢谢指点，豁然开朗

帐号		自动登录	找回密码
密码			注册[Register]

[求助] python批量操作word问题