Alignment word vba

I am writing a vba code to get the following result.

Name of the shop(This has to be in the center)
Address of the shop(This has to be in the center)
Date(this has to be on the right side of thedocument.

On click of a button i am creting a word doc with above reults.

I have written code for this.
But when i give alignment for date as right then all the above lines also comes to right side.


And one more thing..
How can i give border to the document?

You need to change the alignment back after if you want it to be what it was before the right alignment.

Without looking at your code, it seems like you have selected all when changing the alignment!
I got that from the macro-recorder:

VB Code:

'First Line 
    Selection.TypeText Text:="Name of Shop"
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    'Second Line 
    Selection.TypeParagraph
    Selection.TypeText Text:="Adress of Shop"
    'Third Line
    Selection.TypeParagraph
    Selection.TypeText Text:="Date"
    Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    'Next Line"
    Selection.TypeParagraph
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter