X xueliran Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-22 #1 一、如何在一个Word文档中读出它的前20个字符？？ 二、如何动态的修改一个文件的文件名？？ 请各位高 手帮忙，特着急!!! 谢谢
X xueliran Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-22 #5 如在c:/aa文件夹下有一个aaa.doc，现在要将aaa.doc的文件名改为aaa.doc中的前20个字符， 如何处理?
X xueliran Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-22 #7 关键是： 如何在一个Word文档中读出它的前20个字符？？
R realLearning Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-22 #8 #13 #10 算不算字符 procedure TForm1.Button1Click(Sender: TObject); var FileName : OleVariant; Index1,Index2 : OleVariant; S : string; begin wa.Connect ; FileName := 'F:/Programs/Test/word/aaa.doc'; Index1 := 1; Index2 := 20; wa.Documents.Open(FileName,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam); s := wa.ActiveDocument.Range(Index1,Index2).Get_Text; Button1.Caption := S; wa.Quit; wa.Disconnect ; end; 另外：改名的时候要注意过滤文件名中不允许的字符
#13 #10 算不算字符 procedure TForm1.Button1Click(Sender: TObject); var FileName : OleVariant; Index1,Index2 : OleVariant; S : string; begin wa.Connect ; FileName := 'F:/Programs/Test/word/aaa.doc'; Index1 := 1; Index2 := 20; wa.Documents.Open(FileName,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam); s := wa.ActiveDocument.Range(Index1,Index2).Get_Text; Button1.Caption := S; wa.Quit; wa.Disconnect ; end; 另外：改名的时候要注意过滤文件名中不允许的字符
X xueliran Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-22 #9 再请教 realLearning 我只想要第行上的，即如果有 #13 #10时怎么办？
X xueliran Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-22 #10 再请教 realLearning 我只想要第一行上的，即如果有 #13 #10时怎么办？
