Word dosyasına yaz ve fontu değiştir

[tamer42]

Merhaba,

Excel ortamından bir word dosyasına kayıt yaparken (aşağıdaki kod) bazı satırlarda yazılan metinin font bilgilerini değiştirmek (Arial / Bold) istiyorum.

Örnek 20. satırda word dosyasına ilgili metini yazdıktan sonra bu metinin fontunu BOLD yapmak istersek kod üzerinde nasıl bir düzenleme yapmak gerekecektir.

.....................................
..............................................
   Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    Dim i As Integer
    Dim Spr As Variant

    Set wrdApp = CreateObject("Word.Application")
       Set wrdDoc = wrdApp.Documents.Add

    Spr = Application.PathSeparator
     
   wPath = ThisWorkbook.Path & Spr & "Word"
        
        wName = wPath & Spr & "MyNewWordDoc.doc"
    
    With wrdDoc
        For i = 1 To 100
            .Content.InsertAfter "Here is a sample test line #" & i
            .Content.InsertParagraphAfter
        Next i
..............................................
..............................................
[code]

Sağlıklı günler...

 

[halit3]

Bir çok yöntemi vardır ben sadece bir tanesini yazıyorum.

Sub deneme()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim i As Integer
Dim Spr As Variant

Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Add
Spr = Application.PathSeparator
wPath = ThisWorkbook.Path & Spr & "Word"
wName = wPath & Spr & "MyNewWordDoc.doc"
With wrdDoc
wrdApp.Visible = True
For i = 1 To 100
.Content.InsertAfter "Here is a sample test line #" & i
.Content.InsertParagraphAfter

If i Mod 20 = 0 Then
wrdApp.ActiveDocument.Paragraphs(i).Range.Bold = True
Else
wrdApp.ActiveDocument.Paragraphs(i).Range.Bold = False

End If
Next i
End With
End Sub

 

[tamer42]

Bir çok yöntemi vardır ben sadece bir tanesini yazıyorum.

Sub deneme()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim i As Integer
Dim Spr As Variant

Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Add
Spr = Application.PathSeparator
wPath = ThisWorkbook.Path & Spr & "Word"
wName = wPath & Spr & "MyNewWordDoc.doc"
With wrdDoc
wrdApp.Visible = True
For i = 1 To 100
.Content.InsertAfter "Here is a sample test line #" & i
.Content.InsertParagraphAfter

If i Mod 20 = 0 Then
wrdApp.ActiveDocument.Paragraphs(i).Range.Bold = True
Else
wrdApp.ActiveDocument.Paragraphs(i).Range.Bold = False

End If
Next i
End With
End Sub

Çok teşekkürler Sn Halit

Sağlıklı ve mutlu günler....