我平时的做法:
一、文件命名:图号 名称
原因:文件管理时,检索文件用Everything,速度快,但不能检索文件内容。因此一个信息量尽量多的文件名:同时包含了图号和文件名。
二、用ilogic,自动将文件名中的内容写入到Iproperty中。
附上ilogic代码:
Dim IsContentCenter As Boolean
Dim doc = ThisDoc.Document
IsContentCenter = False
For Each oPS In doc.PropertySets
If oPS.DisplayName = "ContentCenter" Then IsContentCenter = True
Next
Dim strFileName = ThisDoc.FileName(False)
'标准件,标准件图号=文件名
If IsContentCenter = True Then
iProperties.Value("Project", "Part Number") = strFileName
Else
'非标准件,判断文件名中是否有空格
'没有空格
If InStr(1, (ThisDoc.FileName(False)), " ") = 0 Then
iProperties.Value("Project", "Part Number")=strFileName '图号=文件名
'有空格
Else
Dim iPos As Integer
iPos = strFileName.IndexOf(" ")
iProperties.Value("Summary", "Title") = strFileName.Substring(iPos, strFileName.Length-iPos).Trim()
iProperties.Value("Project", "Part Number")=strFileName.Substring(0, iPos).Trim()
' iProperties.Value("Summary", "Title") = Split(strFileName, Chr(32),)(1)
' iProperties.Value("Project", "Part Number")=Split(strFileName, Chr(32),)(0)
End If
End If
不知对楼主有没有用。 |