Saving as a pdf file based on certain parameters in the document

mery · #1 06-06-2023, 01:50 AM

I need a little help. I tried to make a code that will make my future work much easier. The ultimate goal of the code I want to get is to save it as a pdf file based on certain data in this document.

Variable parameters are:
- Surname (Father's name) Name, which is in the 2nd paragraph.

- The name of the unit, which is in the 5th paragraph
- to the text after the word ID

My idea is that the file is saved for example "7. electoral unit MONICA (George) HENDERSON Sample 278B" which is what I got with this code.
However, when the name is changed in the fifth paragraph and if there are more or less words than 4 (currently the 7. electoral unit), then I cannot save it as a pdf file ("This is not valid filename" error).
In order to be able to save it, I have to change the code and enter the number of words in that paragraph, for example:

If it is stated in paragraph 5 "Main office" I have to change it

Code:

With rngLine5
         .End = .Start
         .MoveEnd wdWord, 2
         rngFilename = .Text
End With

How do I get the string from the fifth paragraph no matter how many words it has?

Thanks in advance...

mery · #2 06-06-2023, 09:12 AM

Solved

Code:

Sub sample2()


Dim srchRng As Range
Dim a As String, b As String, c As String

Set srchRng = ActiveDocument.Content


With srchRng.Find
    .Text = "ID:"
    .Execute
    If .Found = True Then
        Dim numberstart As Long
        numberstart = Len(srchRng.Text) + 1
        srchRng.MoveEndUntil Cset:=","

        Dim mynum As String
        mynum = Mid(srchRng.Text, numberstart)
    End If
End With
c = mynum

For nSectionNum = 1 To ActiveDocument.Sections.Count
Selection.GoTo What:=wdGoToSection, Which:=wdGoToNext, Name:=nSectionNum
ActiveDocument.Sections(nSectionNum).Range.Copy
     

Next nSectionNum
  

Dim oRng As Range
Dim oPara As Paragraph
Dim b As String, a As String

Set oPara = ActiveDocument.Paragraphs(5)
Set oRng = oPara.Range
oRng.End = oRng.End - 1
b = oRng.Text

Set oPara = ActiveDocument.Paragraphs(2)
Set oRng = oPara.Range
oRng.End = oRng.End - 1
a = oRng.Text

  
ActiveDocument.ExportAsFixedFormat OutputFileName:="E:\test\" & b & " " & a & " " & "Sample" & "" & c & ".pdf", _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False



End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Need to create document that will auto insert text based on parameters	parisfranco	Word	13	07-25-2017 03:21 PM
How to pass parameters to a .msg file?	HereNow	Outlook	0	11-05-2012 10:38 AM
Saving a contacts view parameters	markjl	Outlook	0	01-26-2011 04:19 AM
Update Document Template when Saving the Document File	bjbercaw	Word	3	11-16-2010 02:03 PM
Saving Word document creates a duplicate transparent file	bbailey	Word	0	12-05-2009 10:54 PM