Переименовать текущий документ

@Ципихович Эндрю · Регистрация: 10.04.2009

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

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

Добавлено через 3 минуты
вау, после закрытия переименованного прогой документа получаю ошибку
Runtime error 216 at 08394BDA ну и нафиг такое переименовынание)))

SoftIce · 21.10.2019, 11:30

Сообщение от Ципихович Эндрю

дело в шляпе

И в конце концов пришёл к тому же, о чем я и писал.

Остап Бонд · 21.10.2019, 12:19

ActiveDocument.Path & "" & ActiveDocument.Name = ActiveDocument.FullName
но Катастрофа не ищет легких путей

@Ципихович Эндрю · 21.10.2019, 12:22 **[ТС]**

ок, спс, чуть подзабыл

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Sub ReName()
 
'Debug.Print ActiveDocument.Path
'Debug.Print ActiveDocument.FullName
    Dim KillKill As String
    KillKill = ActiveDocument.FullName
    ActiveDocument.SaveAs ActiveDocument.Path & "\New" & ActiveDocument.Name, 0
    'удаляет файл мимо корзины
    Kill KillKill
 
End Sub

Новые блоги и статьи Все статьи Все блоги /
Установка нескольких штампов электронной подписи в строго определенных местах файла docx ВладимирСамохин 19.07.2026 (В!) Работа с Электронной подписью - это неотъемлемая часть современного документооборота. Но что делать, если нужно поставить несколько штампов электронной подписи в строго определенных местах. . .	сукцессия 35. Научная статья о проделанной работе anaschu 19.07.2026 Написал в формате латекс и пдф	Вангую, что это не пройдёт модерацию, и на неделе я запущу свой сервер. Hrethgir 19.07.2026 Эта публикация сейчас в песочнице и ждёт приглашения. https:/ / habr. com/ ru/ sandbox/ 295048/ начало и оглавление - Как «пернатого» заставить осваивать новые горизонты опыта через масштабирование. . .	сукцессия 33. открытые вопросы от клауде anaschu 19.07.2026 "Что накопилось за эту часть А — тринадцать правок, из которых шесть пришли из ваших вопросов и каждая оказалась реальной ошибкой, а не калибровкой: односторонний симбиоз, отсутствующий листопад,. . .
32 сукцессия anaschu 19.07.2026 сукцессия 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не «подкручивает» сходимость —. . .	сукцессия 31: модель микоризы - это модель ещё нескольких явлений, социальных и экономических anaschu 18.07.2026 Теория «Всего»: апдейт v1. 1. 2 — 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не. . .	сукцессия 30. Массив проверяющих друг друга моделей anaschu 18.07.2026 Архитектура сети взаимопроверяющих моделей микоризной сукцессии (v2. 0) Развитие тензорного ОДУ-ядра и создание кросс-платформенного калибровочного полигона Уважаемые коллеги! В продолжение. . .	Грибы - это женщины, деревья - это мужчины. Анти инь янь для союза мужчины и женщины. anaschu 18.07.2026 ГЛАВНЫЙ НАУЧНО-ФИЛОСОФСКИЙ ВЫВОД: Сексуально-Репродуктивный Капитализм против Государства Моногамии Коллеги, мы вышли на финишную прямую 20-мерного ОДУ-моделирования вековой сукцессии (ветка. . .

@Ципихович Эндрю 1713 / 580 / 76 Регистрация: 10.04.2009 Сообщений: 9,337

	Word Переименовать текущий документ 19.10.2019, 08:50. Показов 6249. Ответов 22 Метки нет (Все метки) здравствуйте, очень давно пробовал это делать на вба, не получилось, тут наткнулся на софтину Kutools, она делает...., что-то поменялось, или она это без вба делает? если можно сделать это, подскажите код пжл, спс Добавлено через 3 минуты вау, после закрытия переименованного прогой документа получаю ошибку Runtime error 216 at 08394BDA ну и нафиг такое переименовынание))) 0

Остап Бонд Заблокирован
	21.10.2019, 12:19
	ActiveDocument.Path & "" & ActiveDocument.Name = ActiveDocument.FullName но Катастрофа не ищет легких путей 1