• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
tukayf

tukayf

Yeni Üye
Kullanıcı Bilgileri
Katılım
19 Eyl 2022
Mesajlar
418
Çözümler
9
Aldığı beğeni
97
Excel Versiyonu
Office 2019 TR
Konuyu Başlatan
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
Genişletmek için tıkla...
 

Ekli dosyalar

  • WordtoExcelv7.xlsm
    44.1 KB · Gösterim: 8
Tarihe göre sırala Oylara göre sırala
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.
 
Olumlu oy 0 Negatif oyla
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.
 
Olumlu oy 0 Negatif oyla
Örnek soru dosyası yüklerseniz bakabilirim. (Not: ile başlayanlardan)
 
Olumlu oy 0 Negatif oyla
Buyrun hocam. Şu an tek bir sorun kaldı bu NOT: ların şablonu bozması.
 

Ekli dosyalar

  • Örnek.docx
    14.8 KB · Gösterim: 1
Olumlu oy 0 Negatif oyla
Notlar soruların altına iliştirildi, soru numaralarında ya da word oluşturmada bir problem görünmüyor.
Deneyin.
 

Ekli dosyalar

  • WordtoExcelv8.xlsm
    55.5 KB · Gösterim: 2
Olumlu oy 1 Negatif oyla
Cidden muhteşem oldu hocam zihninize sağlık. Son kontrolleri yapıp inşallah çözüm işaretleyeceğim.
 
Olumlu oy 0 Negatif oyla
Merhaba örnek dosyalarınızı birleştirip kontrol ettim, kayıt problemini gözlemledim ve düzelttim. Şu an sorunsuz çalışıyor.
 

Ekli dosyalar

  • örnek (3).docx
    15.5 KB · Gösterim: 2
  • WordtoExcelv8.xlsm
    55.8 KB · Gösterim: 4
Olumlu oy 1 Negatif oyla
Çözüm
Hocam zahmet vermek istemedim. Kaydederken problemli kaydediyordu. Bunları deneyip dönüş yaparım.
 
Olumlu oy 0 Negatif oyla
1671801197485.png1671801265629.png

böyle bir sıkıntımız var hocam.
 
Olumlu oy 0 Negatif oyla
Dosyayı tekrar indirip dener misiniz? Sorun görünmüyor?
 

Ekli dosyalar

  • WordtoExcelv8.xlsm
    55.8 KB · Gösterim: 4
  • örnek (3).docx
    15.5 KB · Gösterim: 2
  • Grup 1.docx
    11.7 KB · Gösterim: 1
  • Grup 2.docx
    11.9 KB · Gösterim: 0
  • Grup 3.docx
    11.6 KB · Gösterim: 0
Olumlu oy 1 Negatif oyla
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.
 
Olumlu oy 0 Negatif oyla
Word dosyasını makro ile düzenleme örneği
 

Ekli dosyalar

  • örnek (3) - Kopya.zip
    21.4 KB · Gösterim: 5
Olumlu oy 1 Negatif oyla
Hocalarım zihninize sağlık. Eğer fırsat bulabilirsem deneyeceğim bugün inşallah.
 
Olumlu oy 0 Negatif oyla
Hocalarım çok teşekkürler. Büyük bir yükten kurtulduk. Allah razı olsun.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Geri
Üst