#1
|
|||
|
|||
Saving as a pdf file based on certain parameters in the document
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 Thanks in advance... |
#2
|
|||
|
|||
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 |