txt合并及txt批量转docx

**由于对文档进行处理的时候要把txt合并成一个文集,或者是txt转化为word文档进行保管,但是word有/点不好就是每次打开贼费时间(不排除我的机械硬盘太烂的可能),再加上每次打开txt,ctrl+c,ctrl+v,关闭txt,新建docx,重命名,ctrl+v,ctrl+s,关闭文件,如此反复,实在是太慢了,网上又没有看到现成的轮子,所以萌生了自己造个木头轮子的想法,下面是我这个大菜逼的代码,仅供参考.**话说百度云现在还不和谐docx呢。。

import docx
from docx.oxml.ns import qn
import os


root = './txt/'  # 相对路径
docxpath ='./txt/docx/'



# TODO 批量读取root下的文件名
def bulk_readname():
    fileNames = os.listdir(root)  # 读取文件夹下所有的txt的文件名
    txtFiles = []
    for i in range(len(fileNames)):
        if '.txt' in fileNames[i]:
            txtFiles.append(fileNames[i])
    # 看一下是不是全部都找到了
    print(txtFiles)
    return txtFiles  # 返回的是一个列表


# TODO 读取txt文件并以字符串格式返回
def bulk_read(input_fileName):
        path = root + input_fileName
        with open(path, encoding='utf-8') as f:
            str = f.read()
            # 下面注释的代码暂未测试(给str自动换行)
            # L = list(str)
            # for j in L:
            #     if j/50 == 0:
            #         L.insert(j, '/n')
            return str


# TODO 在一个txt内追加文本
def append_text(input_str, textName):
    with open(root+textName+'.txt', 'a+', encoding='utf-8') as f:  # 'a'是继续写入,'w'是刷新后写入,'a+'追加,可读可写
        f.write(input_str)
        output_str = f.read()
    return output_str


# TODO 创建docx文件并写入数据
def write_docx(input_str, buildFile):
    doc = docx.Document()
    # 设置正文中文字体
    microsoft_font = u'微软雅黑'  # u 表示后面的字符串以 Unicode 格式进行编码
    area = qn('w:eastAsia')
    doc.styles['Normal'].font.name = microsoft_font
    doc.styles['Normal']._element.rPr.rFonts.set(area, microsoft_font)
    paraObj1 = doc.add_paragraph(input_str)
    path = docxpath + buildFile + '.docx'
    doc.save(path)


# -------------------------------------------------------------------------------------------
def merge_file(name):
    # 合并文件
    fileNames = bulk_readname()
    for fileName in range(len(fileNames)):
        out = bulk_read(fileNames[fileName])
        append_text(out, name)


def bulk_RW():
    fileNames = bulk_readname()
    for fileName in range(len(fileNames)):
        out = bulk_read(fileNames[fileName])
        print(out)
        write_docx(out, fileNames[fileName][:-4])  # [:-4]消除.txt



if __name__ == '__main__':
    # 合并文件
    # merge_file('合集')
    # 实现批量txt2docx
    # bulk_RW()
    pass




  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
### 回答1: 在Word中,利用宏编程(VBA)可以实现邮件合并批量生成单个PDF文档的功能。具体步骤如下: 1. 邮件合并 a. 准备好邮件模板和数据源,可以将数据源存放在Excel表格中。 b. 在Word中打开邮件模板,进入“开发工具”选项卡,点击“宏”按钮。 c. 在弹出的“宏”对话框中输入一个名称,例如“MailMerge”,并点击“创建”按钮。 d. 在VBA编辑器中,编写相关代码,例如利用MailMerge方法将数据源与邮件模板合并,具体代码如下: ActiveDocument.MailMerge.OpenDataSource _ Name:="C:\MyDataSources\ExcelData.xlsx", _ ConfirmConversions:=False, _ ReadOnly:=False, _ LinkToSource:=True, _ AddToRecentFiles:=False, _ PasswordDocument:="", _ PasswordTemplate:="", _ WritePasswordDocument:="", _ WritePasswordTemplate:="", _ Revert:=False, _ Format:=wdOpenFormatAuto, _ Connection:="Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;" & _ "Data Source=C:\MyDataSources\ExcelData.xlsx;Mode=Read;Extended " & _ "Properties=""HDR=YES;IMEX=1"";", _ SQLStatement:="SELECT * FROM `Sheet1$`", _ SQLStatement1:="", _ SubType:=wdMergeSubTypeAccess e. 点击“运行”按钮,此时程序会将数据源中的数据插入到邮件模板中,并生成多个邮件。 2. 批量生成单个PDF文档 a. 准备好文档,并将宏功能嵌入其中。 b. 编写宏代码,指定待换为PDF的文件夹路径及输出PDF文件路径。例如下面代码会先将Word文档存为PDF,再合并所有PDF文件为一个单独的PDF文件: Sub AutoBatchSaveAsPDF() Dim fs As Object, f As Object, folder As Object Dim strFolder As String, strOutputPDF As String Dim oWord As Word.Application, oDoc As Word.Document Set fs = CreateObject("Scripting.FileSystemObject") Set folder = fs.GetFolder("C:\MyWordDocuments") Set oWord = CreateObject("Word.Application") oWord.Visible = False strFolder = folder.Path & "\" strOutputPDF = strFolder & "Output.pdf" Set oDoc = oWord.Documents.Open(strFolder & "Document1.docx") oDoc.SaveAs2 strFolder & "Document1.pdf", wdFormatPDF oDoc.Close For Each f In folder.Files If Right(f.Name, 4) = ".pdf" And f.Name <> "Output.pdf" Then Shell """" & "C:\Program Files\Adobe\Acrobat 10.0\Acrobat\Acrobat.exe" & """ /n /t """ & f.Path & """" & " """ & strOutputPDF & """", vbHide End If Next f End Sub c. 运行宏代码,程序自动将多个PDF文件合并为一个PDF文件,并输出到指定目录。 以上就是利用Word VBA实现邮件合并批量生成单个PDF文档的方法。 ### 回答2: Word VBA邮件合并批量生成单个PDF文档是指在Word文档中利用VBA宏来实现将多个邮件合并成一个,并将合并后的内容保存成一个单独的PDF文件的功能。 首先,我们需要将需要合并的邮件内容存储在单独的Word文档中,并给每个文档命名,以方便后续处理。然后,在VBA宏中使用循环语句遍历所有文档,将每个文档的内容复制到一个新的Word文档中,依次粘贴到后面的位置,最终得到合并后的内容。接下来,我们可以使用Word内置的PDF换功能,将合并后的文档另存为PDF格式。 需要注意的是,在邮件合并时可能会存在格式上的不兼容问题,因此我们需要在VBA宏中添加适当的格式换代码来避免这些问题的发生。 总之,Word VBA邮件合并批量生成单个PDF文档是一项非常实用的功能,可以极大地提高我们的工作效率。使用VBA宏来实现上述功能,不仅可以节省时间,还可以更加精准地控制合并后的内容和格式。 ### 回答3: Word VBA邮件合并功能可以将多个邮件的内容合并成一个单一的文档,并通过邮件发送给收件人,是现代办公中不可或缺的工具。Word VBA批量生成单个PDF文档的功能则会将多个Word文档换成一个PDF文件,方便用户阅读和共享。 邮件合并功能通过VBA编程实现,可以使用多种方式配置邮件内容和附件,比如从Excel表格中读取收件人信息和邮件正文内容等。使用邮件合并功能,用户可以快速地将电子邮件正文与附件合并在一起,节省时间和精力,提高工作效率。 批量生成单个PDF文档功能的实现也需要使用VBA编程来实现。用户可以编写代码以逐个打开Word文档,然后使用打印功能将每个文档换成PDF格式并保存输出,最后再将所有PDF文档合并成一个单一文件。这种方法虽然比较繁琐,但是可以保证生成的PDF文档格式和排版准确无误。 总的来说,Word VBA邮件合并批量生成单个PDF文档是两种非常实用的功能,可以帮助用户更轻松地完成一些繁琐的文书处理工作,提升办公效率。随着大数据和云计算的不断发展,这种基于自动化和编程的工具将变得越来越重要和普及。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值