word 宏命令批量把当前文件夹下的doc另存为docx格式

问题与需求：

程序生成了一批doc文件，因为是模板生成的，虽然后缀是doc文件，但是有些软件识别还是hmt格式的单网页格式，所以需要另存为真正的docx格式。

实现：

最后实现为，运行当前宏命令save，会将当前文件夹所以doc格式的文件另存为当前文件夹下的名字为1的文件夹下（会自动在当前文件夹下生成名字为1的文件夹保存新文件）

Sub save()
Dim path As String
Dim fileName As String
Dim worddoc As Document
Dim MyDir As String
NewFile = "1"
MyDir = ActiveDocument.path
MkDir (MyDir + "/" + NewFile + "/")
fileName = Dir(MyDir & "\*.doc*", vbNormal)
Do Until fileName = ""
If fileName <> ThisDocument.Name Then
Set worddoc = Documents.Open(MyDir & "\" & fileName)

Call newSave(MyDir + "/" + NewFile &

word 宏命令批量把当前文件夹下的doc另存为docx格式相关推荐

python批量生成文件夹_python实现批量获取指定文件夹下的所有文件的厂
本文实例讲述了python实现批量获取指定文件夹下的所有文件的厂商信息的方法.分享给大家供大家参考.具体如下: 功能代码如下: import os, string, shutil,re import ...
Opencv——批量处理同一文件夹下的图片（解决savedfilename = dest + filenames[i].substr(len)问题）
文章目录前言一.完整代码二.实现效果前言第一份代码实现了批量修改同一文件夹下图片的尺寸,有其他需求时仅需修改处理部分的代码以及文件夹路径. 第二份代码实现了批量截取同一文件夹下每张图片的RO ...
利用python批量查询企业信息_python实现批量获取指定文件夹下的所有文件的厂商信息...
本文实例讲述了python实现批量获取指定文件夹下的所有文件的厂商信息的方法.分享给大家供大家参考.具体如下: 功能代码如下: import os, string, shutil,re import ...
批量安装当前文件夹下的exe文件
在 Windows 中,可以使用批处理脚本(.bat 文件)来批量安装当前文件夹下的 exe 文件. 下面是一个示例脚本,它将在当前文件夹下搜索所有 exe 文件并逐个运行它们: for /r %i ...
批量处理不同文件夹下同名图片到相同文件内，简单处理
批量处理不同文件夹下同名图片到相同文件内第一步:在不同文件夹下搜索同名图片名称例如在我的多个_json文件夹下存在同名的图片img.png,因此利用搜索功能将所有_json下的img.png图片全 ...
win10使用命令行批量压缩同一个文件夹下的所有文件
win10使用cmd批量压缩同一个文件夹下的所有数据文件整理教程数据准备上传时用到,记录一下. 目标:遍历一个文件夹下的所有.npy文件(根据需要更换成其他格式),压缩成同名的.zip文件,并放在d ...
解放文件夹下所有层级的特定格式文件，找出文件夹内所有的txt/FLAC/MP4/MP3等等等等，并复制到另一个文件夹中
解放文件夹下所有层级的特定格式文件,找出文件夹内所有的txt/FLAC/MP4/MP3等等等等,并复制到另一个文件夹中引言代码得意天天学习,好好向上引言各位朋友们好!最近遇到一些想要方便办 ...
vb怎样同时打开2个excel工作簿_【赠书】不打开工作簿也能批量合并不同文件夹下多个表格的数据...
最近推送的五篇文章: <偷懒的技术:打造财务Excel达人>到底有多畅销? <偷懒的技术2>推荐序:未来已来,你准备好了吗? 将"偷懒"进行到底,还在到处找 ...
Java批量完成对文件夹下全部的css与js压缩，利用yuicompressor
大部分代码我是从网上找的, 只有对文件的遍历是我自己写的: 其实原理十分简单利用yuicompressor已经编好的方法,我们写一个Java程序来调用即可: yuicompressor-2.4.8. ...

word 宏命令批量把当前文件夹下的doc另存为docx格式

word 宏命令批量把当前文件夹下的doc另存为docx格式相关推荐

最新文章

热门文章