Dal codice non mi e' chiaro quanti file sono coinvolti, ne' quale e' il file che deve essere chiuso e quale rimanere aperto.
Questa macro, partendo dal file attivo:
-copia le righe da 2 a 10
-crea un nuovo file vuoto
-vi incolla il copiato dal file precedente
-torna al file di partenza
-TUE ISTRUZIONI manipolano il file di partenza
-si possono ripetere le istruzioni di seleziona e copia
-accoda queste nuove righe al file creato
-salva e chiude il file creato
-torna al file di partenza
Il codice:
- Codice: Seleziona tutto
Sub MacroKiuba()
Dim Doc1 As Document, DocOut As Document
Dim NomeF As String, PathF As String, NomeFull As String
'
Set Doc1 = ActiveDocument
Selection.HomeKey Unit:=wdStory, Extend:=wdMove 'Vai a Inizio
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdMove 'Vai a riga 2
Selection.MoveDown Unit:=wdLine, Count:=9, Extend:=wdExtend 'Seleziona 9 righe
Selection.Copy
Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
Set DocOut = ActiveDocument
DocOut.Activate
Selection.PasteAndFormat (wdFormatOriginalFormatting)
Stop '<<< Solo per test, poi togliere
'
'INIZIO SECONDA FASE:
Doc1.Activate 'Torna al doc principale
'
'Inserisci QUI altri tuoi comandi
'
'Qui devi ripetere le istruzioni Seleziona e Copia
'
DocOut.Activate 'Vai al doc creato
Selection.EndKey Unit:=wdStory, Extend:=wdMove 'Vai al fondo
Selection.PasteAndFormat (wdFormatOriginalFormatting) 'Incolla il copiato
'SALVATAGGIO FILE CREATO:
With ActiveDocument
' .XMLSaveDataOnly = False
.XMLUseXSLTWhenSaving = False
.XMLSaveThroughXSLT = ""
' .XMLHideNamespaces = False
.XMLShowAdvancedErrors = False
.XMLSchemaReferences.HideValidationErrors = False
.XMLSchemaReferences.IgnoreMixedContent = False
.XMLSchemaReferences.ShowPlaceholderText = False
End With
NomeF = "Pippo" '<<<
PathF = "C:\Users\Utente1\OneDrive\" '<<<
NomeFull = PathF & NomeF
ActiveDocument.SaveAs2 FileName:=NomeFull, FileFormat:=wdFormatXML, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, CompatibilityMode:=0
ActiveDocument.Close
Doc1.Activate
Selection.HomeKey Unit:=wdStory
End Sub
Il codice va inserito in un modulo standard del tuo file word principale (immagino); le istruzioni marcate <<< vanno adattate al tuo caso; l'istruzione Stop e' inserita solo per il debug, ovviamente va tolta quando il codice e' completo
Ricchi commenti aiutano a seguire il flusso
Fai sapere...