Make a list in Word

[Fankango]

I am wanting to make a list of every movie i have ever seen. Go ahead and laugh. i am want to make it alphabedictly in work so i can look of them fast. is there way to do that. like i jsut enter it then it goes in place.

 

[Praetor]

You can make a macro do that? Itd be easier in excel with or without a macro though. Same goes for Access

 

[Lorand]

You can do it in Word too with "Table" / "Sort" (this works even if the text is not in a table).

 

[Praetor]

Yea i guess but can that be (easily) automated?

 

[Lorand]

Automated? What for? You can apply that sort from time to time...

 

[Praetor]

Automated? What for? You can apply that sort from time to time...

Because I want it to be automated further details are irrelevent in a "can it" or even a hypothetical question.

 

[Lorand]

Ok, here's a macro for it:

Selection.TypeText Text:="¿"
	Selection.WholeStory
	Selection.Sort ExcludeHeader:=False, FieldNumber:="Paragraphs", _
		SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, _
		FieldNumber2:="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _
		wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _
		wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _
		wdSortSeparateByTabs, SortColumn:=False, CaseSensitive:=False, LanguageID _
		:=wdLanguageNone
	Selection.MoveLeft Unit:=wdCharacter, Count:=1
	Selection.Find.ClearFormatting
	With Selection.Find
		.Text = "¿"
		.Replacement.Text = ""
		.Forward = True
		.Wrap = wdFindContinue
		.Format = False
		.MatchCase = False
		.MatchWholeWord = False
		.MatchWildcards = False
		.MatchSoundsLike = False
		.MatchAllWordForms = False
	End With
	Selection.Find.Execute
	Selection.Delete Unit:=wdCharacter, Count:=1
	Selection.TypeParagraph

Now it comes the tricky part: how to assign the "Enter" key to be its hotkey?

 

[Praetor]

Now it comes the tricky part: how to assign the "Enter" key to be its hotkey?

LOL ... wouldnt it be easier to apply the macro on Document.open?

 

[Lorand]

You asked for automation...
This macro would rearrange the list after entering each title (i.e. every time you hit the Enter key) if you could assign "Enter" as its hotkey.

 

[Praetor]

You asked for automation...

FIlter on Document.start was actually the degree of automation i was interested in ... as for binding ... i think a KeyDown=13/KeyPress=13 {run macro} should be good?

 

[Lorand]

It would be good, but how to implement it in Word?

 

[Fankango]

thanks

 

[Praetor]

It would be good, but how to implement it in Word?

No idea never could get VBA to make sense

 

[Lorand]

Me neither... The less I use Word the better...

 

[Praetor]

Yep! That autoformatting crap was nifty the first couple times and then it just got stupid