Avrei la necessità in Word di far diventare la seconda riga dopo il "Titolo 1" "Titolo 2"

Question

Buon giorno,

ho 4000 pagine da sistemare e ad ogni pagina ho un "Titolo 1" dovrei far diventare la riga successiva in "Titolo 2" è possibile farlo con una macro? Mi potete aiutare?

Grazie

Alberto Giovacchini

xxx@gmail.com

P.S.

Sono le mie poesie

**Email nascosta per la privacy**

Answer 1

La risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o parole insolite.

Ciao Alerto Giovacchini,

Grazie per il tuo feedback!

Siamo lieti di sapere che è stato utile e ti chiediamo di contrassegnare la mia ultima risposta come corretta facendo clic su "Sì" sotto di essa. Questo aiuterà molto gli utenti con domande simili.

Sentiti libero di tornare in questa community per discutere o porre domande sui prodotti Microsoft in futuro. Saremo lieti di aiutarvi!

Migliori saluti

Ian - MSFT | Specialista del supporto della community Microsoft

Answer 2

Grazie mi ha fatto tutto perfettamente le auguro una buona giornata.

Grazie ancora

Al erto Giovacchini

Answer 3

La risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o parole insolite.

Ciao GIOVACCHINI Alberto,

Benvenuto nella community Microsoft.

Non ho un documento così grande da testare, ma ho fatto un semplice test utilizzando il seguente codice e ho scoperto che funzionava. Non sei sicuro che lo stesso valga per i tuoi documenti più grandi, ma provalo. Per ogni evenienza, assicurati di creare una copia del tuo documento facendo clic su File->Salva con nome prima di eseguire il test.

• Premere ALT+F11 per aprire l'editor VBA
• Inserire un nuovo modulo facendo clic con il pulsante destro del mouse in Esplora progetti a sinistra
• Incolla il codice sopra ed esci.
• Premere ALT+F8 per eseguire la macro. Sub InsertHeadingAfterHeading1()

    Dim para As Paragraph
  
    Dim rng As Range
  
    Dim newPara As Paragraph
  
    Const heading2Text As String = "Titolo 2"
  
    For Each para In ActiveDocument.Paragraphs
  
        If para.Style = ActiveDocument.Styles("Heading 1") Then
  
            Set rng = para.Range
  
            rng.Collapse Direction:=wdCollapseEnd
  
            Set newPara = ActiveDocument.Content.Paragraphs.Add(rng)
  
            newPara.Range.Text = heading2Text
  
            newPara.Style = ActiveDocument.Styles("Heading 2")
  
        End If
  
    Next para
  

  End Sub

Quanto sopra è solo un semplice test, potrebbero essere necessarie alcune modifiche, quindi per favore fammi sapere se riscontri problemi.

Migliori saluti

Ian - MSFT | Specialista del supporto della community Microsoft