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

python批量操作word问题

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语言{:1_923:}
刚试了一下,如果是单纯的重复确实很快,但是因为文件比较多,可能需要一个遍历,而不是按照文件名去做,我去研究研究

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

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

自己参考网上的资料写的,批量合并同一文件夹下doc和docx文件的宏,用的就是插入文件内容的方式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文件的宏,用的就是插入文件内容的方式

厉害厉害,谢谢指点,豁然开朗
页: [1]
查看完整版本: python批量操作word问题