C# Word ile bağlanıldığında çalışmıyor

koalamario

Femtopat
Katılım
22 Haziran 2023
Mesajlar
19
Daha fazla  
Sistem Özellikleri
RTX 3070Tİ
RYZEN 7 6800H
1TB SSD
32 RAM
Cinsiyet
Erkek
Using System;
Using System. Collections. Generic;
Using System.componentmodel;
Using System. Data;
Using System. Drawing;
Using System. Linq;
Using System. Text;
Using System. Threading. Tasks;
Using System. Windows. Forms;
Using Word = Microsoft. Office. Interop. Word;
Using System. Reflection;

Namespace word_örnekleri.
{
Public partial class form2: Form.
{
Public Form2()
{
InitializeComponent();
}

Private Void button1_click(object sender, eventargs e)
{
Object omissing = System. Reflection. Missing. Value;
Object dokümansonu = "\\endofdoc";

Word. Application olustur;
Word. Document icerik;
Olustur = New word.Application();
Olustur. Visible = true;
İcerik = olustur. Documents. Add(ref omissing);

Word. Paragraph paragraf1;
Paragraf1 = icerik. Content. Paragraphs. Add(ref omissing);
Paragraf1.range. Text = richtextbox1.text;
Paragraf1.range. Font. Bold = 0;
Paragraf1.format. Spaceafter = 50;
paragraf1.Range.InsertParagraphAfter();

Word. Paragraph paragraf2;
Object hedef = icerik. Bookmarks. Get_ıtem(ref dokümansonu).range; bozuk kod bu nasıl yapacağım.
Paragraf2 = icerik. Content. Paragraphs. Add(ref hedef);
Paragraf2.range. Text = "ikinci paragraf canlı yayınımız donmakta";
Paragraf2.format. Spaceafter = 100;
paragraf2.Range.InsertParagraphAfter();

Word. Paragraph paragraf3;
Hedef = icerik. Bookmarks. Get_ıtem(ref dokümansonu).range;
Paragraf3 = icerik. Content. Paragraphs. Add(hedef);
Paragraf3.range. Text = "deneme metni yazdık...";
Paragraf3.range. Font. Bold = 1;
Paragraf3.format. Spaceafter = 30;
paragraf3.Range.InsertParagraphAfter();

Word. Table olusturtablo;
Word. Range wrdrng = icerik. Bookmarks. Get_ıtem(ref dokümansonu).range;
Olusturtablo = icerik. Tables. Add(wrdrng, 3, 5, ref omissing, ref omissing);
Olusturtablo. Range. Paragraphformat. Spaceafter = 10;
İnt R, C;
String strtext;
For (r = 1; r <= 3; r++)
For (C = 1; C <= 5; C++)
{
Strtext = "satır" + r + "sütun" + C;
Olusturtablo. Cell(r, C).range. Text = strtext;
}
Olusturtablo. Rows[1].range. Font. Bold = 1;
Olusturtablo. Rows[1].range. Font. Italic = 1;

}
}
}

Nasıl düzelteceğim? Yardım edin.
 

Dosya Ekleri

  • 1714325843269.png
    1714325843269.png
    10,1 KB · Görüntüleme: 16
  • Ekran görüntüsü 2024-04-28 203422.png
    Ekran görüntüsü 2024-04-28 203422.png
    178 KB · Görüntüleme: 11

Yeni konular

Geri
Yukarı