Save doc file as per text in the document

[TZ Saic]

Dear all,

I would appreciate your help with following:

Attached doc file should be saved as 12345678912.docx

I had in mind function MID, but I can't get it to work properly. Most probable because there are more lines in this cell.

Thank you,
t.

ip1 only find and save.docx

[antoka05]

You could use this code:

Sub Macro1()
   Dim myText As String, p1 As Long
   Dim p2 As Long, p3 As Long, idNum As String
   
   Application.DisplayAlerts = wdAlertsNone
   myText = ActiveDocument.Range
   p1 = InStr(myText, "II. PODACI ")
   p2 = InStr(p1, myText, "3. Osobni identifikacijski broj")
   p3 = InStr(p1, myText, "4. IBAN")
   idNum = Trim(Replace(Mid(myText, p2 + 31, p3 - p2 - 33), vbTab, ""))
   
   ActiveDocument.SaveAs2 FileName:=idNum & ".docx", _
            FileFormat:=wdFormatXMLDocument, LockComments:=False, _
            Password:="", AddToRecentFiles:=True, WritePassword:="", _
            ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
            SaveNativePictureFormat:=False, SaveFormsData:=False, _
            SaveAsAOCELetter:=False, CompatibilityMode:=14
   
   
   Application.DisplayAlerts = wdAlertsAll
End Sub

Regards,
Antonio