求大神如何批量rtf格式转为doc格式，改完的doc文档打开后以页面视图显示

abcttud · 发表于 2020-8-5 15:03

多个文档如何批量rtf格式转为doc格式，改完的doc文档打开后以页面视图显示，谢谢！

https://abcttud.lanzous.com/iwlVsfbexib

补充内容 (2020-8-10 09:52):
怎样改完的doc文档打开后以页面视图显示

abcttud · 发表于 2020-8-10 08:13

本帖最后由 abcttud 于 2020-8-10 09:51 编辑

以下代码可以批量rtf格式转为doc格式

dim wd,f,fd
dim fso
set wd=CreateObject("Word.Application")
set fso=createobject("scripting.filesystemobject")
set fd=fso.getfolder(".")
for each f in fd.files
if lcase(right(f.name,3))="rtf" then
  with wd.Documents.Open(f.path)
   .saveas replace(f,".rtf",""),0
   .close
  end with
end if
next

改完的doc文档打开后怎样以页面视图显示，谢谢！

abcttud · 发表于 2020-8-11 23:56

请大神帮看下

遥控器78 · 发表于 2020-8-24 21:47

没看懂，打开后默认不就是页面视图吗？

abcttud · 发表于 2020-8-25 07:20

遥控器78 发表于 2020-8-24 21:47
没看懂，打开后默认不就是页面视图吗？

打开是普通视图

遥控器78 · 发表于 2020-8-25 09:26

abcttud 发表于 2020-8-25 07:20
打开是普通视图

可能是版本的问题，我用的2016，就没找到普通视图的选项，默认打开就是页面视图。

abcttud · 发表于 2020-8-25 18:37

谢谢朋友，有时间帮看下批量的问题，谢谢！
http://club.excelhome.net/thread-1549699-1-1.html
多个DOC批量格式设置

		自动登录	找回密码
密码			免费注册

[求助] 求大神如何批量rtf格式转为doc格式，改完的doc文档打开后以页面视图显示

评分