PDA

View Full Version : Formatting Paragraphs



Anne Troy
08-23-2004, 08:46 AM
Can someone *efficientize* this code?


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

TonyJollans
08-23-2004, 09:17 AM
I think we need a bit more information for all that cursor movement. It doesn't make a lot of sense stand-alone.

jamescol
08-23-2004, 09:32 AM
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
08-26-2004, 08:35 PM
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
08-26-2004, 08:39 PM
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
08-26-2004, 08:43 PM
I thought you were just testing us you TaskMaster :eek: (hee hee)

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

You are too funny:yes