Belgenizi Word'de Yeniden Adlandırmanın 2 Akıllı Yolu

Bu yazımızda, Word'de belgenizi hızlı bir şekilde yeniden adlandırmanın 2 akıllı yolunu sunmaya odaklanacağız.

Ara sıra, Word'de taslak oluştururken dosya adını sürekli değiştireceğiz. Yine de her seferinde, yeniden adlandırmadan önce belgeyi kapatmamız gerekiyor. Bu kesinlikle uygun değil. Varsayılan olarak, açık bir dosyayı yeniden adlandıramayız. Ancak bir makro yardımıyla bu mümkün olabilir.

Aşağıda, böyle bir sorunu çözebilecek 2 makro bulunmaktadır.

Yöntem 1: Word'de Belgeyi Yeniden Adlandırma

1. Öncelikle, Word VBA düzenleyicisini açmak için "Geliştirici" sekmesine ve ardından "Visual Basic" seçeneğine tıklayın.
2. Ardından “Normal” projesine tıklayın.
3. Ardından “Ekle”ye tıklayın ve “Modül”ü seçin.
4. Kodlama alanını açmak için yeni modüle çift tıklayın ve aşağıdaki kodları oraya yapıştı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. Şimdi "Çalıştır"a tıklayın veya "F5"e basın.
6. Açılan bir giriş kutusu olacak. Metin kutusuna yeni bir ad girin ve "Tamam"ı tıklayın.

Artık belge aynı yerde yeni bir adla saklanacaktır. Ve makroyu çalıştırmak orijinal dosyayı siler.

Yöntem 2: Bir Belgeyi Yeniden Adlandırın ve Tarih Bilgilerini Ekleyin

Çoğu durumda, bir belge, revizyonun yapıldığı tarihle yeniden adlandırılacaktır. Bu gibi durumlarda, bir dosya adının ana kısmı, yalnızca takip eden bir tarih dizisi ile aynı kalır. Örneğin, burada tarih dizisi olmayan bir belge var.

Eklemek için şu makroyu çalıştırabiliriz:

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

Yukarıdaki makroyu yüklemek ve çalıştırmak için yöntem 1'deki adımları tam olarak takip edebilirsiniz. Güzel çalışacak. Aşağıdaki gibi orijinal adından sonra geçerli tarih dizesinin geldiğini göreceksiniz:

Word Belge Bozulmasına Çözüm

Belge bozulmasını tek seferde kesin bir yöntemle önleyemeyiz. Yapabileceğimiz şey, yedeklemeler almak ve kullanıcı hatalarını olabildiğince önlemektir. En önemli noktalardan biri, bir belge bozulduktan sonra ne yapılması gerektiğini öğrenmektir. Doğru cevap, bir yedekleme edinmektir. doktor kurtarma aracı mümkün olan en kısa sürede.

Yazar Tanıtımı:

Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. Excel hasarı hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com