Çözüldü Word'de Soru numarası verme belgelere ayırma

[tukayf]

Merhabalar değerli hocalarım.
Özellikle Sn. Caylak hocam.
Ekteki excel ile wordden yazıyı alıp soru numarası verip tekrar her 20 soru bir belge olacak şekilde Word e aktarıyoruz.
Alttaki kodlar ise Word dosyasında çalıştırıldığında Word deki arkaplan rengini, yazı rengi yapıyor.

Bu durumdan sonra
Sayfa1 e alan kodlar renkli olarak alıyor.
Sayfa2 ye aktaran kodlar da ise renk yok. Sayfa2 ye ve Worde renkli olarak aktarabilmek mümkün müdür.
Ya da Word e cevap anahtarıyla birlikte aktarabilmek.

Dim ArananRenk As String
Dim YeniRenk As String
Dim myDoc As Document
Dim myRng As Range

Application.ScreenUpdating = False
Set myDoc = ActiveDocument
ArananRenk = wdRed
YeniRenk = wdAuto

With Selection
.HomeKey Unit:=wdStory
With Selection.Find
.Highlight = True

Do While .Execute
If Selection.Range.HighlightColorIndex = ArananRenk Then
Set myRng = Selection.Range
myRng.HighlightColorIndex = YeniRenk
myRng.Font.ColorIndex = 6
Selection.Collapse wdCollapseEnd
End If
Loop
End With
End With
Application.ScreenUpdating = True
Set myDoc = Nothing
End Sub

 

[tukayf]

Bende anlayamadım hocam. Nereye kaydedersem kaydedeyim o satırda hata veriyor. Son belgeyi kaydederken hata veriyor diğer dosyalarda hata vermiyor. Manuel kayıt yapıyorum artık. Çok teşekkür ederim.

 

[tukayf]

Hocam şimdi fark ettiğim benden kaynaklı bir sorun var. Bazı dosyalarda "NOT:" ile başlayan satırlar var bunları görünce soru numarası vermiyor doğru işlem yapıyor ancak sıralamayı da atlıyor.
Bunu çözebilir miyiz acaba.

 

[Caylak]

Örnek soru dosyası yüklerseniz bakabilirim. (Not: ile başlayanlardan)

 

[tukayf]

Buyrun hocam. Şu an tek bir sorun kaldı bu NOT: ların şablonu bozması.

 

[Caylak]

Notlar soruların altına iliştirildi, soru numaralarında ya da word oluşturmada bir problem görünmüyor.
Deneyin.

 

[tukayf]

Cidden muhteşem oldu hocam zihninize sağlık. Son kontrolleri yapıp inşallah çözüm işaretleyeceğim.

 

[Caylak]

Merhaba örnek dosyalarınızı birleştirip kontrol ettim, kayıt problemini gözlemledim ve düzelttim. Şu an sorunsuz çalışıyor.

 

[tukayf]

Hocam zahmet vermek istemedim. Kaydederken problemli kaydediyordu. Bunları deneyip dönüş yaparım.

 

[tukayf]

böyle bir sıkıntımız var hocam.

 

[Caylak]

Dosyayı tekrar indirip dener misiniz? Sorun görünmüyor?

 

[Alicimri]

Excelde biçimlendirdikten sonra niye tablo olarak kopyala yapıştır yapmıyorsunuz.

 

[Caylak]

Excelde biçimlendirdikten sonra niye tablo olarak kopyala yapıştır yapmıyorsunuz.

Kafa o kadar çalıştı sanırım

 

[Alicimri]

İsterseniz aşağıda kodları dosyanıza uyarlayabilirsiniz.,
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[tukayf]

Merhabalar değerli hocalarim. Tablo olarak kaydettikten sonra tekrar texte nasıl cevirecegiz o zaman da bu sroun ortaya çıkıyor. soru şeklinde basılacak bu textler.Hafta sonları ve akşamları çok bakamıyorum foruma kusura bakmayıniz.

 

[Alicimri]

Word dosyasını makro ile düzenleme örneği

 

[tukayf]

Hocalarım zihninize sağlık. Eğer fırsat bulabilirsem deneyeceğim bugün inşallah.

 

[tukayf]

Hocalarım çok teşekkürler. Büyük bir yükten kurtulduk. Allah razı olsun.