Word dosyasını farklı kaydet

[işsiz123]

Arkadaşlar merhaba
Excel userform üzerinde ki butonla bastığında n itibaren açılacak her word belgesi otomatik olarak textbox1 verisi adında masaüstü ne kayıt yapacak bu döngü devam edecek Saygılar

 

[PLİNT]

Merhaba
Tam açıklama yapmamışsınız, var olan bir yerdenmi world belgesi açılacak? Yenimi oluşturulacak?
Döngü ile textbox a değerler mi gelecek?
Fikir vermesi açısından aşağıdaki kodla yeni world belgesi oluşturup masaüstüne kaydedebilirsiniz.

[SIZE="2"]Private Sub CommandButton1_Click()
If TextBox1 = "" Then Exit Sub
Set s = CreateObject("Word.Application")
Set y = s.Documents.Add
 s.Visible = True
 kayıt = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & Application.PathSeparator
 y.SaveAs Filename:=kayıt & "\" & TextBox1.Text & ".docx"
 y.Close
 s.Quit
End Sub [/SIZE]

 

[işsiz123]

Merhaba
Tam açıklama yapmamışsınız, var olan bir yerdenmi world belgesi açılacak? Yenimi oluşturulacak?
Döngü ile textbox a değerler mi gelecek?
Fikir vermesi açısından aşağıdaki kodla yeni world belgesi oluşturup masaüstüne kaydedebilirsiniz.

[SIZE="2"]Private Sub CommandButton1_Click()
If TextBox1 = "" Then Exit Sub
Set s = CreateObject("Word.Application")
Set y = s.Documents.Add
 s.Visible = True
 kayıt = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & Application.PathSeparator
 y.SaveAs Filename:=kayıt & "\" & TextBox1.Text & ".docx"
 y.Close
 s.Quit
End Sub [/SIZE]

Teşekkürler Ancak bu kodlar yeni word açıp kaydediyor. benim istediğim açık olan word belgesini kaydetmek

Bide böyle bir şeyde söyleyeyim açık olan word dosyası adı her zaman aynı ama textbox1 adında farklı kaydedecek

 

[PLİNT]

Teşekkürler Ancak bu kodlar yeni word açıp kaydediyor. benim istediğim açık olan word belgesini kaydetmek

Bide böyle bir şeyde söyleyeyim açık olan word dosyası adı her zaman aynı ama textbox1 adında farklı kaydedecek

Merhaba
Kodları şöyle değişerek deneyin.

[SIZE="2"]Private Sub CommandButton1_Click()
If TextBox1 = "" Then Exit Sub
On Error Resume Next
Set a = GetObject(, "Word.Application")
If Err > 0 Then MsgBox "Açık World uygulaması yok": Exit Sub
If Not a.ActiveDocument Is Nothing Then
Set y = a.ActiveDocument
 kayıt = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & Application.PathSeparator
 y.SaveAs Filename:=kayıt & "\" & TextBox1.Text & ".docx"
 y.Close
a.Quit
TextBox1 = ""
Else
MsgBox "Açık World belgesi bulunamadı"
End If
End Sub [/SIZE]

 

[işsiz123]

Merhaba
Kodları şöyle değişerek deneyin.

[SIZE="2"]Private Sub CommandButton1_Click()
If TextBox1 = "" Then Exit Sub
On Error Resume Next
Set a = GetObject(, "Word.Application")
If Err > 0 Then MsgBox "Açık World uygulaması yok": Exit Sub
If Not a.ActiveDocument Is Nothing Then
Set y = a.ActiveDocument
 kayıt = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & Application.PathSeparator
 y.SaveAs Filename:=kayıt & "\" & TextBox1.Text & ".docx"
 y.Close
a.Quit
TextBox1 = ""
Else
MsgBox "Açık World belgesi bulunamadı"
End If
End Sub [/SIZE]

Konu çözüme ulaşmıştır teşekkür