Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

vba word 2007: da elenco puntato a testo normale

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

vba word 2007: da elenco puntato a testo normale

Postdi karug64 » 06/03/16 15:39

Salve a tutti.
Col registratore di macro ho creato tramite vba un elenco puntato. Questo il codice:
Codice: Seleziona tutto
Selection.MoveLeft Unit:=wdCharacter, Count:=19
    Selection.MoveUp Unit:=wdLine, Count:=6
    Selection.MoveDown Unit:=wdLine, Count:=7, Extend:=wdExtend
    With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
        .NumberFormat = ChrW(61656)
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = CentimetersToPoints(0.63)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1.27)
        .TabPosition = wdUndefined
        .ResetOnHigher = 0
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = "Wingdings"
        End With
        .LinkedStyle = ""
    End With
    ListGalleries(wdBulletGallery).ListTemplates(1).Name = ""
    Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:=ListGalleries(wdBulletGallery).ListTemplates(1), ContinuePreviousList:=False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:=wdWord10ListBehavior


ma quando provo a scrivere una riga dopo questo elenco con, per esempio,

Codice: Seleziona tutto
Selection.EndKey Unit:=wdStory
    Selection.TypeParagraph
    Selection.TypeText Text:="Prova"


viene aggiunta all'elenco col simbolo a sinistra ed indentata.
NOn capisco come si fa per "uscire" dall'elenco.

Grazie
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22

Sponsor
 

Re: vba word 2007: da elenco puntato a testo normale

Postdi Anthony47 » 06/03/16 17:57

Mah... prova ad aggiungere questa linea:
Codice: Seleziona tutto
Selection.EndKey Unit:=wdStory
    Selection.TypeParagraph
    Selection.Range.ListFormat.RemoveNumbers NumberType:=wdNumberParagraph    '<<< AGGIUNGERE
    Selection.TypeText Text:="Prova"

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: vba word 2007: da elenco puntato a testo normale

Postdi karug64 » 06/03/16 19:57

Sembra funzionare così:

Codice: Seleziona tutto
Selection.Collapse Direction:=wdCollapseEnd


La soluzione proposta da te, provata, non mi da l'effetto sperato.

Grazie
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22


Torna a Applicazioni Office Windows


Topic correlati a "vba word 2007: da elenco puntato a testo normale":


Chi c’è in linea

Visitano il forum: Francesco53 e 20 ospiti