2 ჭკვიანი გზა თქვენი დოკუმენტის Word-ში გადარქმევისთვის

ამ პოსტში ჩვენ ყურადღებას გავამახვილებთ Word-ში დოკუმენტის სწრაფად სახელის შეცვლის 2 ჭკვიანურ გზაზე.

დროდადრო, Word-ში შედგენისას, ჩვენ მუდმივად ვცვლით ფაილის სახელს. თუმცა, ყოველ ჯერზე, ჩვენ უნდა დავხუროთ დოკუმენტი, სანამ შეგვეძლება მისი სახელის გადარქმევა. ეს სრულიად არ არის მოსახერხებელი. ნაგულისხმევად, ჩვენ არ შეგვიძლია გადარქმევა ღია ფაილი. მაგრამ მაკროს დახმარებით ეს შესაძლებელია.

ქვემოთ მოცემულია 2 მაკრო, რომელსაც შეუძლია მოაგვაროს ასეთი პრობლემა.

მეთოდი 1: დოკუმენტის სახელის გადარქმევა Word-ში

1. პირველ რიგში, დააჭირეთ ღილაკს „დეველოპერის“ და შემდეგ „Visual Basic“-ს, რათა გახსნათ Word VBA რედაქტორი.
2. შემდეგ დააჭირეთ "ნორმალური" პროექტს.
3. შემდეგ დააჭირეთ "ჩასმა" და აირჩიეთ "მოდული".
4. ორჯერ დააწკაპუნეთ ახალ მოდულზე, რომ გახსნათ კოდირების არე და ჩასვით ქვემოთ მოცემული კოდები:

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. ახლა დააჭირეთ "Run" ან დააჭირეთ "F5".
6. გამოჩნდება შეყვანის ყუთი. უბრალოდ შეიყვანეთ ახალი სახელი ტექსტურ ველში და დააჭირეთ "OK".

ახლა დოკუმენტი შეინახება იმავე ადგილას ახალი სახელით. და მაკროს გაშვება წაშლის თავდაპირველ ფაილს.

მეთოდი 2: გადარქმევა დოკუმენტი და დაურთეთ თარიღის ინფორმაცია

ხშირ შემთხვევაში, დოკუმენტს დაერქმევა სახელი გადასინჯვის თარიღით. ასეთ პირობებში, ფაილის სახელის ძირითადი ნაწილი იგივე რჩება მხოლოდ თარიღის სტრიქონის შემდეგ. მაგალითად, აქ არის დოკუმენტი თარიღის სტრიქონის გარეშე.

მის დასამატებლად, ჩვენ შეგვიძლია გავუშვათ ეს მაკრო:

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

თქვენ შეგიძლიათ მიჰყვეთ 1-ლი მეთოდის ზუსტ ნაბიჯებს ზემოაღნიშნული მაკროების ინსტალაციისა და გასაშვებად. ლამაზად იმუშავებს. თქვენ ნახავთ, რომ მიმდინარე თარიღის სტრიქონი მიჰყვება ორიგინალური სახელის შემდეგ, როგორიცაა ქვემოთ:

Word დოკუმენტის კორუფციის გადაწყვეტა

დოკუმენტის დაზიანების თავიდან აცილება ერთჯერადი მეთოდით შეუძლებელია. ჩვენ შეგვიძლია შევქმნათ სარეზერვო ასლები და მაქსიმალურად ავიცილოთ თავიდან მომხმარებლის შეცდომები. ერთ-ერთი ყველაზე მნიშვნელოვანი საკითხია ვიცოდეთ, თუ რა უნდა გავაკეთოთ დოკუმენტის დაზიანების შემდეგ. სწორი პასუხია მივიღოთ... დოკუმენტის აღდგენა ინსტრუმენტი რაც შეიძლება მალე.

ავტორი შესავალი:

ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის Excel-ის დაზიანება მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად