如何在这个word上面做个按钮点一下自动按上面三处黄区内容命名

lj1226189

QUOTE.zip (1.45 MB, 下载次数: 12)

2021-10-1 14:40 上传

点击文件名下载附件

我试了好多方法 都没有成功！主要是不熟word vba 还盼大神出手相助！祝大家国庆快乐！！

lj1226189

zhanglei1371

lj1226189 发表于 2021-10-2 07:20

1. Sub 组合黄区()
   
2.     Selection.HomeKey 6
   
3.     With Selection.Find
   
4.         .Text = "quote#  "
   
5.         If .Execute Then
   
6.             strA = ActiveDocument.Range(Selection.End, Selection.Paragraphs(1).Range.End - 1)
   
7.             Selection.MoveDown
   
8.             Selection.MoveStartUntil ":", wdBackward
   
9.             strB = ActiveDocument.Range(Selection.Start, Selection.Paragraphs(1).Range.End - 1)
   
10.             Selection.EndKey
    
11.             Selection.MoveEndUntil "b"
    
12.             strC = ActiveDocument.Range(Selection.End + 3, Selection.Paragraphs(2).Range.End - 1)
    
13.         End If
    
14.     End With
    
15.     MsgBox strA + "-" + strB + "-" + strC
    
16. End Sub

复制代码

lj1226189

谢谢！！