怎样限制生成文件的文件名?

pengchang 2003-08-21 09:09:31

Dim wrdDoc As Object
Dim wrdApp As Object
Dim strFileName As String
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Add
wrdApp.Selection.TypeParagraph '插入回车
wrdApp.Selection.TypeText Text:="插入数值1"
wrdDoc.Parent.Windows(1).Visible = True
wrdDoc.Application.Visible = True

通过文件生成的Word文件的名字是“文档4-Microsoft Word"，可我想让文件名为指定名字，这些代码是别人指告诉我的，我不算太懂，怎样实现

...全文

28 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

射天狼 2003-08-21

打赏
举报

你可以用这个试试
wd.Application.Caption = "我的文件名"

射天狼 2003-08-21

打赏
举报

wd.ActiveDocument.SaveAs FileName:="c:\aaa.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
只有保存的时候才能指定文件名,你的代码只是新建一个文档,你用WORD新建的时候也是自动给文件名编号的，指定不了。