Word-da hujjat nomini o'zgartirishning 2 ta aqlli usuli

Ushbu postda biz sizga Word dasturida hujjatingizni tezda qayta nomlashning 2 ta aqlli usulini taqdim etishga e'tibor qaratamiz.

Vaqti-vaqti bilan, Word-da loyihalashda biz doimiy ravishda fayl nomini o'zgartiramiz. Ammo har safar hujjat nomini o'zgartirishdan oldin uni yopishimiz kerak. Bu mutlaqo qulay emas. Odatiy bo'lib, biz ochiq fayl nomini o'zgartira olmaymiz. Ammo so'l yordamida buni amalga oshirish mumkin.

Quyida bunday muammoni hal qila oladigan 2 ta makros mavjud.

1-usul: Word-da hujjat nomini o'zgartirish

1. Avvalo, Word VBA muharririni ochish uchun "Dasturchi" yorlig'ini, so'ngra "Visual Basic" tugmasini bosing.
2. Keyin "Oddiy loyiha" tugmasini bosing.
3. Keyin "Qo'shish" tugmasini bosing va "Modul" ni tanlang.
4. Kodlash maydonini ochish uchun yangi modulni ikki marta bosing va u erga quyidagi kodlarni qo'ying:

Sub RenameDocument()
  Dim strDocName As String, strDocPath As String
  Dim strNewDocName As String
  Dim KillFile As String

  '  Get the current doc name.
  strDocName = ActiveDocument.FullName
  strDocPath = ActiveDocument.Path
  If strDocPath = "" Then
    MsgBox ("This document hasn't been saved. You can't rename it.")
    Exit Sub
  End If
 
  '  Pop up an input box for new name.
  strNewDocName = InputBox("Enter a new name for this document:", "Rename document", strDocName)

  '  Save the doc with newly entered name.
  ActiveDocument.SaveAs2 FileName:=strDocPath & "\" & strNewDocName

  '  Delete the doc with original name.
  KillFile = strDocName
  Kill KillFile
End Sub

5. Endi "Ishga tushirish" tugmasini bosing yoki "F5" tugmasini bosing.
6. Kirish oynasi paydo bo'ladi. Matn maydoniga yangi nom kiriting va "OK" tugmasini bosing.

Endi hujjat yangi nom bilan bir joyda saqlanadi. Va makrosni ishga tushirish asl faylni o'chiradi.

2-usul: Hujjat nomini o'zgartiring va sana ma'lumotlarini qo'shing

Ko'pgina hollarda, hujjat qayta ko'rib chiqilgan sana bilan qayta nomlanadi. Bunday sharoitda fayl nomining asosiy qismi faqat keyingi sana qatori bilan bir xil bo'lib qoladi. Misol uchun, bu erda sana qatori bo'lmagan hujjat.

Uni qo'shish uchun biz ushbu makrosni ishga tushirishimiz mumkin:

Sub RenameDocumentWithDate()
  Dim strDocName, strDocNameNoExten, strDocFullName, strDocPath As String
  Dim strNewDocName As String
  Dim KillFile As String
  Dim strDate As String

  '  Get the current doc name.
  strDocName = ActiveDocument.Name
  strDocFullName = ActiveDocument.FullName
  strDocNameNoExten = Left(strDocName.Name, Len(strDocName.Name) - 5)
  strDocPath = ActiveDocument.Path
  strDate = Format(Date, "mm - dd - yyyy")
 
  If strDocPath = "" Then
    MsgBox ("This document hasn't been saved. You can't rename it.")
    Exit Sub
  End If
 
  '  Save the doc in new name with date.
  ActiveDocument.SaveAs2 FileName:=strDocPath & "\" & strDocNameNoExten & " " & strDate
  KillFile = strDocFullName
  Kill KillFile
End Sub

Yuqoridagi makrosni o'rnatish va ishga tushirish uchun 1-usuldagi aniq qadamlarni bajarishingiz mumkin. U chiroyli ishlaydi. Siz joriy sana qatori asl nomdan keyin kelishini ko'rasiz, masalan, quyida:

Word hujjatining buzilishiga yechim

Biz hujjatlarning buzilishining oldini olishning bir martalik usuli bilan amalga oshira olmaymiz. Biz qila oladigan narsa - zaxira nusxalarini olish va foydalanuvchi xatolaridan iloji boricha qochish. Eng muhim jihatlardan biri hujjat buzilgandan keyin nima qilish kerakligini bilishdir. To'g'ri javob - bu ... ni olish. doc tiklash imkon qadar tezroq vosita.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc Excelga zarar va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com