求助老师：添加的字体进行格式设置，谢谢。

xwcbz

二、本年度客户首付款情况：

    无。

求助老师：我要在情况后面添加换行后添加“无”字符，上边是实现的结果。现在我已实现了效果，但是不能对添加的字体进行格式设置，请老师帮助。

  doc.Range(I, I).InsertAfter Text:=vbCrLf & Space(4) & "无。"

                With doc.Range(I, I).Font

                    .Name = "黑体"

                    .Size = 18

                    .Bold = flase

                End With

taller

liuxi001

我以进错区了。。一看wordvba

xwcbz

taller 发表于 2024-1-10 05:19

谢谢老师的热心帮助。

gwjkkkkk

Sub test()
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Forward = True
        Do While .Execute(FindText:="情况") = True
            .Parent.Select
            With Selection
                .MoveDown unit:=wdParagraph, Extend:=wdExtend
                .Collapse 0
                .InsertAfter "   无"
                With .Range.Font
                    .Name = "黑体"
                    .Size = 18
                    .Bold = False
                End With
            End With
        Loop
    End With
End Sub

xwcbz

gwjkkkkk 发表于 2024-1-10 19:32
Sub test()
    With ActiveDocument.Content.Find
        .ClearFormatting

感谢老师的帮助，我就2支花，还不会送，感谢您的帮助。