Sa post na ito, tututuon kami sa pagpapakita sa iyo ng 2 matalinong paraan upang mabilis na palitan ang pangalan ng iyong dokumento sa Word.
Ngayon at pagkatapos, habang nag-draft sa Word, patuloy naming babaguhin ang pangalan ng file. Gayunpaman sa bawat oras, kailangan naming isara ang dokumento bago ito mapangalanan ulit. Ito ay ganap na hindi maginhawa. Bilang default, hindi namin mapapalitan ang pangalan ng isang bukas na file. Ngunit sa tulong ng isang macro, maaari itong posible.
Ang mga sumusunod ay 2 macros na maaaring tugunan ang naturang isyu.
Paraan 1: Palitan ang pangalan ng isang Dokumento sa Salita
- Una sa lahat, pindutin ang tab na "Developer" pagkatapos ay ang "Visual Basic" para buksan ang Word VBA editor.
- Susunod na pag-click sa proyektong "Normal".
- Pagkatapos ay i-click ang "Ipasok" at piliin ang "Modyul".
- Mag-double click sa bagong module upang buksan ang coding area at i-paste ang mga bellowing code doon:
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
- Ngayon i-click ang "Run" o pindutin ang "F5".
- Magkakaroon ng isang kahon ng pag-input. Ipasok lamang ang isang bagong pangalan sa text box at i-click ang "OK".
Ngayon ang dokumento ay itatabi sa parehong lugar na may isang bagong pangalan. At tatakbo ang macro ay tatanggalin ang orihinal na file.
Paraan 2: Palitan ang pangalan ng isang Dokumento at Idagdag ang Impormasyon sa Petsa
Sa maraming mga kaso, ang isang dokumento ay papalitan ng pangalan sa petsa kung kailan ginawa ang rebisyon. Sa ilalim ng naturang mga pangyayari, ang pangunahing bahagi ng isang pangalan ng file ay mananatiling pareho lamang sa isang sumusunod na string ng petsa. Halimbawa, narito ang isang dokumento nang walang string sa petsa.
Upang maidagdag ito, maaari naming patakbuhin ang macro na ito:
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
Maaari mong sundin ang eksaktong mga hakbang sa pamamaraan 1 upang mai-install at patakbuhin ang macro sa itaas. Ito ay gagana nang maganda. Makikita mo ang kasalukuyang string ng petsa na sumusunod sa orihinal na pangalan, tulad ng sa ibaba:
Solusyon sa Korupsyon ng Word Document
Hindi natin mapipigilan ang pagkasira ng dokumento gamit ang isang beses lang na pamamaraan. Ang magagawa natin ay ang gumawa ng mga backup at iwasan ang mga pagkakamali ng user hangga't maaari. Isa sa mga pinakamahalagang punto ay ang maging pamilyar sa kung ano ang gagawin pagkatapos masira ang isang dokumento. Ang tamang sagot ay ang kumuha ng paggaling ng dok tool sa lalong madaling panahon.
Panimula ng May-akda:
Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang Pinsala sa Excel at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa