Word Absatz

Forumthread: Word Absatz
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Word Absatz

Word Absatz

30.03.2015 22:21:35

Paul

Hallo,
folende Frage: brauche den Code,der mit in einem aktiven Wordokument das Word "Exclusiones" sucht. Danach zwei Absatz einfuegt und dann quasi die Worte "Apfel", "Birne" und "Ananas" in eine einzelne Zeile einfuegt. ich bekomme es irgendwie nicht ganz hin.
sollte dann so aussehen:
Exclusiones
Apfel
Birne
Ananas
Danke,
lg Paul

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Word Absatz

31.03.2015 08:56:39

Hajo_Zi
AW: Word Absatz

31.03.2015 10:08:41

JoWE

AW: Word Absatz

31.03.2015 08:56:39

Hajo_Zi

Hallo Paul,
benutze doch ein Word Forum.
http://www.ms-office-forum.net/forum/forumdisplay.php?f=30

AW: Word Absatz

31.03.2015 10:08:41

JoWE

Hi Paul,
vllt. so:

Sub versuch()
Dim re As String
re = "Exclusiones" & vbCr & vbCr & _
vbCr & "Apfel" & vbCr & "Birne" & _
vbCr & "Ananas" & vbCr
With Selection.Find
.ClearFormatting
.Text = "Exclusiones"
.Replacement.ClearFormatting
.Replacement.Text = re
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
End Sub

Gruß
Jochen