Word makrosunda excelde sayfa ve makro çalıştırmak

[EXCELlency]

Merhaba,
makrolar için oldukça yeniyim, aşağıdaki sorum için yardımcı olursanız sevinirim.

MEVCUT DURUM:
1.Wordde word makrosuyla biçimlendirdiğim bir metnim bulunmaktadır.
2.Makroyla biçimlendirdiğim bu metni select all yapıyorum.
3.Exceli açıyorum ve bu metni A1 hücresine yapıştırıyorum.
4.Sonra excelde bu metnin üzerinde başkaca işlemler için excel makrosu çalıştırıyorum.

SORU:
Word makrosuna nasıl bir ekleme yapmalıyım ki yeni bir excel kitabı açıp( mesela "Kitap1.xls") select all ile wordden kopyalayıp Sayfa1'deki A1 hücresine yapıştırıbilsin. Yani her seferinde bu işi manuel yapmaktan beni kurtarsın.

Tekrar teşekkürler.

 

[EXCELlency]

Günaydın,
soru anlaşılmadığı için mi yanıtlanamıyor acaba?

 

[parsley2]

bence önce metni excelde hazırla, word belgesi olarak excelden kaydet. biçimlendirmelerini de wordde şablon olarak [ C:\Document and Settingis\Yönetici ismi(bilgisayarınızda Kim ise)\Application data\Microsoft\Templates'in altına ]normal.dot uzantılı olarak at. excelden gönderdiğin metin de bu normal.dot'a göre otomatik biçimlenecektir.

 

[EXCELlency]

cevap için teşekkür ederim.
Word deyken kod ile boş bir excel sayfası nasıl açabilirim, bir fikriniz var mı?

 

[tamer42]

[ C:\Document and Settingis\Yönetici ismi\Application data\Microsoft\Templates'in altına ]normal.dot uzantılı olarak at.

Sn Parsley2, Benim bilgisayarada Templates klasörü altında;
Normal.dot dosyasına ilaveten birde Normal_1.dot adlı dosya var,

bu ne anlama geliyor.

İyi Çalışmalar.

 

[parsley2]

2003 ofis kullanıyorsan sadece normal.dot olması gerekir. sizin söylediğinizi değişik versiyonlarından kaynaklanıyor olabilir. benim bildiğim bu şablonu word normal.dot olarak kullandığı, siz biçimlendirmelerinizi yapıp normal. dot halinde saklarsanız, bütün yazılarınız bu şablonda kayıt edilir.

 

[tamer42]

Merhabalar,

Ben Aslında excel ortamında word dosyalarıyla ilgili işlemleri yapamıyorum.

Örnek aşağıdaki kodlarla word dosyalarından bilgi çekiyorumdum, şimdi olmuyor. Ekli dosyadaki hata mesajını veriyor.

Hata meajında Decug dedikten sonra
Set wrdApp = CreateObject("Word.Application")

satırına gidiyor.

Bu durum neden kaynaklanır? yardımcı olursanız sevinirim.

.............
...................
Application.StatusBar = "Please Wait ; " & i & "  ! ! ! " & Site

    MyFile = Range("A" & i).Value
    
    r = 10 ' startrow for the copied text from the Word document
    [color=red][B]Set wrdApp = CreateObject("Word.Application")[/B][/color]
    'wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Open(MyFile)

    With wrdDoc

        For p = 1 To .Paragraphs.Count
            Set tRange = .Range(Start:=.Paragraphs(p).Range.Start, _
                End:=.Paragraphs(p).Range.End)
            tString = tRange.Text
       
            tString = Left(tString, Len(tString) - 1)
           
               If Left(tString, 5) = "RADIO" Then
               
               Set tRange = .Range(Start:=.Paragraphs(p + 1).Range.Start, _
                End:=.Paragraphs(p + 1).Range.End)
                    
                    kString = tRange.Text
                                       
                    kString = Left(kString, Len(kString) - 2)
                
                    ActiveSheet.Cells(i, r).Select
                
                    ActiveSheet.Cells(i, r).Formula = kString
              
                  end if

       
        Next p

end with
..................
..................

İyi Çalışmalar.