vba - variable - macros excel

Insertar texto antes y después de la selección y establecer el estilo del nuevo texto

Question

Puedo insertar texto antes y después de la selección usando:

Selection.InsertBefore "start"
Selection.InsertAfter "end"

Pero no tengo control sobre el estilo del texto insertado. ¿Cómo puedo establecer el nuevo texto insertado en un estilo específico (y dejar el texto original seleccionado tal como está)?

Answer 1

A continuación hay dos códigos separados para manejar Insert After e Insert Before. Una vez que insertas el texto, dependiendo de dónde esté insertado, debes seleccionar el texto insertado y luego cambiar el estilo.

Sub InsertAfter()
    Dim wrd As String
    Dim rng As Range

    wrd = "End"

    Set rng = Selection.Range

    rng.InsertAfter wrd

    ''~~> Remove selection. This will move the cursor at end of selected word
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    ''~~> Select the inserted word
    Selection.MoveRight Unit:=wdCharacter, Count:=Len(wrd), Extend:=wdExtend
    ''~~> Change Style
    Selection.Style = ActiveDocument.Styles("List Paragraph")
End Sub

Sub InsertBefore()
    Dim wrd As String
    Dim rng As Range

    wrd = "Start"

    Set rng = Selection.Range

    rng.InsertBefore wrd

    ''~~> Remove selection. This will move the cursor at begining of inserted word
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    ''~~> Select the inserted word
    Selection.MoveRight Unit:=wdCharacter, Count:=Len(wrd), Extend:=wdExtend
    ''~~> Change Style
    Selection.Style = ActiveDocument.Styles("List Paragraph")
End Sub

Answer 2

Aquí hay un ejemplo simple:

Sub test()
Dim StartingCount As Long
Dim InsertBeforeCount As Long

With ActiveDocument
    StartingCount = .Characters.Count
    Selection.InsertBefore "start"
    InsertBeforeCount = .Characters.Count - StartingCount
    .Range(1, InsertBeforeCount).Font.Bold = True
    Selection.InsertAfter "end"
    .Range(StartingCount + InsertBeforeCount, .Characters.Count).Font.Italic = True
End With
End Sub