Kod Yardımı

[lion_25_77]

Private Sub CommandButton1_Click()
Dim doc As Word.Document
Set wordapp = CreateObject("word.application")
dosya = Application.GetOpenFilename("Lütfen Dosyayı Seçiniz (*.docx),*.docx;")
If dosya <> "False" Then
MsgBox "Dosya Seçildi."
Else
MsgBox "Dosyayı Seçmediniz!"
End If

For i = 2 To Range("A1048576").End(xlUp).Row
Set doc = wordapp.Documents.Open(dosya)


doc.Bookmarks("il").Range.InsertAfter Cells(i, 2)
doc.Bookmarks("ilce").Range.InsertAfter Cells(i, 3)
doc.Bookmarks("mahalle").Range.InsertAfter Cells(i, 4)
doc.Bookmarks("adi").Range.InsertAfter Cells(i, 5)
doc.Bookmarks("soyadi").Range.InsertAfter Cells(i, 6)


doc.SaveAs2 "C:\Users\lion\Desktop\Deneme\" & Cells(i, 1).Text

Next i
End Sub


Arkadaşlar merhaba. Yukarıdaki kodda şunları nasıl yapacağım hakkında yardımcı olur musunuz lütfen.

1- doc.Bookmarks("soyadi").Range.InsertAfter Cells(i, 6) ( Burada harflerin tümünün büyük yapılması )

2- doc.SaveAs2 "C:\Users\lion\Desktop\Deneme\" & Cells(i, 1).Text ( Burada belirtilen klasöre değil de istediğim klasörü seçip; seçtiğim klasörün içine kaydedilmesi )

3- Birde işlemden sonra word dosyası arka planda çalışıyor. Word dosyasının arka planda çalışmaması.

Şimdiden çok teşekkür ederim.