WORD文件名後面自動添加時間方法如下:
(1)ALT+F11,復制以下宏:
Sub Macro1()
Dim myfilename As String
myfilename = Format(Date, "yyyy/m/d ", vbSunday, vbUseSystem)
myfilename = myfilename + ".doc"
ChangeFileOpenDirectory "C:"
ActiveDocument.SaveAs filename:=myfilename, FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
End Sub
(2)ALT+F8保存,運行MACRO1宏即可。
㈡ 如何在WORD文件名後面自動添加時間
1、首先需要確保Word的宏安全性設置至少為「中」(工具-宏-安全性-中)。x0dx0a2、在Word裡面新建一個空白文檔,給它隨便取個名字(比如「我的日誌」)保存一下——這個文檔就是你以後日誌文檔的開端了!(注意,如果你用的是Word 2007的話,需要保存為啟用宏的文檔*.docm)x0dx0a3、鍵入ALT+F11打開VBA編輯窗口,鍵入CTRL+R激活左邊的「工程 _ Project」面板;x0dx0a4、雙擊工程面板中的「Project (我的日誌)\Microsoft Word 對象\ThisDocument」打開代碼窗口;粘貼如下代碼進去:x0dx0aOption Explicitx0dx0aDim oLogFileCreator As LogFileCreatorx0dx0aPrivate Sub Document_Open()x0dx0aOn Error Resume Next x0dx0aSet oLogFileCreator = New LogFileCreatorx0dx0aSet oLogFileCreator.WordApplication = Applicationx0dx0aEnd Subx0dx0aPrivate Sub Document_Close()x0dx0aOn Error Resume Nextx0dx0aSet oLogFileCreator.WordApplication = Nothingx0dx0aSet oLogFileCreator = Nothingx0dx0aEnd Subx0dx0a5、選擇菜單「插入-類模塊」,然後在工程面板里雙擊這個剛生成的「Project (我的日誌)\類模塊\類1」,粘貼如下代碼進去:x0dx0aOption Explicitx0dx0aPublic WithEvents WordApplication As Word.Applicationx0dx0a' 根據需要修改下面引號中的內容作為你日子文件的默認前綴x0dx0aPrivate Const c_strFileNamePrefix = "我的日誌_"x0dx0ax0dx0aPrivate Sub WordApplication_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)x0dx0aOn Error Resume Nextx0dx0aDim fso As Objectx0dx0aDim strOldName As String, strNewName As String x0dx0aSet fso = CreateObject("Scripting.FileSystemObject") x0dx0astrOldName = ActiveDocument.FullNamex0dx0astrNewName = fso.BuildPath(fso.GetParentFolderName(strOldName), Format(Now, c_strFileNamePrefix & "yyyy-mm-dd.") & fso.GetExtensionName(strOldName)) x0dx0aIf UCase(strNewName) <> UCase(strOldName) Thenx0dx0aActiveDocument.SaveAs strNewNamex0dx0afso.DeleteFile strOldNamex0dx0aCancel = Truex0dx0aEnd If x0dx0aSet fso = Nothingx0dx0aEnd Subx0dx0a6、可以根據需要修改代碼中的日誌文件名前綴。默認的日誌文件名是類似 「我的日誌_2009-09-12」這樣的形式。x0dx0a7、鍵入F4打開屬性面板,在裡面把「(名稱)」從「類1」改為「LogFileCreator」。x0dx0a8、鍵入ALT+Q關閉VBA編輯窗口返回Word文檔窗口,保存,關閉。x0dx0a9、再次重新打開這個文檔,如果Word提示是否啟用宏,選擇啟用。x0dx0a10、現在你的這個自動按日期保存的日誌就可以正常運作了。每次你做完修改後,只要你一保存,它就會根據今天的日期自動把文檔保存成類似這樣的形式「我的日誌_2009-09-12」(前綴「我的日誌」可以在上面代碼中修改)。
㈢ 批處理中在文件名中加上當前日期
%date%表示當前日期
%date:~,10% 表示當前日期不含「星期X」
md 冷風%date:~,10%
㈣ 如何通過批處理文件更改指定文件名。比如在原文件名上加上日期
有一個方法可以實現,不需要寫批處理,只是使用一種常用的文件管理器total
commander,一個類似於資源管理器而功能遠遠超過資源管理器的文件管理器,在界面菜單「命令」里,有一項是「批量重命名文件」,用它可以實現你的批處理要求!軟體可以到華軍等大軟體網站下載,免費的。如果使用中遇到問題,可以跟我討論!
㈤ 求一款軟體,根據文件名批量設置文件創建時間的
批量修改文件創建時間的方法:
步驟1,下載優速文件批量重命名軟體後安裝打開,點擊首頁的【文件重命名】功能後進入內頁。再點擊【添加文件】按鈕將需要修改創建時間的文件添加到軟體中,支持批量添加批量修改,節省時間。
㈥ 如何批量修改文件名(bat),將一個文件夾下的所有文件加上當前時間
既然加序號,時間就僅取年月日:
@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir/b *.bak^|findstr/v "20[0-9][0-9][0-1][0-9][0-3][0-9]"')do (
echo %%i
set "fn=%%i"
set "t=%%~ti"
set "t=!t:~,10!"
set "nt=%%~ni_!t:-=!"
set n=100&call :yky)
pause&goto :eof
:yky
set/a n+=1
if exist "%nt%_%n:~1%.bak" goto :yky
ren "%fn%" "%nt%_%n:~1%.bak"
goto :eof
㈦ windows批處理命令對文件名加日期
還不簡單? :n;cls&set num=請輸入日期;if not exist c:\data\picture%num%.bmp goto n。然後用7z 添加到壓縮包就ok!7z命令行命令網上回有~〔分號「;」代表回車答〕
㈧ 如何在WORD文件名後面自動添加時間
1、首先需要確保Word的宏安全性設置至少為「中」(工具-宏-安全性-中)。
2、在Word裡面新建一個空白文檔,給它隨便取個名字(比如「我的日誌」)保存一下——這個文檔就是你以後日誌文檔的開端了!(注意,如果你用的是Word 2007的話,需要保存為啟用宏的文檔*.docm)
3、鍵入ALT+F11打開VBA編輯窗口,鍵入CTRL+R激活左邊的「工程 – Project」面板;
4、雙擊工程面板中的「Project (我的日誌)\Microsoft Word 對象\ThisDocument」打開代碼窗口;粘貼如下代碼進去:
Option Explicit
Dim oLogFileCreator As LogFileCreator
Private Sub Document_Open()
On Error Resume Next
Set oLogFileCreator = New LogFileCreator
Set oLogFileCreator.WordApplication = Application
End Sub
Private Sub Document_Close()
On Error Resume Next
Set oLogFileCreator.WordApplication = Nothing
Set oLogFileCreator = Nothing
End Sub
5、選擇菜單「插入-類模塊」,然後在工程面板里雙擊這個剛生成的「Project (我的日誌)\類模塊\類1」,粘貼如下代碼進去:
Option Explicit
Public WithEvents WordApplication As Word.Application
' 根據需要修改下面引號中的內容作為你日子文件的默認前綴
Private Const c_strFileNamePrefix = "我的日誌_"
Private Sub WordApplication_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
Dim fso As Object
Dim strOldName As String, strNewName As String
Set fso = CreateObject("Scripting.FileSystemObject")
strOldName = ActiveDocument.FullName
strNewName = fso.BuildPath(fso.GetParentFolderName(strOldName), Format(Now, c_strFileNamePrefix & "yyyy-mm-dd.") & fso.GetExtensionName(strOldName))
If UCase(strNewName) <> UCase(strOldName) Then
ActiveDocument.SaveAs strNewName
fso.DeleteFile strOldName
Cancel = True
End If
Set fso = Nothing
End Sub
6、可以根據需要修改代碼中的日誌文件名前綴。默認的日誌文件名是類似 「我的日誌_2009-09-12」這樣的形式。
7、鍵入F4打開屬性面板,在裡面把「(名稱)」從「類1」改為「LogFileCreator」。
8、鍵入ALT+Q關閉VBA編輯窗口返回Word文檔窗口,保存,關閉。
9、再次重新打開這個文檔,如果Word提示是否啟用宏,選擇啟用。
10、現在你的這個自動按日期保存的日誌就可以正常運作了。每次你做完修改後,只要你一保存,它就會根據今天的日期自動把文檔保存成類似這樣的形式「我的日誌_2009-09-12」(前綴「我的日誌」可以在上面代碼中修改)。
㈨ 如何批量的在圖片的文件名前加上文件屬性的拍攝日期
不清楚你的實際文件/情況,僅以問題中的樣例說明及猜測為據;以下代碼復制粘貼到記事本,另存為xx.bat,編碼選ANSI,跟要處理的文件放一起雙擊運行
<#:
cls&echooff&cd/d"%~dp0"&modeconlines=5000
rem在當前目錄里多個jpg圖片文件名稱開頭前面添加拍攝日期
set#=Anyquestion&set_=WX&set$=Q&set/az=0x53b7e0b4
title%#%+%$%%$%/%_%%z%
set"current=%cd%"
powershell-NoProfile-ExecutionPolicybypass"Get-Content-literal'%~f0'|Out-String|Invoke-Expression"
echo;%#%+%$%%$%/%_%%z%
pause
exit
#>
$b=[Convert]::FromBase64String("IC0tPiA=");
$c=[Text.Encoding]::Default.GetString($b);
Add-Type-AssemblyName'System.drawing';
$current=$env:current;
$files=@(dir-literal$current|?{(@(".jpg",".jpeg")-contains$_.Extension)-and($_-is[System.IO.FileInfo])});
for($i=0;$i-lt$files.length;$i++){
$t='';
$img=[System.Drawing.Image]::FromFile($files[$i].FullName);
foreach($itin$img.PropertyItems){
if($it.Id-eq0x9003){
$t=[System.Text.Encoding]::ASCII.GetString($it.Value)-replace'x00$','';
break;
}
}
$img.Dispose();
if($t-ne''){
$dt=[System.DateTime]::ParseExact($t,'yyyy:MM:ddHH:mm:ss',[System.Globalization.CultureInfo]::InvariantCulture);
$newname=$dt.ToString('yyyy年MM月dd日')+''+$files[$i].Name;
$files[$i].Name+$c+$newname;
}
}
㈩ 文件重命名時快速添加時間前綴
保存文件時,為了以後方便整理,常常需要重命名文件,加上時間前綴。
比如想要保存一個文件 jenkins.txt ,就重命名為 20181223_jenkins.txt 。
當文件數量很多或者需要多次進行此操作時,每次都手動輸入時間前綴就成為一件很麻煩的事情。
而這件事情可以用腳本去完成,重命名時,使用快捷鍵就可以快速把 20181223_ 這樣的時間前綴加上去,而且時間前綴為當天的日期。
python;WinHotKey軟體(或者其他可以定義快捷鍵的軟體)
自動獲取當天日期並進行粘帖操作的腳本 time_current.pyw 如下:
注意腳本後綴為 pyw ,而不是 py ,原因在後面解釋。
包 pyperclip 和 pyautogui 如果沒有,可以通過 pip install pyperclip 和 pip install pyautogui 來安裝。
腳本首先獲取當天日期,然後模仿系統的 Ctrl+v 操作,來執行粘貼操作。
把腳本命名為 time_current.pyw ,之所以使用了 .pyw 而不是 .py 的後綴,是因為 .py 文件在執行的時候會有彈窗,會使原來的游標處失去焦點,而沒有產生粘貼內容。 .pyw 文件由 pythonw.exe 來執行,不會產生彈窗(no window),從而可以在游標處產生粘貼內容。
此處採用 WinHotKey 軟體為剛剛的腳本設置快捷鍵。
如下圖所示,為腳本設置了快捷鍵 Win+Y
以後只要想在游標處,粘貼時間前綴,只要按下快捷鍵 Win+Y 即可。
重命名時,也可以在游標下粘貼時間前綴。