Condividi:        

Word 2007 - Macro trova riga

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

Word 2007 - Macro trova riga

Postdi mattia_2004 » 03/04/18 18:02

Chiedo cortese aiuto.
Vorrei creare una macro che mi permetta, all'interno di una file word, di trovare la riga che inizia per "-------" quindi evidenziate tutto il testo esistente dalla riga precedente fino all'inizio pagina, copiarlo ed incollarlo in nuovo documento.
Grazie Mattia
mattia_2004
Newbie
 
Post: 1
Iscritto il: 23/03/18 19:43

Sponsor
 

Re: Word 2007 - Macro trova riga

Postdi patel » 04/04/18 11:44

prova questa
Codice: Seleziona tutto
Sub trovaCopia()
    Selection.HomeKey Unit:=wdStory 'inizio del documento
    With Selection.Find
        .Text = "------"
        .Execute
    End With
    LineN = Selection.Range.Information(wdFirstCharacterLineNumber)
    Selection.MoveUp Unit:=wdLine, Count:=LineN, Extend:=wdExtend
    Selection.Copy

    Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub
patel
Utente Senior
 
Post: 309
Iscritto il: 24/04/12 16:03


Torna a Applicazioni Office Windows


Topic correlati a "Word 2007 - Macro trova riga":


Chi c’è in linea

Visitano il forum: Nessuno e 52 ospiti