אידישע וועלט פארומס

קאוד: וועל אויס אלע

 Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.RtlPara
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:=ChrW( _
        1499) & ChrW(1502) & ChrW(1512)
    Selection.TypeText Text:=" "
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:=ChrW( _
        1506) & ChrW(1512) & ChrW(1513) & ChrW(1496) & ChrW(1506)
    Selection.TypeText Text:=" "
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:=ChrW( _
        1500) & ChrW(1506) & ChrW(1510) & ChrW(1496) & ChrW(1506)
    Selection.TypeText Text:=" "
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:=ChrW( _
        1492) & ChrW(1497) & ChrW(1493)
    Selection.TypeParagraph
    Selection.LtrPara
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:= _
        "Mailing_Name"
    Selection.TypeParagraph
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:= _
        "Address"
    Selection.TypeText Text:=" "
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="Apt"
    Selection.TypeParagraph
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="City"
    Selection.TypeText Text:=" "
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="State"
    Selection.TypeText Text:=" "
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="Zip"
    Selection.TypeText Text:=" "
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:= _
        "country"
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.MoveUp Unit:=wdLine, Count:=2, Extend:=wdExtend
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=5
    Selection.TypeParagraph
      End Sub