Risolto Riporta titolo in questo campo

gialandra

Utente abituale
16 Settembre 2017
672
18
Cles
Office 2010
5
Ciao, esiste la possibilità di riportare in una tabella nell'Intestazione il titolo messo in mezzo alla pagina del foglio in modo che se cambio il titolo cambia anche l'Intestazione?
 

Allegati

ggratis

VBA Expert
Staff
27 Settembre 2015
2.085
115
Lecce - Pisa
Excel 2010
123
Se selezioni il testo messo in mezzo e definisci un segnalibro che punta ad esso, puoi assegnare ad un pulsante questa macro:

Visual Basic:
Sub prova()
    Dim WDoc
    Set WDoc = ActiveDocument
        With WDoc.Sections(1).Headers(1).Range
        On Error Resume Next
        .Tables(1).Cell(1, 2).Range.Text = WDoc.Bookmarks("titolo").Range.Text
        .Tables(1).Cell(1, 2).Range.ParagraphFormat.Alignment = 1        'centro
    End With
End Sub
 
  • Like
Reactions: gialandra

gialandra

Utente abituale
16 Settembre 2017
672
18
Cles
Office 2010
5
Pensavo esistesse qualche sistema in Word che facesse questa cosa in automatico senza ricorrere al VBA, non sono esperto di Word purtroppo.
 

ggratis

VBA Expert
Staff
27 Settembre 2015
2.085
115
Lecce - Pisa
Excel 2010
123
Pensavo esistesse qualche sistema in Word che facesse questa cosa in automatico senza ricorrere al VBA,
dopo aver definito il segnalibro puoi inserire un campo con codice di campo ref riferito al titolo... apparentemente sembra che non si aggiorni, ma lo stampa correttamente Saluto_saluto
La modifica del testo la devi fare con una certa accortezza, per non cancellare la definizione del segnalibro; a tal fine, per ridefinire il titolo, devi posizionarti con il cursore dopo il primo carattere e prima dell'ultimo, digiti il tuo titolo e poi se il primo o ultimo carattere non ti servono, li cancelli.

ps: nel file è inserita anche la macro di cui sopra e, se hai attivato la scheda sviluppo, andando su macro la puoi provare
 

Allegati

Ultima modifica:

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!