It appears from your code that the pages are separated by manual page breaks, in which case you could use Find/Replace to change them to Section breaks, then use the 'Split Merged Output to Separate Documents' macro in the Mailmerge Tips and Tricks thread (https://www.msofficeforums.com/mail-...ps-tricks.html) to do the splitting and renaming. That, of course, assumes the text containing your preferred names is in a consistent location on each page.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

In this situation I have 933 Q&As and it generates ~933 documents (but I have other documents with more than 10.000). My question was if there is any VBA code for extracting text from the document and use it as a name for that document, as I cannot install any macros. I mean, what should i write instead of this:

'build a new sequentially-numbered file name based on the original multi-paged file name and path
strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc")
ActiveDocument.SaveAs2 FileName:= _
"TEXT FROM INSIDE" _
, FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False, CompatibilityMode:=14 'save the new single-paged document


Thank you very much!

Without wanting to place too fine a point on it, VBA code and macros in the context of any Microsoft Office application are the same thing. Instead of referring to:
I could have referred to:
and it would have meant the same thing.

Whether you copy & paste the VBA code from the link I gave you (which doesn't require you to install anything) or you sit there and re-type it for yourself, you'll end up with the same thing. Regardless, the same VBA code demonstrates how you can retrieve content from a document to use in the naming of a part of that document.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

ok. got it. thanks a lot!

Hi, again!
I've tried using the "Split Merged Output to Separate Documents" macro but it asks "How many Section breaks are there per record?", I write how many there are, press OK and nothing happens.
I realized I should use the bellow code as i can use a delimiter to separate the Q&As, but still, I cannot save the documents with the text from inside it as name and it also changes the format style of the question, which initially was Heading1.
Could you kindly help??
Thanks!

Sub SplitNotes(delim As String, strFilename As String)
Dim Doc As Document
Dim arrNotes
Dim i As Long
Dim X As Long
Dim Response As Integer
arrNotes = Split(ActiveDocument.Range, delim)
Response = MsgBox("This will split the document into " & UBound(arrNotes) + 1 & " sections.Do you wish to proceed?", 4)
If Response = 7 Then Exit Sub
For i = LBound(arrNotes) To UBound(arrNotes)
If Trim(arrNotes(i)) <> "" Then
X = X + 1
Set Doc = Documents.Add
Doc.Range = arrNotes(i)
Doc.SaveAs ThisDocument.Path & "\" & strFilename & Format(X, "000")
Doc.Close True
End If
Next i
End Sub
Sub test()
'delimiter & filename
SplitNotes "///", "Notes "
End Sub