Как переименовать открытый документ word

По предложению @Adam и @ Lưu Vĩnh Phúc я создал следующий макрос, который выполняет то, что вы просили. Обратите внимание, что это удалит любую историю, связанную с файлом.

      Sub RenameActiveFile()
    '
    ' Renames the current file without closing the document (assuming file has already been saved)
    '  (Actually, saves with new name and deletes previous, so history will be lost).
    '
    Dim strFileFullName, strFileName, strNewName As String
    Dim res As VbMsgBoxResult

    ' Get current name:
    strFileFullName = ActiveDocument.FullName               'for Word docs
    'strFileFullName = ActiveWorkbook.FullName               'for Excel docs
    'strFileFullName = Application.ActivePresentation.FullName       'for Powerpoint presentations*
    If (InStr(strFileFullName, ".") = 0) Then
        res = MsgBox("File has not been saved. Can't rename it.", , "Rename File")
        Exit Sub
    End If
    strFileName = Right(strFileFullName, Len(strFileFullName) - InStrRev(strFileFullName, "")) 'strip path
    strFileName = Left(strFileName, (InStr(strFileName, ".") - 1))  ' strip extension

    ' Prompt for new name:
    strNewName = InputBox("Rename this file to:", "Rename File", strFileName)
    If (strNewName = "") Or (strNewName = strFileName) Then ' (Check whether user cancelled)
        Exit Sub
    End If

    ' Save file with new name:
    ActiveDocument.SaveAs2 FileName:=strNewName             'for Word docs
    'ActiveWorkbook.SaveAs2 FileName:=strNewName            'for Excel docs
    'Application.ActivePresentation.SaveAs FileName:=strNewName      'for Powerpoint presentations*

    ' Delete old file:
    With New FileSystemObject   ' (this line requires: Tools->References->Microsoft scripting runtime)
        If .FileExists(strFileFullName) Then
            .DeleteFile strFileFullName
        End If
    End With
End Sub

* Примечание: хотя этот макрос работает с Powerpoint (с изменениями, отмеченными выше), PowerPoint не может сохранить его глобально.

Я просто задаю этот вопрос, поскольку не верю, что после стольких версий Word его не существовало.

Обычно, когда я работаю над документом, я понимаю Мне нужно переименовать его, мне нужно закрыть документ, перейти в проводник, затем переименовать его, а затем снова открыть.

Это процедура, которая настолько укоренилась в моем образце использования, что До сих пор я не понимал, что мне действительно нужно открывать и закрывать несколько окон/приложений и т. Д., Просто чтобы переименовать файл. Конечно, сейчас 2012 год, я смогу сделать такую ​​простую вещь несколькими щелчками мыши, верно?

Так есть ли способ просто переименовать имя файла в слово/excel/ офисный документ, не закрывая его сначала?

Word открывает документы в эксклюзивном режиме AFAIK, поэтому это блокирует файлы и предотвращает доступ других программы, пока блокировка не будет снята путем закрытия файлов или самого Word. Я не думаю, что предоставление общего доступа к документам – это работоспособное решение, иначе оно наверняка было бы реализовано давно, если бы имело смысл.

Да, это возможно!

По крайней мере, на Mac (OS X 10.8.5). Просто Cmd + щелкните имя файла в верхней части открытого документа Office, который вы хотите переименовать. Затем вы увидите путь, по которому находится файл. Затем вы нажимаете на имя папки прямо под именем файла.. Затем имя появляется на экране Finder, где вы можете изменить его имя по своему усмотрению.

Таким образом, не нужно ни закрывать файл, ни использовать «сохранить как» и удалять первый файл из средства поиска! (Я не знаю, работает ли тот же или подобный трюк в Windows.)

  Sub RenameActiveFile () '' Переименовывает текущий файл, не закрывая документ (при условии, что файл уже был сохранен) '(  Фактически, сохраняется с новым именем и удаляется предыдущее, поэтому история будет потеряна).  'Dim strFileFullName, strFileName, strNewName As String Dim res As VbMsgBoxResult' Получить текущее имя: strFileFullName = ActiveDocument.FullName 'для документов Word' strFileFullName = ActiveWorkbook.FullName 'для Excelresentation.  Если (InStr (strFileFullName, ".") = 0) Then res = MsgBox ("Файл не был сохранен. Невозможно переименовать его.",, "Rename File") Exit Sub End If strFileName = Right (strFileFullName, Len  (strFileFullName) - InStrRev (strFileFullName, "")) 'удалить путь strFileName = Left (strFileName, (InStr (strFileName, ".") - 1))' strip extension 'Запрос нового имени: strNewName = InputBox ("Rename  этот файл в: "," Rename File ", strFileName) If (strNewName =" ") Or (strNewName = strFileName) Then '(Проверить, отменен ли пользователь) Exit Sub End If' Сохранить файл с новым именем: ActiveDocument.SaveAs2 FileName:  = strNewName 'для документов Word' ActiveWorkbook.SaveAs2 FileName: = strNewName 'для документов Excel' Application.ActivePrese  ntation.SaveAs FileName: = strNewName 'для презентаций Powerpoint *' Удалить старый файл: с помощью New FileSystemObject '(для этой строки требуется: Tools-> References-> среда выполнения сценариев Microsoft) Если .FileExists (strFileFullName) Тогда .DeleteFile strFileFullName End If End WithEnd  Sub  

Вдохновленный предложениями @Adam и @ Lưu Vĩnh Phúc, я создал следующий макрос, который выполняет то, что вы просили. Обратите внимание, что при этом будет удалена вся история, связанная с файлом.

  Sub RenameActiveFile () '' Переименовывает текущий файл, не закрывая документ (при условии, что файл уже был сохранен) '(  Фактически, сохраняется с новым именем и удаляется предыдущее, поэтому история будет потеряна).  'Dim strFileFullName, strFileName, strNewName As String Dim res As VbMsgBoxResult' Получить текущее имя: strFileFullName = ActiveDocument.FullName 'для документов Word' strFileFullName = ActiveWorkbook.FullName 'для Excelresentation.  Если (InStr (strFileFullName, ".") = 0) Then res = MsgBox ("Файл не был сохранен. Невозможно переименовать его.",, "Rename File") Exit Sub End If strFileName = Right (strFileFullName, Len  (strFileFullName) - InStrRev (strFileFullName, "")) 'удалить путь strFileName = Left (strFileName, (InStr (strFileName, ".") - 1))' strip extension 'Запрос нового имени: strNewName = InputBox ("Rename  этот файл в: "," Rename File ", strFileName) If (strNewName =" ") Or (strNewName = strFileName) Then '(Проверить, отменен ли пользователь) Exit Sub End If' Сохранить файл с новым именем: ActiveDocument.SaveAs2 FileName:  = strNewName 'для документов Word' ActiveWorkbook.SaveAs2 FileName: = strNewName 'для документов Excel' Application.ActivePrese  ntation.SaveAs FileName: = strNewName 'для презентаций Powerpoint *' Удалить старый файл: с помощью New FileSystemObject '(для этой строки требуется: Tools-> References-> среда выполнения сценариев Microsoft) Если .FileExists (strFileFullName) Тогда .DeleteFile strFileFullName End If End WithEnd  Sub  

* Примечание: хотя этот макрос работает с Powerpoint (с изменениями, отмеченными выше), PowerPoint не может сохранить его глобально.

Microsoft включила революционные новые функции в последнюю версию Word, предназначенную для тех, кто вас беспокоит –

Щелкните файл, а затем «Сохранить как»

Как переименовать несколько файлов, заменив слово в имени файла?

Заменить ACDC в AC-DC

Например, у нас есть эти файлы

ACDC – Rock N ‘Roll Ain’t Noise Pollution.xxx

ACDC – Rocker.xxx

ACDC – Shoot To Thrill.xxx

Я хочу, чтобы они стали:

AC-DC – Rock N ‘Roll Ain’t Noise Pollution.xxx

AC-DC – Rocker.xxx

AC-DC – Shoot To Thrill.xxx

Я знаю, что для этой операции используется sed или awk. Я ничего не могу найти в Google, поэтому прошу вашей помощи =) Не могли бы вы предоставить полную рабочую команду оболочки для этой задачи?

Отзыв: решение для пользователей OSX

  переименовать 's/ACDC/AC-DC/' * .xxx  

из man переименовать

  ОПИСАНИЕ «переименовать» переименовывает имена файлов, указанные в соответствии с правилом, указанным в качестве первого аргумента.  Аргумент perlexpr - это выражение Perl, которое, как ожидается, изменит строку $ _ в Perl, по крайней мере, для некоторых из указанных имен файлов.  Если данное имя файла не изменено выражением, оно не будет переименовано.  Если в командной строке не указаны имена файлов, имена файлов будут считываться через стандартный ввод.  

Например, чтобы переименовать все файлы, соответствующие “* .bak”, чтобы удалить расширение, вы может сказать

  переименовать 's/. bak $//' * .bak  

Чтобы перевести имена из верхнего регистра в нижний, вы должны использовать

  переименовать 'y/AZ/az/' *  

  для файла в ACDC * .xxx;  do mv "$ file" "$ {file//ACDC/AC-DC}" done  

   находить .  -тип f -name "ACDC *" -print0 |  при чтении -r -d '' файл;  do mv "$ file" "$ {file//ACDC/AC-DC}" done  

  find.  -тип f -имя "ACDC *" |  при чтении -r файл;  do mv "$ file" "$ {file//ACDC/AC-DC}" готово  

Этот ответ содержит хорошие части из всех других ответов, но не учитывает такую ​​ересь, как ls | при чтении .

Текущий каталог:

  для файла в ACDC * .xxx;  do mv "$ file" "$ {file//ACDC/AC-DC}" done  

Включая подкаталоги:

   находить. -тип f -name "ACDC *" -print0 |  при чтении -r -d '' файл;  do mv "$ file" "$ {file//ACDC/AC-DC}" done  

Символы новой строки действительно вряд ли будут в имена файлов, так что это может быть проще при работе с именами, содержащими пробелы:

  find.  -тип f -имя "ACDC *" |  при чтении -r файл;  do mv "$ file" "$ {file//ACDC/AC-DC}" готово  

  переименовать ACDC AC-DC ACDC *  

  rename.ul ACDC AC-DC ACDC *  

Чтобы использовать версию переименовать для утилиты util-linux, на которую ссылался Фил (в Ubuntu это называется rename.ul ):

  переименовать ACDC AC-DC ACDC *  

или

rename.ul ACDC AC-DC ACDC *  

  find.  -тип f -name "ACDC *" -print0 |  при чтении -d $ ' 0' fdo new = `echo" $ f "|  sed -e "s/ACDC/AC-DC/" `mv" $ f "" $ new "done  

Использование оболочки bash

  find.  -тип f -name "ACDC *" -print0 |  при чтении -d $ ' 0' fdo new = `echo" $ f "|  sed -e "s/ACDC/AC-DC/" `mv" $ f "" $ new "done  

Примечание: использование find будет обрабатывать текущий каталог, а каталоги в.

  для файла в ACDC * .xxx;  do mv "$ file" "$ (echo $ file | sed -e 's/ACDC/AC-DC/')" done  

Зависит от вашей оболочки. В zsh я бы сделал следующее:

  для файла в ACDC * .xxx;  do mv "$ file" "$ (echo $ file | sed -e 's/ACDC/AC-DC/')" done  

Вероятно, не лучшее решение, но работает .

  ls * .xxx |  пока читал fn;  do mv "$ {fn}" "$ {fn/ACDC/AC-DC}"; done  

  переименовать 's/ACDC/AC-DC/' * .xxx  

Использование bash:

  ls * .xxx |  пока читал fn;  do mv "$ {fn}" "$ {fn/ACDC/AC-DC}"; done  

Если у вас есть программа rename установлено:

  переименовать 's/ACDC/AC-DC/' * .xxx