Formatting Paragraphs

[Anne Troy]

Can someone *efficientize* this code?

[vba]
Sub Macro1()

Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=19
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="(Da Acta de Reuni?o Ref? 1209.A.23) - """
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.MoveDown Unit:=wdLine, Count:=2, Extend:=wdExtend
Selection.MoveRight Unit:=wdCharacter, Count:=8, Extend:=wdExtend
Selection.Font.Size = 8
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.Font.Size = 10
Selection.TypeText Text:=""" - Sem Altera??o"
Selection.MoveDown Unit:=wdLine, Count:=2
Selection.MoveRight Unit:=wdCharacter, Count:=3
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Copy
Selection.MoveUp Unit:=wdLine, Count:=3
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=15
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Paste
Selection.MoveUp Unit:=wdLine, Count:=2
Selection.MoveRight Unit:=wdCharacter, Count:=15
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Paste
End Sub
[/vba]

[TonyJollans]

I think we need a bit more information for all that cursor movement. It doesn't make a lot of sense stand-alone.

[jamescol]

I think we need a bit more information for all that cursor movement. It doesn't make a lot of sense stand-alone.

Whew! I'm glad to know it wasn't just me

[JOrzech]

I'd be happy to help DB - but we need to know what you are trying to accomplish. It looks like the document has a specific format and certain wording in which you're adding Spanish text and changing fonts, copying and pasting... give us a clue?

Dang nabit DB! Is this a test? :rofl

[Anne Troy]

Not a test.
I'm just posting something I saw from somewhere else.
We can delete it.
I don't even remember where it was posted anymore.

[JOrzech]

I thought you were just testing us you TaskMaster (hee hee)

And I see you're making up your own words now... "efficientize"????

You are too funny