Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > Windows-Word-PowerPoint....
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Windows-Word-PowerPoint.... Excel haricindeki Ofis programları ile ilgili konular.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 12-09-2017, 11:02   #1
SrSerhat
 
Giriş: 30/01/2012
Şehir: İstanbul
Mesaj: 17
Excel Vers. ve Dili:
2010 - Türkçe
Varsayılan Toplu Word Dosyalarında İçerik Değişikliği

Arkadaşlar aynı konu var mıydı bilmiyorum çok arama yaptım ama bulamadım. Var ise kusura bakmayın. Çalışmış olduğum iş yerinde yüzlerce Word dosyası var. Word dosyalarının içerisinde belli konular İmza atacak personeller vs değiştirilmesi gereken aynı cümleler,kelimeler mevcuttur. Bu Word dosyalarına toplu olarak değişiklik yapabileceğim bir yol var mıdır, Tek tek hepsini değiştirmek zor olmaktadır. Bu konuda acil olarak yardımlarınızı istemekteyim.
SrSerhat Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-09-2017, 12:13   #2
leumruk
Uzman
 
leumruk kullanıcısının avatarı
 
Giriş: 15/04/2007
Şehir: Mustafa ALTUN ANKARA
Mesaj: 3,163
Excel Vers. ve Dili:
Office 2010 & 2013 tr
Varsayılan

Selamlar,
Bu işi makro ile yapabilirsiniz.
Verdiğim linkte benzer bir konu incelendi.

http://www.excel.web.tr/f51/kapaly-w...r-t133387.html
__________________
"Seni her türlü noksandan tenzih ederiz. Senin bize öğrettiğinden başka bizim hiçbir bilgimiz yoktur. Sen herşeyi hakkıyla bilir, her işi hikmetle yaparsın." (Bakara Sûresi: 2:32.)

"Onların duaları şu sözlerle sona erer: Ezelden ebede her türlü hamd ve övgü, şükür ve minnet, Âlemlerin Rabbi olan Allah'a mahsustur." (Yunus Suresi, 10:10.)
leumruk Çevrimiçi   Alıntı Yaparak Cevapla
Eski 12-09-2017, 13:04   #3
SrSerhat
 
Giriş: 30/01/2012
Şehir: İstanbul
Mesaj: 17
Excel Vers. ve Dili:
2010 - Türkçe
Varsayılan

Alıntı:
leumruk tarafından gönderildi Mesajı Görüntüle
Merhaba,
Örnek dosyayı word dosyalarının bulunduğu klasöre kopyalayıp içindeki makroyu çalıştırın.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub WD_Altbilgi()
bilgi = Application.InputBox("Altbilgi için veri girişi yapınız.", "ALTBİLGİ")
If bilgi = False Then Exit Sub

Set WD = CreateObject("word.Application")
WD.Visible = True

yol = ThisWorkbook.Path
Dosya = Dir(yol & "\*doc*")
Do While Dosya <> ""
WD.Application.Documents.Open yol & "\" & Dosya

WD.ActiveWindow.ActivePane.View.SeekView = 10
        WD.ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True
        WD.Selection.WholeStory
        WD.Selection.TypeText Text:=bilgi
WD.ActiveWindow.ActivePane.View.SeekView = 0

WD.ActiveDocument.Close True
Dosya = Dir
Loop

WD.Application.Quit
MsgBox "İşlem tamamlanmıştır.", vbInformation, "l e u m r u k"
End Sub


alt bilgi olan için işlemi yaptım değişiklikler oldu. Fakat benim istediğim alt bilgi değil içerisindeki değişiklik

Alıntı:
leumruk tarafından gönderildi Mesajı Görüntüle
Selamlar,
Bu işi makro ile yapabilirsiniz.
Verdiğim linkte benzer bir konu incelendi.

http://www.excel.web.tr/f51/kapaly-w...r-t133387.html

bu konuya da baktım ama klasörün içerine attım bul ve değiştir dedim bulmuyor
SrSerhat Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-09-2017, 13:40   #4
leumruk
Uzman
 
leumruk kullanıcısının avatarı
 
Giriş: 15/04/2007
Şehir: Mustafa ALTUN ANKARA
Mesaj: 3,163
Excel Vers. ve Dili:
Office 2010 & 2013 tr
Varsayılan

Verdiğim linkte 4. mesajda sorunuzun cevabı var. Linkte belirtilen diğer linke bakmışsınız.
__________________
"Seni her türlü noksandan tenzih ederiz. Senin bize öğrettiğinden başka bizim hiçbir bilgimiz yoktur. Sen herşeyi hakkıyla bilir, her işi hikmetle yaparsın." (Bakara Sûresi: 2:32.)

"Onların duaları şu sözlerle sona erer: Ezelden ebede her türlü hamd ve övgü, şükür ve minnet, Âlemlerin Rabbi olan Allah'a mahsustur." (Yunus Suresi, 10:10.)
leumruk Çevrimiçi   Alıntı Yaparak Cevapla
Eski 12-09-2017, 13:44   #5
leumruk
Uzman
 
leumruk kullanıcısının avatarı
 
Giriş: 15/04/2007
Şehir: Mustafa ALTUN ANKARA
Mesaj: 3,163
Excel Vers. ve Dili:
Office 2010 & 2013 tr
Varsayılan

Alıntı:
SrSerhat tarafından gönderildi Mesajı Görüntüle
bu konuya da baktım ama klasörün içerine attım bul ve değiştir dedim bulmuyor
Az önce denedim, işlemde sıkıntı yaşamadım.
__________________
"Seni her türlü noksandan tenzih ederiz. Senin bize öğrettiğinden başka bizim hiçbir bilgimiz yoktur. Sen herşeyi hakkıyla bilir, her işi hikmetle yaparsın." (Bakara Sûresi: 2:32.)

"Onların duaları şu sözlerle sona erer: Ezelden ebede her türlü hamd ve övgü, şükür ve minnet, Âlemlerin Rabbi olan Allah'a mahsustur." (Yunus Suresi, 10:10.)
leumruk Çevrimiçi   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 14:11


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden