Ձեր փաստաթուղթը Word-ում վերանվանելու 2 խելացի եղանակ

Բառային լուծումներ Սեպտեմբեր 28, 2025
Կիսվել հիմա ՝

Այս գրառման մեջ մենք կկենտրոնանանք ձեզ ներկայացնելու 2 խելացի եղանակ՝ Word-ում ձեր փաստաթուղթը արագ վերանվանելու համար։

Ժամանակ առ ժամանակ, Word-ում նախագիծ կազմելիս, մենք անընդհատ փոխելու ենք ֆայլի անունը: Այնուամենայնիվ, ամեն անգամ մենք պետք է փակենք փաստաթուղթը՝ այն վերանվանելուց առաջ: Սա բացարձակապես հարմար չէ: Լռելյայն, մենք չենք կարող վերանվանել բաց ֆայլը: Բայց մակրոյի օգնությամբ դա հնարավոր է։

Ստորև ներկայացված են 2 մակրոներ, որոնք կարող են լուծել նման խնդիրը:

Մեթոդ 1. Վերանվանել փաստաթուղթը Word-ում

  1. Նախևառաջ սեղմեք «Մշակող» ներդիրը, ապա «Visual Basic»-ը՝ Word VBA խմբագրիչը բացելու համար։Սեղմեք «Կառուցապատող» -> Սեղմեք «Visual Basic»
  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
  1. Այժմ սեղմեք «Run» կամ սեղմեք «F5»:Կպցնել կոդերը -> Սեղմել «Գործարկել»
  2. Կհայտնվի մուտքագրման տուփ: Պարզապես մուտքագրեք նոր անուն տեքստային վանդակում և սեղմեք «OK»:Մուտքագրեք նոր անուն->Սեղմեք «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 Document-ի կոռուպցիայի լուծում

Մենք չենք կարող կանխել փաստաթղթերի վնասումը մեկանգամյա մեթոդով։ Մենք կարող ենք անել պահուստային պատճեններ անել և հնարավորինս խուսափել օգտատիրոջ սխալներից։ Ամենակարևոր կետերից մեկը փաստաթղթի վնասվելուց հետո անելիքների հետ ծանոթանալն է։ Ճիշտ պատասխանը... փաստաթղթի վերականգնում գործիք որքան հնարավոր է շուտ:

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում Excel- ի վնաս և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com

Կիսվել հիմա ՝

Comments փակվում են: