一键实现将文件夹里txt文件，用word打开，另存为rtf。 用VBA或者Python代码？

文件夹里全是txt。需要用word打开，然后另存为rtf。
用VBA或者Python怎么能一键实现。

Python代码实现方式

#!/usr/bin/python
# -*- coding: UTF-8 -*-
import os

def fuc():
    # 根目录
    root = os.getcwd() + "/"
    file_list = os.listdir(root)
    # 遍历目录
    for file in file_list:
        # 判断该文件是会否是一个文件类型
        if os.path.isfile(root + file):
            # 文件后缀
            suffix = file.split(".")[-1]
            # 如果是txt文本
            if suffix.lower() == "txt":
                txt2rtf(file)

# txt转rtf
def txt2rtf(file):
    # 保存目录
    save_dir = os.getcwd() + "/rtf/"
    # 新文件名称
    new_file = save_dir + file[0:file.rindex('.')] + ".rtf"
    # 如果目录不存在就创建该目录
    if not os.path.exists(save_dir):
        os.mkdir(save_dir)
    # 文件拷贝
    with open(file, "r") as f1, open(new_file, "w") as f2:
        f2.write(f1.read())

if __name__ == '__main__':
    fuc()