Creating an Address Book for home use and Christmas Card labels

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

What is the best way to set up an address book/phone book for home use? I
also want to use this same book to print out label for Christmas cards. What
is the best way to do all of this?
 
Row 1 you have separate column titles for Lastname, Firstname, Address, City,
State or Province, ZIP or Postal Code, Phone Number.

Enter your data row by row for each person on your list.

Then have a look at using Word for the Labels.

For help on Word mail merge using Excel or Access as the data source.

http://www.mvps.org/dmcritchie/excel/mailmerg.htm

http://www.mvps.org/word/FAQs/MailMerge/CreateAMailMerge.htm

http://www.mvps.org/word/FAQs/MailMerge/CreateADataSource.htm


Gord Dibben MS Excel MVP
 
I have one I set up years ago with name, address, city, st zip, etc. For
xmas I put an x in a supplemental column and use

Sub openxmas()
Dim appWD As Object
Dim wdDoc As Document
Set appWD = CreateObject("Word.Application")
appWD.Visible = True
appWD.ChangeFileOpenDirectory ActiveWorkbook.Path
appWD.Documents.Open Filename:="XmasListEnvelopes.doc"
Set wdDoc = appWD.ActiveDocument
End Sub


Sub GetMailMergeList()
ClearRows = Cells(Rows.Count, "a").End(xlUp).Row + 1
Rows("3:" & ClearRows).Clear

x = Sheets("addresses").Cells(Rows.Count, "a").End(xlUp).Row
For Each c In Sheets("Addresses").Range("a5:a" & x)
If UCase(c.Offset(0, 10)) = "X" Then
x = [mailmerge!a65536].End(xlUp).Row + 1
myname = c.Offset(0, 2) & " " & c.Offset(0, 1) & " " & c
Sheets("mailmerge").Range("a" & x) = Trim(Application.Proper(myname))
Sheets("mailmerge").Range("b" & x) = c.Offset(0, 3)
Sheets("mailmerge").Range("c" & x) = c.Offset(0, 4)
End If
Next
End Sub
 
If you have the information in your Windows Address Book,
then you can export it to a file that you can use in Excel.
You will only get the General not the Shared names though.

Then you can continue with the previous suggestions.

For a listing in Excel I would put the phone number first
then you can see the phone number to left and the
address information to the right of sorted name columns.
It is easy to grab and move columns around in Excel
http://www.mvps.org/dmcritchie/excel/fillhand.htm#mouse
 
Back
Top