Word-də sənədinizin adını dəyişməyin 2 ağıllı yolu

Bu yazıda, Word-də sənədinizin adını tez bir zamanda dəyişdirməyin 2 ağıllı yolunu sizə təqdim etməyə diqqət yetirəcəyik.

İndi və sonra, Word-də tərtib edərkən, biz daim fayl adını dəyişəcəyik. Bununla belə, hər dəfə sənədin adını dəyişmədən əvvəl onu bağlamalıyıq. Bu tamamilə rahat deyil. Varsayılan olaraq, açıq faylın adını dəyişdirə bilmirik. Ancaq makronun köməyi ilə bu mümkün ola bilər.

Aşağıda belə bir problemi həll edə biləcək 2 makro var.

Metod 1: Word-də sənədin adını dəyişdirin

1. Əvvəlcə Word VBA redaktorunu açmaq üçün "Geliştirici" sekmesini, sonra isə "Visual Basic" düyməsini basın.
2. Sonra "Normal" layihəsinə klikləyin.
3. Sonra "Daxil et" düyməsini basın və "Modul" seçin.
4. Kodlaşdırma sahəsini açmaq üçün yeni modulun üzərinə iki dəfə klikləyin və aşağıdakı kodları ora yapışdırın:

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. İndi "Çalış" düyməsini basın və ya "F5" düyməsini basın.
6. Açılan bir giriş qutusu görünəcək. Sadəcə mətn qutusuna yeni ad daxil edin və "OK" düyməsini basın.

İndi sənəd yeni adla eyni yerdə saxlanacaq. Və makronun işlədilməsi orijinal faylı siləcəkdir.

Metod 2: Sənədin adını dəyişdirin və Tarix Məlumatını Əlavə edin

Bir çox hallarda sənədin adı düzəliş edildiyi tarixlə dəyişdiriləcək. Belə şəraitdə fayl adının əsas hissəsi yalnız sonrakı tarix sətri ilə eyni qalır. Məsələn, burada tarix sətri olmayan bir sənəd var.

Onu əlavə etmək üçün bu makronu işlədə bilərik:

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

Yuxarıdakı makronu quraşdırmaq və işə salmaq üçün 1-ci üsuldakı dəqiq addımları izləyə bilərsiniz. Gözəl işləyəcək. Siz cari tarix sətirinin orijinal addan sonra gəldiyini görəcəksiniz, məsələn:

Word sənədinin korrupsiyasının həlli

Sənədlərin korlanmasının qarşısını birdəfəlik metodla ala bilmərik. Edə biləcəyimiz şey ehtiyat nüsxələrini çıxarmaq və istifadəçi səhvlərindən mümkün qədər qaçınmaqdır. Ən vacib məqamlardan biri sənəd korlandıqdan sonra nə etməli olduğunuzu bilməkdir. Düzgün cavab əldə etməkdir doc bərpası ən qısa zamanda alət.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc Excel ziyanı və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com