title image


Smiley VBA in Word: Absätze mit bestimmter Formatvorlage an best. Stelle kopieren
Hallo



In etwa wie folgt:



Bye



Sub TestA()

Dim x() As String

Dim Absatz As Paragraph, oTable As Table, oRange As Range

strT = "Kapitelnummer" & vbTab & "Kapitel" & vbCrLf

For Each Absatz In ActiveDocument.Paragraphs

If Absatz.OutlineLevel = wdOutlineLevel2 Then

If Left(Absatz.Range.ListFormat.ListString, 2) = "2." Then

strT = strT & Absatz.Range.ListFormat.ListString & vbTab & Absatz.Range.Text

End If

End If

Next

Set oRange = ActiveDocument.Paragraphs.Last.Range

oRange.InsertAfter strT & vbCrLf

oRange.SetRange oRange.Start, oRange.End - 2

Set oTable = oRange.ConvertToTable(Separator:=vbTab, Format:=wdTableFormatProfessional, AutoFit:=True)

End Sub



Häufig gestelllte Fragen zu MS Word und Word-VBA
Index Inhalt



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: