如何将文本框中的文字作为文件名保存

zhaoxh889 · 发表于 2005-12-6 13:42

我的文件开头用了三个文本框，想知道如何将第二个文本框的特定内容（股票代码）作为文件名保存，如本文件用600882另存，我知道指定某行的特定内容是可以实现的，但文本框里的内容可以吗？

ixNPCT7v.rar (5.55 KB, 下载次数: 25)

[此贴子已经被作者于2005-12-23 16:25:48编辑过]

konggs · 发表于 2005-12-6 14:18

Sub asd()
Dim astr As String
astr = Left(ActiveDocument.Shapes(1).TextFrame.TextRange.Text, 6)
ActiveDocument.SaveAs FileName:=astr & ".doc"
End Sub

zhaoxh889 · 发表于 2005-12-6 17:01

谢谢

zhaoxh889 · 发表于 2005-12-6 17:03

astr = Left(ActiveDocument.Shapes(1).TextFrame.TextRange.Text, 6)

想知道是哪个语句来选择文本框的

[em04]

konggs · 发表于 2005-12-6 19:13

选择文本框？干啥？

他的意思是提取文本框中的文字，以左边开始数6个。

也就是你的意思了。

zhaoxh889 · 发表于 2005-12-7 10:10

对不起，我不太懂VB的语言，从语名上看知道是以左边开始数6个。但是我不知道他是用哪一个语句选择我所要的那个文本框的？因为文件里面有三个文本框

zhaoxh889 · 发表于 2005-12-23 16:24

对不起，我不太懂VB的语言，从语名上看知道是以左边开始数6个。但是我不知道他是用哪一个语句选择我所要的那个文本框的？因为文件里面有三个文本框

我想是不是用这个来选择的，ActiveDocument.Shapes(1).我将里面的数字改为2，可以以第三个文本框中的内容为文件名保存，但将数字改为0，却无法以第一个文本框中的内容保存。能指教吗

henterwu · 发表于 2005-12-25 15:36

第一个对象的ID是1，你文中的最上面的文本框ID是3

zhaoxh889 · 发表于 2005-12-28 16:17

第一个对象的ID是1，你文中的最上面的文本框ID是3

是不是说与文本框建立的顺序有关，与摆放位置无关，你是怎么知道ID的？如果文本框多了，我想确切知道哪个文本框的ID是几，谢谢

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