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
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