h******e 发帖数: 1791 | 1 请看下面的code,如何改写它以达到如下目的:
自动选择word里的路径和文本文件文件名(假设已经存在,可以编辑的),而不是像现
在这样是固定的。
Sub Macro1()
'
' Macro1 Macro
'
'
Selection.WholeStory
Selection.Copy
ChangeFileOpenDirectory _
"C:\Documents and Settings\UserXP\My Documents\My SAS Files"
Documents.Open FileName:="T16_7_2_1.txt", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
。。。。。。。。。。。。。。。。 | x****s 发帖数: 921 | | D*****3 发帖数: 2683 | 3 Sub PickFiles()
Dim ofn As OPENFILENAME
Dim rtn As String
Dim str1 As String, str2 As String, str3 As String
ofn.lStructSize = Len(ofn)
ofn.hwndOwner = Application.Hwnd
'ofn.hInstance = Application.hInstance
ofn.lpstrFilter = "Txt files (*.txt)" & Chr(0) & "*.txt" & Chr(0) & _
"Rep files(*.rep)" & Chr(0) & "*.rep" & Chr(0) & _
"All files(*.*)" & Chr(0) & "*.*" & Chr(0)
'ofn.lpstrFilter = "All Files (*.*), *.txt"
ofn.lpstrFile = Space(254)
ofn.nMaxF |
|