Word Üst bilgi iki sütun halinde

tamer42

Destek Ekibi
Destek Ekibi
Katılım
11 Mart 2005
Mesajlar
2,945
Excel Vers. ve Dili
Office 2013 İngilizce
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.
 

Ekli dosyalar

  • 10.6 KB Görüntüleme: 9

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,268
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Şöyle bir şey işinize yarar mı?

Kod:
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

Destek Ekibi
Destek Ekibi
Katılım
11 Mart 2005
Mesajlar
2,945
Excel Vers. ve Dili
Office 2013 İngilizce
Şöyle bir şey işinize yarar mı?

Kod:
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

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,268
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Kod:
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

Destek Ekibi
Destek Ekibi
Katılım
11 Mart 2005
Mesajlar
2,945
Excel Vers. ve Dili
Office 2013 İngilizce
Kod:
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

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,268
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Kod:
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

Destek Ekibi
Destek Ekibi
Katılım
11 Mart 2005
Mesajlar
2,945
Excel Vers. ve Dili
Office 2013 İngilizce
Kod:
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

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,268
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Ben yanlış anlamışım, header'da sadece "AAAA" metni var diye düşünmüştüm.

Aşağıdaki şekilde deneyin;

Kod:
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
.
 
Son düzenleme:

tamer42

Destek Ekibi
Destek Ekibi
Katılım
11 Mart 2005
Mesajlar
2,945
Excel Vers. ve Dili
Office 2013 İngilizce
Ben yanlış anlamışım, header'da sadece "AAAA" metni var diye düşünmüştüm.

Aşağıdaki şekilde deneyin;

Kod:
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.
 
Üst