Word Üst bilgi iki sütun halinde

[tamer42]

Merhaba,
Word dosyasında üst bilgiyi makro ile iki sütun halinde düzenlemek istiyorum,
şöyle ki ekli Word dosyasındaki ;

AAAAAAA ile CCCCCC kelimeleri birinci sütunda;
BBBBBBBB ile DDDDDDDD kelimeleri 2. sütunda üst-bilgi olacak şekilde kod ile nasıl oluşturabiliriz.

Ayrıca 1. sütun sol tarafa dayalı, 2. sütun sağ tarafa dayalı olacak şekilde

Teşekkürler,

iyi Çalışmalar.

 

[Haluk]

Şöyle bir şey işinize yarar mı?

Sub Test()
    'Haluk - 06/11/2019
    'sa4truss@gmail.com
    '
    For i = 1 To ActiveDocument.Sections.Count
       With ActiveDocument.Sections(i)
         .Headers(wdHeaderFooterPrimary).Range.Paragraphs.Alignment = wdAlignParagraphCenter
         .Headers(wdHeaderFooterPrimary).Range.Font.Name = "Arial"
         .Headers(wdHeaderFooterPrimary).Range.Font.Size = 9
         .Headers(wdHeaderFooterPrimary).Range.Text = "AAAA" & vbTab & vbTab & "BBBB" & vbCrLf & "CCCC" & vbTab & vbTab & "DDDD"
       End With
     Next
End Sub

.

 

[tamer42]

Şöyle bir şey işinize yarar mı?

Sub Test()
    'Haluk - 06/11/2019
    'sa4truss@gmail.com
    '
    For i = 1 To ActiveDocument.Sections.Count
       With ActiveDocument.Sections(i)
         .Headers(wdHeaderFooterPrimary).Range.Paragraphs.Alignment = wdAlignParagraphCenter
         .Headers(wdHeaderFooterPrimary).Range.Font.Name = "Arial"
         .Headers(wdHeaderFooterPrimary).Range.Font.Size = 9
         .Headers(wdHeaderFooterPrimary).Range.Text = "AAAA" & vbTab & vbTab & "BBBB" & vbCrLf & "CCCC" & vbTab & vbTab & "DDDD"
       End With
     Next
End Sub

.

Sn Haluk çok teşekkürler,

bu şekilde bir üst bilgi mevcut lan dosyada "AAAA" ifadesini bulup bunu "EEEEEE" olarak değiştirecek bir düzenlemeyi yapabilir miyiz?

diğer bir deyişle (1. satır) sol taraftaki kelime "EEEEEE" olacak, diğerleri eskisi gibi aynen kalacak.


iyi Çalışmalar.

 

[Haluk]

Sub Test2()
    'Haluk - 06/11/2019
    'sa4truss@gmail.com
    '
    For i = 1 To ActiveDocument.Sections.Count
       With ActiveDocument.Sections(i)
         .Headers(wdHeaderFooterPrimary).Range.Text = Replace(.Headers(wdHeaderFooterPrimary).Range.Text, "AAAA", "EEEE")
       End With
     Next
End Sub

.

 

[tamer42]

Sub Test2()
    'Haluk - 06/11/2019
    'sa4truss@gmail.com
    '
    For i = 1 To ActiveDocument.Sections.Count
       With ActiveDocument.Sections(i)
         .Headers(wdHeaderFooterPrimary).Range.Text = Replace(.Headers(wdHeaderFooterPrimary).Range.Text, "AAAA", "EEEE")
       End With
     Next
End Sub

.

Sn Haluk ilginize çok teşekkür ederim,

müsaadelerinizle son bir soru daha sormak istiyorum, üst-bilgide yalnızca "AAAA" yazan metinin fontu "BOLD" , Font Size = 10 yapmak istersek nasıl bir yol izlememiz gerekecek,

iyi akşamlar dilerim.

 

[Haluk]

Sub Test3()
    'Haluk - 06/11/2019
    'sa4truss@gmail.com
    '
    For i = 1 To ActiveDocument.Sections.Count
       With ActiveDocument.Sections(i)
         .Headers(wdHeaderFooterPrimary).Range.Font.Size = 10
         .Headers(wdHeaderFooterPrimary).Range.Font.Bold = True
       End With
     Next
End Sub

.

 

[tamer42]

Sub Test3()
    'Haluk - 06/11/2019
    'sa4truss@gmail.com
    '
    For i = 1 To ActiveDocument.Sections.Count
       With ActiveDocument.Sections(i)
         .Headers(wdHeaderFooterPrimary).Range.Font.Size = 10
         .Headers(wdHeaderFooterPrimary).Range.Font.Bold = True
       End With
     Next
End Sub

.

Sn Haluk burada tüm kelimeleri BOLD yapıyor, oysa sadece birinin (sol-en üst) BOLD olmasını istemiştim, diğerleri normal olacak.

teşekkürler, iyi akşamlar.

 

[Haluk]

Ben yanlış anlamışım, header'da sadece "AAAA" metni var diye düşünmüştüm.

Aşağıdaki şekilde deneyin;

Sub Test4()
    For i = 1 To ActiveDocument.Sections.Count
        Set myRng = ActiveDocument.Sections(i).Headers(wdHeaderFooterPrimary).Range
        myRng.Find.Execute FindText:="AAAA"
        If myRng.Find.Found = True Then
            myRng.Font.Bold = True
            myRng.Font.Size = 10
        End If
    Next
End Sub

.

 

[tamer42]

Ben yanlış anlamışım, header'da sadece "AAAA" metni var diye düşünmüştüm.

Aşağıdaki şekilde deneyin;

Sub Test4()
    For i = 1 To ActiveDocument.Sections.Count
        Set myRng = ActiveDocument.Sections(i).Headers(wdHeaderFooterPrimary).Range
        myRng.Find.Execute FindText:="AAAA"
        If myRng.Find.Found = True Then
            myRng.Font.Bold = True
            myRng.Font.Size = 10
        End If
    Next
End Sub

.

Çok teşekkür ederim Haluk hocam, emeğinize sağlık!
iyi çalışmalar.