Как макросом задать имя сохраняемого файла из содержимого нескольких закладок?

@mo2002om · Регистрация: 20.05.2014

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

Подскажите. Что нужно добавить или изменить в макросе чтобы сцепить содержимое нескольких закладок для создания имени сохраняемого файла в Word 2007, 2010?

Visual Basic
1
2
3
4
5
Private Sub CommandButton4_Click()
    Selection.GoTo What:=wdGoToBookmark, Name:="nomerakta" 'выбираем закладку
    ChangeFileOpenDirectory "E:\Акты" 'папка для сохранения файла
    ActiveDocument.SaveAs2 FileName:="Акт №" & Selection & ".doc" 'новое имя сохраняемого файла
End Sub

Пример: Акт №1 08.12.2014 г. (Закладки в примере: 1-nomerakta, 08-data, 12-mesjac, 2014-god)

@ikki · 08.12.2014, 00:54

Visual Basic
1
2
3
4
5
with activedocument
  s = "Акт №" & .bookmarks("nomerakta").range
  s = s & " " & .bookmarks("data").range
  ' ну и так далее
end with

@mo2002om · 08.12.2014, 23:16 **[ТС]**

ikki спасибо за помощь, но видно я где-то, что-то упустил. При запуске макроса происходит остановка с сообщением об ошибке в 3-ей строке.

@ikki · 08.12.2014, 23:36

Сообщение от mo2002om

где-то, что-то

если кто-то кое-где у нас порой...
не форум экстрасенсов, однако.
файлик приложить можете?

@mo2002om · 09.12.2014, 00:12 **[ТС]**

Не сердитесь, я исправился. Сделал код приведённый ниже и теперь всё работает. Ещё раз, Спасибо.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton4_Click()
Dim S, s1, s2, s3  As String
        ChangeFileOpenDirectory "E:\Акты\" 'папка для сохранения файла
        With ActiveDocument
        s1 = "Акт №" & .Bookmarks("nomerakta").Range
        s2 = s1 & " от " & .Bookmarks("data").Range
        s3 = s2 & " " & .Bookmarks("mesjac").Range
        S = s3 & " " & .Bookmarks("god").Range
        End With
ActiveDocument.SaveAs FileName:=S & " года" & ".doc" 'новое имя сохраняемого файла
End Sub

@101 · 09.12.2014, 00:26

на самом деле, все делается изящнее

@mo2002om · 09.12.2014, 00:30 **[ТС]**

Сообщение от 101

на самом деле, все делается изящнее

Если не трудно, подскажите, научите. Тогда и я буду делать изящно, а пока, как получается.

@101 · 09.12.2014, 00:52

Этому нельзя просто так взять и научиться, это нужно пережить
переварить знатьб все константы, все типы данных переменные API ...

Добавлено через 2 минуты
Прикол... эй быстро научи меня говорить по английски..

Добавлено через 8 минут
а хочеш сделаю ?

Добавлено через 40 секунд
и ты увидиш разницу ))

Добавлено через 2 минуты
во первых.. первый и самый главный твой косяк в том, что ты не видиш отступов в открывающих операторах

Добавлено через 3 минуты
ты действуеш по принципу если оно работает то надо это скопировать
и без разницы как я скопировал, главное чтобы заработало

Новые блоги и статьи Все статьи Все блоги /
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(), которая. . .

@mo2002om 0 / 0 / 0 Регистрация: 20.05.2014 Сообщений: 23
	08.12.2014, 23:16 [ТС]
	ikki спасибо за помощь, но видно я где-то, что-то упустил. При запуске макроса происходит остановка с сообщением об ошибке в 3-ей строке. 0

@101 Заблокирован
	09.12.2014, 00:26
	на самом деле, все делается изящнее 0

@101 Заблокирован
	09.12.2014, 00:52
	Этому нельзя просто так взять и научиться, это нужно пережить переварить знатьб все константы, все типы данных переменные API ... Добавлено через 2 минуты Прикол... эй быстро научи меня говорить по английски.. Добавлено через 8 минут а хочеш сделаю ? Добавлено через 40 секунд и ты увидиш разницу )) Добавлено через 2 минуты во первых.. первый и самый главный твой косяк в том, что ты не видиш отступов в открывающих операторах Добавлено через 3 минуты ты действуеш по принципу если оно работает то надо это скопировать и без разницы как я скопировал, главное чтобы заработало 0

Как макросом задать имя сохраняемого файла из содержимого нескольких закладок?

Решение