Сохранение файлов Word в PDF с именем из списка

@siv14 · Регистрация: 30.10.2012

Студворк — интернет-сервис помощи студентам

Добрый день! Попрошу у Вас помощи. Есть документ в котором кроме текста есть "Поле со списком". Надо сохранить этот документ в PDF формате, но в имя файла вставить текст из "Поля со списком".

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim s$, strDate$, strPath$, r As Boolean, S1$, k As Range
 
k = ThisDocument.Range
s = ActiveDocument.Name
 
strPath = "d:\$Макросы\"
strDate = Format(Now, "mmdd")
    S1 = Split(s, ".")(UBound(Split(s, ".")))
    s = Trim(Left(s, Len(s) - Len(S1) - 1))
 
k.Find.Text = "книга"
If k.Find.Execute Then k.Copy
 
    s2 = s & "_" & strDate & "_" & k & ".pdf"
 
 ActiveDocument.ExportAsFixedFormat OutputFileName:=strPath & "\" & s2, ExportFormat:=wdExportFormatPDF

Ошибка: Недопустимое имя файла
Что надо исправить?

@siv14 · 12.09.2017, 11:44 **[ТС]**

Тестовый файл

@Homarty · 13.09.2017, 11:22

Попробуйте после строки

Visual Basic
1
    s2 = s & "_" & strDate & "_" & k & ".pdf"

вставить

Visual Basic
1
s2 = strPath & s2

Обратиться к тексту поля можно, например, вот так

Visual Basic
1
s2 = s & "_" & strDate & "_" & ThisDocument.ContentControls(1).Range & ".pdf"

@siv14 · 13.09.2017, 12:00 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim s$, strDate$, strPath$, r As Boolean, S1$, k As Range
 
k = ThisDocument.Range
s = ActiveDocument.Name
 
strPath = "d:\$Макросы\"
strDate = Format(Now, "mmdd")
    S1 = Split(s, ".")(UBound(Split(s, ".")))
    s = Trim(Left(s, Len(s) - Len(S1) - 1))
 
k.Find.Text = "книга"
If k.Find.Execute Then k.Copy
 
    s2 = s & "_" & strDate & "_" & k & ".pdf"
    s2 = strPath & s2
 
ActiveDocument.ExportAsFixedFormat OutputFileName:=strPath & "\" & s2, ExportFormat:=wdExportFormatPDF

1. Ругается на эту строку:
ActiveDocument.ExportAsFixedFormat OutputFileName:=strPath & " \ " & s2, ExportFormat:=wdExportFormatPDF
Недопустимое имя файла!

2. Если ставлю:
s2 = s & "_" & strDate & "_" & ThisDocument.ContentControls(1).Range & ".pdf"

Запрашиваемый номер семейства не существует

@Homarty · 15.09.2017, 10:05

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    Dim s$, strDate$, strPath$
    Dim r As Boolean, S1$, k As Range
    With ActiveDocument
        s = .Name
        strPath = "g:\cyberForum\"
        strDate = Format(Now, "mmdd")
        S1 = Split(s, ".")(UBound(Split(s, ".")))
        s = Trim(Left(s, Len(s) - Len(S1) - 1))
        For Each v In .ContentControls
            If v.Type = wdContentControlComboBox Then
                s2 = s & "_" & strDate & "_" & v.Range & ".pdf"
                s2 = strPath & s2
                .ExportAsFixedFormat OutputFileName:=s2, ExportFormat:=wdExportFormatPDF, _
                OptimizeFor:=wdExportOptimizeForPrint
                Exit For
            End If
        Next
    End With

у меня это работает.

@Филимонова Елен · 11.10.2023, 15:35

Здравствуйте! Не решилась создать новую тему, т.к. у меня запрос очень похож. Есть макрос сохранения отдельных листов в Ворде, но хочется, чтобы имя присваивалось не 1,2,3...., а из первой строки каждого листа. Например, "Магазин Вольная 28/4". Помогите, пжлст!!!!
Да, и их может быть несколько одинаковых, поэтому Например, "Магазин Вольная 28/4 1", Например, "Магазин Вольная 28/4 2" и т.д.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Макрос2()
'
' Макрос2 Макрос
'
'
For i = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages)
 
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToPage, Name:=Str(i)
    Selection.GoTo What:=wdGoToBookmark, Name:="\page"
    Selection.Find.ClearFormatting
    Selection.Copy
    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^m"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ChangeFileOpenDirectory _
        "C:\Users\efilimonova\Desktop\Отпуск формирование уведомлений"
    ActiveDocument.SaveAs2 FileName:="" + Str(i) + ".docx", _
        FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False, CompatibilityMode:=15
    ActiveWindow.Close
    Next i
End Sub

@Zeag · 12.10.2023, 23:38

Сообщение от Филимонова Елен

"Магазин Вольная 28/4 1"

Замечу, что такой файл вы не создадите, надо дробь чем-то заменить - скажем, подчеркиванием.

@Филимонова Елен · 13.10.2023, 00:19

Да, учту, спасибо!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Филимонова Елен 0 / 0 / 0 Регистрация: 12.06.2023 Сообщений: 6
	13.10.2023, 00:19
	Да, учту, спасибо! 0