批量加粗的副标题如何替换到文末

tyq998

没人回啊。。。

jiminyanyan

按段落循环的代码...
Sub jimin()
    With ActiveDocument
            For i = 1 To .Paragraphs.Count
               MsgBox .Paragraphs(i).Range.Text
            Next
    End With
End Sub

jiminyanyan

显示粗体内容部分,后续请自行研究........
Sub jimin()
    With ActiveDocument
            For i = 1 To .Paragraphs.Count
                If .Paragraphs(i).Range.Font.Bold = -1 Then
                    MsgBox .Paragraphs(i).Range.Text
                End If
            Next
    End With
End Sub

tyq998

jiminyanyan 发表于 2017-4-28 22:04
显示粗体内容部分,后续请自行研究........
Sub jimin()
    With ActiveDocument

感谢！！！

791344806

word的  VBA  哎   

duquancai

tyq998 发表于 2017-4-24 09:17
upupupupupupupupupupupup

之所以你这问题迟迟得不到你所期望的答案，原因在于你提供的附件(你自认为是有规律的，或者说你所谓的规律只能通过人为判断)，电脑处理是有规律的东西！

duquancai

tyq998 发表于 2017-4-5 09:09
附件已上传

下载附件，打开word文档，点击按钮》》》》》》》》》》》》》》》》》》》》》》》

duquancai

tyq998 发表于 2017-4-27 10:46
没人回啊。。。

Private Sub CommandButton1_Click()
    Dim d As Document, a(), p As Range
    Set d = ActiveDocument
    Call del(d)
    With d.Content
        .Collapse 0: .MoveStartWhile Chr(13), -10240
        .Text = Empty: .InsertAfter Chr(13)
    End With
    With d.Content.Find
        .Font.Bold = 1
        Do While .Execute("*^13*^13", , , 1)
            n = n + 1: ReDim Preserve a(n)
            With .Parent
                a(n - 1) = .Start: .SetRange .End, .End
            End With
        Loop
    End With
    a(n) = d.Content.End - 1
    For i = n To 1 Step -1
        With d.Range(a(i - 1), a(i))
            Set p = .Duplicate: .Collapse: .MoveEndUntil Chr(13)
            .InsertAfter "（XX）"
            .Move 4, 1: .Expand 4: .Cut
            p.Collapse 0: p.Paste: p.InsertBefore "——": p.MoveEnd , -1
            p.InsertAfter "（YY）"
        End With
    Next
End Sub
Sub del(doc As Document)
    With doc.Content.Find
        .Execute "^11", , , 1, , , , , , "^p", 2
        .Execute "^p^w", , , 0, , , , , , "^p", 2
        .Execute "^w^p", , , , , , , , , "^p", 2
        .Execute "^13{2,}", , , 1, , , , , , "^p", 2
    End With
End Sub

tyq998

duquancai 发表于 2017-5-4 09:56
Private Sub CommandButton1_Click()
    Dim d As Document, a(), p As Range
    Set d = ActiveDocu ...

太感谢了！！可以实习，完美！！