Paragraf Ayarı

[karakrall01]

Herkese kolay gelsin. Ben oluşturduğum uygulamam da word'e yazılan yazıyı aktarabiliyorum ancak sıkıntım aktardığım yazıda istediğim paragraftan(satır) itibaren aralık olmayacak şekilde yazdırması. Örnek vermek gerekirse;
1- Metnimizin bu olduğunu düşünelim;

2-Metnimizde istediğimiz paragraf(satır) yukarıda ki resimde gösterdiğim yerden başlattığımızı düşünelim ve bu paragraf(satır)dan itibaren aralık olmayacak


Bu şekilde olucak ancak benim kullandığım kodda malesef bunu sağlıyamıyorum direk komple sayfayı aralık yok olarak ayarlıyor her ne kadar uğraşsamda denesemde bir türlü istediğim sonuca ulaşamadım. Kullandığım kod ise;

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim app As Microsoft.Office.Interop.Word.Application
        Dim dokuman As Microsoft.Office.Interop.Word.Document
        Dim paragraf As Microsoft.Office.Interop.Word.Paragraph


      

        If TextBox1.Text = "" Then
            MsgBox("Klasör İsmi Boş Olamaz")
            Exit Sub
        End If
        My.Computer.FileSystem.CreateDirectory(Application.StartupPath & "\DOSYALAR\" & TextBox1.Text)
        Thread.Sleep(1500) '2 saniye bekle
        



        If TextBox3.Text.Count > 0 Then
            
            deneme()
            app = CreateObject("Word.Application")
            app.Visible = False
            dokuman = wa.Documents.Add
            dokuman = wd.Content.Paragraphs.Add
            paragraf.Range.Font.Name = "Times New Roman"
            paragraf.Range.Font.Size = "12"
            dokuman.Paragraphs.SpaceBefore = 0'dokumanın komple aralığını belirleme
             dokuman.Paragraphs.SpaceAfter = 0'dokumanın komple aralığını belirleme
            paragraf.Range.Text = RichTextBox1.Text 'word yaz atyor
            dokuman.SaveAs2(Application.StartupPath & "\DOSYALAR\" & TextBox1.Text & "\" & TextBox3.Text & "-" & ComboBox1.Text & ".docx")
            app.Quit()
  
        ElseIf TextBox3.Text = "" Then
            Exit Sub
        End If

Yukarda ki kod ile dediğim gibi word aktarırken SpaceBefore-SpaceAfter ile dokümanın komple aralığını belirleyebiliyorum ancak istediğim kısımdan itibaren belirlemeyi nasıl yapabilirim bu konuda yardımcı olabilirmisiniz? şimdiden teşekkürler

 

[alicimri]

Merhaba
Aşağıdaki kodu kendi çalışmanıza uyarlayın

ActiveDocument.Paragraphs(3).Format.SpaceBefore = 0
    ActiveDocument.Paragraphs(3).Format.SpaceAfter = 0

 

[karakrall01]

Merhaba
Aşağıdaki kodu kendi çalışmanıza uyarlayın

ActiveDocument.Paragraphs(3).Format.SpaceBefore = 0
    ActiveDocument.Paragraphs(3).Format.SpaceAfter = 0

malesef gene olmadı

 

[necati]

Merhaba,

Merhaba
Aşağıdaki kodu kendi çalışmanıza uyarlayın

ActiveDocument.Paragraphs(3).Format.SpaceBefore = 0
    ActiveDocument.Paragraphs(3).Format.SpaceAfter = 0

İstediğiniz yeri değiştiren kodu Ali bey yazmış. Olmadı derken hata mesajı mı verdi demek istediniz, paragraf ayarında değişiklik olmadı mı demek istediniz?

 

[karakrall01]

Merhaba,


İstediğiniz yeri değiştiren kodu Ali bey yazmış. Olmadı derken hata mesajı mı verdi demek istediniz, paragraf ayarında değişiklik olmadı mı demek istediniz?

Ekran fotosu eklemiştim, hata verdi

 

[necati]

dokuman.Paragraphs(3).Format.SpaceBefore = 0
dokuman.Paragraphs(3).Format.SpaceAfter = 0

yada

.Paragraphs(3).Format.SpaceBefore = 0
.Paragraphs(3).Format.SpaceAfter = 0

bunlardan biriyle deneyince oluyor mu?

 

[alicimri]

Sizin kodlar word makrosu mu? Visual Basic kodları mı?
Bu kodlar, Word deki yazılnın sadece 3. parafının aralıklarını sıfırlar.
Bu kodları olduğu gibi değil kendinize uyarlayarak kullanacaksınız.

 

[karakrall01]

dokuman.Paragraphs(3).Format.SpaceBefore = 0
dokuman.Paragraphs(3).Format.SpaceAfter = 0

yada

.Paragraphs(3).Format.SpaceBefore = 0
.Paragraphs(3).Format.SpaceAfter = 0

bunlardan biriyle deneyince oluyor mu?

böyle denediğimde kodlarda sıkıntı olmuyor fakat herhangi bir işlemde yapmıyor, dökümanı oluşturuyor fakat paragraflarda herhangi bir değişiklik olmuyor malesef.

Sizin kodlar word makrosu mu? Visual Basic kodları mı?
Bu kodlar, Word deki yazılnın sadece 3. parafının aralıklarını sıfırlar.
Bu kodları olduğu gibi değil kendinize uyarlayarak kullanacaksınız.

Visual Basic kodları bunlar, kendime göre uyarlıyorum

dokuman.Paragraphs(3).Format.SpaceBefore = 0
dokuman.Paragraphs(3).Format.SpaceAfter = 0

bu şekilde ama hata veriyor bu seferde ekran görüntüsü eklemiştirm tekrardan ekleyeyim hata ile ilgili ekran görüntüsünü;



"wd" dokuman oluyor

 

[alicimri]

Visual Basic yüklü değil deneme yapamıyorum.
Bu kod Yazı eklendikten sonra çalışması gerekiyor. Kodlarınızda bu duruma dikkat ediyormusunuz.
Yani
aragraf.Range.Text = RichTextBox1.Text satırının altına yazılması gerekiyor.

 

[karakrall01]

Visual Basic yüklü değil deneme yapamıyorum.
Bu kod Yazı eklendikten sonra çalışması gerekiyor. Kodlarınızda bu duruma dikkat ediyormusunuz.
Yani
aragraf.Range.Text = RichTextBox1.Text satırının altına yazılması gerekiyor.

Sonunda çözdüm sağolun “.range” eklemem gerekiyormuş 2 gündür uğraşıyom şans eseri çözdüm

dokuman.Paragraphs(3).Range.SpaceBefore = 0
dokuman.Paragraphs(3).Range.SpaceAfter = 0

Kod bu şekilde çalışıyor tekrardan yardımlarınız ve uğraşınız için teşekkür ederim

 

[alicimri]

Kolay gelsin.