用word中的首行文字作为文件名，并能将其保存到桌面的vba代码怎么写？

zzpsx

用word中的首行文字作为文件名，并能将其保存到桌面的vba代码怎么写？

gbgbxgb

供参考吧。

zzpsx

gbgbxgb 发表于 2023-3-16 00:50
供参考吧。

谢谢高手，真是厉害，问题解决。

batmanbbs

gbgbxgb 发表于 2023-3-16 00:50
供参考吧。

不错，最好正则中把中文标点加上，比如“”，《》（）经常可能会用到的

zzpsx

gbgbxgb 发表于 2023-3-16 00:50
供参考吧。

高手，默认存为的是doc文档，可否改为docx。
我自己改了下您的代码，不成功，请赐教。

gbgbxgb

zzpsx 发表于 2023-3-19 20:55
高手，默认存为的是doc文档，可否改为docx。
我自己改了下您的代码，不成功，请赐教。

我没有高版本的Word（我用的一直是2003版本的），之前把你附件下载来后转换时用的是WPS。

刚才百度了下，应该是wdFormatDocumentDefault，故你把代码中保存文档的那句代码中的FileFormat:=wdFormatDocument改为如下：
FileFormat:=wdFormatDocumentDefault 或者　FileFormat:=16

你自行调试下，我帮不上忙。

gbgbxgb

回复要审核，那就再试下：
把保存文档的如下语句：
.SaveAs FileName:=thePath & myFileName & ".doc", FileFormat:=wdFormatDocument

改为：
.SaveAs FileName:=thePath & myFileName & ".docx", FileFormat:=wdFormatDocumentDefault

gbgbxgb

因为还有后文的MsgBox消息提示，故改成如下吧（供参考，具体怎么改好，你自已看）：
                If Len(myFileName) > 0 Then
                    If Val(Application.Version) > 11 Then
                        myFileName = myFileName & ".docx"
                        .SaveAs FileName:=thePath & myFileName, FileFormat:=16 'wdFormatDocumentDefault
                    Else
                        myFileName = myFileName & ".doc"
                        .SaveAs FileName:=thePath & myFileName, FileFormat:=wdFormatDocument
                    End If
                    MsgBox "已生成文档：" & vbCrLf & vbCrLf & thePath & myFileName
                Else
                    MsgBox "待保存文档的文件名称由汉字或英文字母组成，且需要5个字符以上！", vbCritical, "错误"
                End If

zzpsx

gbgbxgb 发表于 2023-3-19 21:40
因为还有后文的MsgBox消息提示，故改成如下吧（供参考，具体怎么改好，你自已看）：
                If L ...

可否发下完整代码，谢谢。

gbgbxgb

zzpsx 发表于 2023-3-20 08:30
可否发下完整代码，谢谢。

gsadfdsfdsfdsafdsafds