title image


Smiley Re: Text einfügen in Word per VBA
Hallo, versuche es so:

Sub TestEinfügen()

Dim sTex1 As String, sText2 As String

sText1 = "Beispiel zentriert"

Selection.TypeText Text:=sText1

'

With Selection.Find

.ClearFormatting

.Execute FindText:=sText1, Format:=False, _

Forward:=False, Wrap:=wdFindStop

If .Found = True Then Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

End With

'

Selection.Collapse direction:=wdEnd

Selection.TypeParagraph

'

sText2 = "wie füge ich einen Text in Word per VBA ein ( zentriert). Direkt auf den ersten text soll ein weiterer text folgen, aber diesmal als blocksatz, also nicht zentriert."

Selection.TypeText Text:=sText2

'

With Selection.Find

.ClearFormatting

.Execute FindText:=sText2, Format:=False, _

Forward:=False, Wrap:=wdFindStop

If .Found = True Then Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify

End With

'

Selection.Collapse direction:=wdEnd

Selection.TypeParagraph

Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft

End Sub

      Hubert



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: