如何使用VBA将word中的文本控制转化为普通文字导出

小盆友靠自己

各位大佬，

我word启用宏的模板文件里面有很多文本控件，主要是想用户在编辑完之后，点击一个按钮，就会在当前启用宏的模板文件的位置导出一个名称一致，但是文件为普通的Word文档，而且文档中的文本控件的内容转化为普通文字，如何使用代码实现呢？
我的启用宏的模板文件里面的控件全是文本控件。

vbee

转化为普通文字

1. Sub VBEE1()
   
2. 
   
3.     FN = ActiveDocument.FullName
   
4.     FN = Left(FN, Len(FN) - 5)
   
5.     ActiveDocument.SaveAs FN & ".DOC", wdFormatRTF
   
6. 
   
7. End Sub
   

复制代码

小盆友靠自己

vbee 发表于 2023-4-23 09:05
转化为普通文字

您好，您提供的代码，如果word文档是启用宏的文档，可以实现，非常感谢您！
但如果我打开的文档是启用宏的模板文件，这时候代码就会出错，可以帮忙再完善下吗？

vbee

1. Sub VBEE1()
   
2. ''''20230424
   
3.     d = CreateObject("WScript.Shell").SpecialFolders("Desktop") & ""
   
4.     FN = ActiveDocument.FullName
   
5.     b = Mid(FN, 2, 1)
   
6.     If b = ":" Then
   
7.     FN = Left(FN, Len(FN) - 5)
   
8.     Else
   
9.     FN = d & FN
   
10.     End If
    
11.     ActiveDocument.SaveAs FN & "1.DOC", wdFormatRTF
    
12. End Sub
    
13. 
    

复制代码

vbee

代码有一个字符被吃掉了