Word de metinleri metin kutusu dışına alma

[tamer42]

Merhabalar,

Ekli dosyada olduğu gibi yazılmış metinler, bir metin kutusu içindedir.

Metin kutusu içerisindeki bu text leri normal düz yazılmış hale, yani metin kutusu dışına nasıl getirebiliriz?

İyi Çalışmalar.

 

[hamitcan]

Aşağıdaki şekilde dener misiniz ?

Sub Makro1()
For i = 1 To ActiveDocument.Paragraphs.Count
 ActiveDocument.Paragraphs(i).OutlineDemoteToBody
Next
End Sub

 

[tamer42]

Sn Hamitcan Çok teşekkürler,

Yalnız ufak bir sıkıntım var,

Örnek; Metin kutusu dışına alırken Formatını değiştirmeden yapılabilirmi?

Örn: Bold formatında yazılı olanları normal olarak çıkartıyor.

İyi Çalışmalar.

 

[kelkitli]

Selamlar,
Sayın hamitcan, word sayfasındaki satırlardaki dökümanı excelde hücrelere alabilirmiyiz, böyle bir uygulama mümkünmüdür.

 

[hamitcan]

Sn Hamitcan Çok teşekkürler,

Yalnız ufak bir sıkıntım var,

Örnek; Metin kutusu dışına alırken Formatını değiştirmeden yapılabilirmi?

Örn: Bold formatında yazılı olanları normal olarak çıkartıyor.

İyi Çalışmalar.

Eğer gönderiğiniz dosya ise, ben de doğru yapıyor.

 

[hamitcan]

Selamlar,
Sayın hamitcan, word sayfasındaki satırlardaki dökümanı excelde hücrelere alabilirmiyiz, böyle bir uygulama mümkünmüdür.

Bence mümkün görünüyor. Belki forumda yapılmış örnekler de vardır. Ama ben de küçük bir örnek yapmaya çalışacağım.

 

[tamer42]

Sn Hamitcan,
ekteki örneğe bakarmısın,

Metin kutusu dışına alırken format değişmesin istiyorum.

İyi Çalışmalar.

 

[hamitcan]

Sub cizgileri_kaldir()
For Each aFrame In ActiveDocument.Frames
  aFrame.Delete
Next aFrame
End Sub

 

[tamer42]

Teşekkürler,

Bu word makrolarını baştan anlatan bir kaynak önerebilirmisiniz;

 

[hamitcan]

Selamlar,
Sayın hamitcan, word sayfasındaki satırlardaki dökümanı excelde hücrelere alabilirmiyiz, böyle bir uygulama mümkünmüdür.

Küçük bir örnek hazırlamaya çalıştım. Faydalı olması dileğiyle...

Sub word_to_excel()
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.WorkSheet
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)
        For Each prg In ActiveDocument.Paragraphs
            i = i + 1
            xlSheet.Cells(i, 1) = prg
        Next prg
    xlApp.Visible = True
    Set alan = xlSheet.[a1].CurrentRegion
        alan.TextToColumns Destination:=xlSheet.[a1], ConsecutiveDelimiter:=True, Tab:=True, _
            Space:=True
End Sub

 

[hamitcan]

Teşekkürler,

Bu word makrolarını baştan anlatan bir kaynak önerebilirmisiniz;

Size önereceğim kaynak, Vba içindeki Object Browser. Ben çoğu bilgiyi buradan öğrendim, tabii ki diğer bilgilerimle pekiştirerek.

 

[tamer42]

Size önereceğim kaynak, Vba içindeki Object Browser. Ben çoğu bilgiyi buradan öğrendim, tabii ki diğer bilgilerimle pekiştirerek.

Sn Hamitcan ben Object Browser i açtım, fakat öğrenmek için burayı nasıl kullanacağım?

 

[hamitcan]

Herhangi bir satırı seçip soru işaretine(?) basın.Buradaki örnekleri uygulamaya çalışın.

 

[kelkitli]

Teşekkür ederim Sayın hamitcan.

 

[tamer42]

Merhablar,

Sub cizgileri_kaldir()
For Each aFrame In ActiveDocument.Frames
  aFrame.Delete
Next aFrame
End Sub

bu kodda Frame içinde text' i nasıl görüntüleyebiliriz?

msgbox   [B]aFrame.Text[/B]

gibi...


İyi Çalışmalar.

 

[hamitcan]

Sub frame_icindeki_text_goster()
For Each aFrame In ActiveDocument.Frames
  MsgBox aFrame.Range.Text
Next aFrame
End Sub