Dosya açma komutu

[prtkl]

Merhabalar,

Aşağıdaki dosyada bir komut silsilesi var.

Yaptığı iş: Butona basılınca bulunduğu sayfanın içeriğini, açılan menüden seçtiğiniz dosya içeriği ile değiştiriyor.

sizden yardımınızı istediğim konu; komutta nereyi-nasıl değiştimeliyim ki butona bastığımda, dosya seçmemi isteyen bir menü yerine, aşağıda yolunu verdiğim dosya direk açılsın?

D:\Yedek\Belge1.doc

Kolaygelsin...

 

[prtkl]

Private Sub CommandButton1_Click()
testf = WordApplicationGetOpenFileName("*.doc", False, True) 'doc dsoyaları
 'testf = WordApplicationGetOpenFileName("*.*", True, False) 'bütün dosyalar
  Selection.InsertFile FileName:=testf
End Sub

Function WordApplicationGetOpenFileName(FileFilter As String, ReturnPath As Boolean, ReturnFile As Boolean) As String
' returns the folder and/or filename to a single user selected file
Dim strFileName As String, strPathName As String
    If Not ReturnPath And Not ReturnFile Then Exit Function
       If FileFilter = "" Then FileFilter = "*.*"
    With Application.Dialogs(wdDialogFileOpen)
        .Name = FileFilter
        On Error GoTo MultipleFilesSelected
        If .Display = -1 Then
            strFileName = .Name
        End If
        On Error GoTo 0
    End With
    On Error GoTo 0
    ' remove any "-characters
    If InStr(1, strFileName, " ", vbTextCompare) > 0 Then
        strFileName = Mid$(strFileName, 2, Len(strFileName) - 2)
    End If
    If ReturnPath Then
        strPathName = CurDir & Application.PathSeparator
    Else
        strPathName = ""
    End If
    If Not ReturnFile Then strFileName = ""
    WordApplicationGetOpenFileName = strPathName & strFileName
MultipleFilesSelected:
End Function

 

[prtkl]

wordde bir userform yapıp içine bir buton koydum.
rica etsem bu butona

D:\Yedek\Bel1.doc

dosyasını aynı Doküman içinde açan makroyu yazabilir misiniz?