批量word简转繁

lioboo

我想做用vba操作大概100多个word,使所有word内容简体中文变成繁体；现在有两个问题没有解决：
1）一个是word打不开，.documents.open(f)报错类型不匹配；
2）另一个是如何使整个word都简转繁，代码如何写？word里有内置的简转繁功能，但不支持录制宏。

lioboo

1. Sub ListFilesTest()
   
2.      Application.ScreenUpdating = False
   
3.         With Application.FileDialog(msoFileDialogFolderPicker) '运行后出现标准的选择文件夹对话框
   
4.             If .Show Then myPath = .SelectedItems(1) Else Exit Sub '如选中则返回=-1 / 取消未选则返回=0
   
5.         End With
   
6.         If Right(myPath, 1) <> "" Then myPath = myPath & ""
   
7.         '返回的是选中目标文件夹的绝对路径,但除了本地C盘、D盘会以"C:"形式返回外，其余路径无""需要自己添加
   
8.          Getfd (myPath)
   
9.      Application.ScreenUpdating = True
   
10. End Sub
    
11. Sub Getfd(ByVal pth)
    
12.     Dim Wordapp As New Word.Application
    
13.     Dim fn As String
    
14.     Dim Wd As Document
    
15.     Set Fso = CreateObject("scripting.filesystemobject")
    
16.     Set ff = Fso.getfolder(pth)
    
17.     For Each f In ff.Files
    
18.         fn = f.Name
    
19.         Set Wd = Wordapp.Documents.Open(pth & "" & fn)
    
20.         Selection.WholeStory
    
21.         Wordapp.WordBasic.ToolsSCTCTranslate Direction:=0, Varients:=0, TranslateCommon:=0'对word的操作
    
22.         Wd.Close True
    
23.     Next f
    
24.     For Each fd In ff.subfolders
    
25.         Getfd (fd)
    
26.     Next fd
    
27.     Set Wordapp = Nothing
    
28.     Set Wd = Nothing
    
29. End Sub
    
30. 
    
31. 
    

复制代码

自己研究了一下，终于搞定了，一键把文件夹下所有的word文本全部转为繁体

lioboo

1）上面19行引号之间有"\"不知道为什么，没显示出来。
2）原来的19行这样写的： Set Wd = Wordapp.Documents.Open(f) 就不行，会报错，换个法子这样写：
        fn = f.Name
        Set Wd = Wordapp.Documents.Open(pth & "\" & fn)
      就可以了，真是奇怪，谁知道为什么请指教。

lioboo

现在我可以把整个文档转为繁体了，但还有个问题，我想给整个文档注音，就像小学课本一样上面是拼音，下面是汉字，现在考虑是不是把21行改一下就可以了，有大神知道的请帮帮我，先行感谢！

音乐喷泉指挥家

如果是繁转简的话，请问该如何修改？

音乐喷泉指挥家

已经搞定了，打扰了。