Macro per eliminare pagine vuote word

[Anthony47]

Il carattere 017 da quello che leggo serve (insieme al carattere 019) a gestire il colloquio con stampanti. Per rimuovere questi blocchi possiamo provare aggiungendo questo spezzone di codice alla macro precedente, da inserire tra Next i e
MsgBox ("Completato..."):

Codice: Seleziona tutto

Next i
        With Selection
            .HomeKey Unit:=wdStory
            With .Find
                .ClearFormatting
                .Text = Chr(17)
'                .Replacement.Text = fString    'non funziona
                'Cerca:
                Do While .Execute
                    fCount = fCount + 1
                    Selection.HomeKey Unit:=wdLine
                    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
                    Selection.Delete
                    Selection.MoveLeft
                Loop
            End With
            Debug.Print "Chr(017)" & " - "; fCount & " volte"
        End With
MsgBox ("Completato...")


Fai sapere...

[johnatan69]

Ci siamo quasi.
Però mi serviva che eliminasse l'intera riga...
Quindi non riuscendo a fare di meglio l'ho modificata così, inserendola prima dell'ultimo trova e sostituisci che avevo impostato:

Codice: Seleziona tutto

 With Selection
            .HomeKey Unit:=wdStory
            With .Find
                .ClearFormatting
                .Text = Chr(17)
'                .Replacement.Text = "^p^p^p^p^p^p" fString    'non funziona
                'Cerca:
                Do While .Execute
                    fCount = fCount + 1
                    Selection.HomeKey Unit:=wdLine
                    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
                    Selection.Delete
                    Selection.MoveLeft
                Loop
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "^p^p^p^p^p^p"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

E adesso sembra che funzioni...

[Anthony47]

Se funziona e' perfetta così

Alla prossima.