读取word文件名部分字段至文件中

minijc

读取word文件名部分字段至文件中，用域可以全部读取过来，如何分离在不同的地方，谢谢。

ming0018

域好像没有处理字符串的能力，可以做用vba。或者看大神有什么办法。

闻启学

用这个代码

1. Sub test()
   
2. 
   
3. 
   
4. Dim mypara As Paragraph
   
5. Dim name1 As String
   
6. Dim name2 As String
   
7. Dim newName As String
   
8. 
   
9. 
   
10. Debug.Print ThisDocument.Name
    
11. 
    
12. newName = VBA.Mid(ThisDocument.Name, 1, Len(ThisDocument.Name) - 4)
    
13. 
    
14. name1 = VBA.Left(newName, 7)
    
15. 
    
16. name2 = VBA.Mid(newName, 8, Len(newName) - 4)
    
17. 
    
18. For Each mypara In ThisDocument.Paragraphs
    
19. 
    
20. 'Debug.Print mypara.Range.Text
    
21. 
    
22. 
    
23. 
    
24. If VBA.InStr(mypara.Range.Text, "编") > 0 Then
    
25. 
    
26. Debug.Print mypara.Range.Text, mypara.Next.Range.Text
    
27. 
    
28. mypara.Next.Range.Text = "KZJTZJ-NC-" & name1
    
29. 
    
30. End If
    
31. 
    
32. 
    
33. If VBA.InStr(mypara.Range.Text, "工程名称") > 0 Then
    
34. 
    
35. Debug.Print mypara.Range.Text, mypara.Next.Range.Text
    
36. 
    
37. mypara.Next.Range.Text = name2
    
38. 
    
39. End If
    
40. 
    
41. 
    
42. Next
    
43. 
    
44. End Sub

复制代码

zmj9151

附件中是一个表格，可以用activedocument.tables(1).cell(1,2)取编号，activedocument.tables(1).cell(2,2)取工程名称