用户对问题“我可以用字体格式化单词宏的输出吗？”的回答

相关文章推荐

重情义的刺猬 · 產生 OpenAPI 文件 | ...· 1 月前 ·

刚分手的牙膏 · HOOVER· 6 月前 ·

强健的吐司 · 沈阳市科学技术局2022年工作总结和2023 ...· 7 月前 ·

没读研的小蝌蚪 · FamilyMart 全家便利商店-聯絡我們· 10 月前 ·

健壮的猴子 · 联易融科技：2021年经调整利润同比增长50 ...· 10 月前 ·

腾讯云

备案控制台

开发者社区

TVP

文章/答案/技术大牛

写文章

我可以用字体格式化单词宏的输出吗？

Sub ExportComments()
    Dim s As String
    Dim cmt As Word.Comment
    Dim doc As Word.Document
    For Each cmt In ActiveDocument.Comments
        s = s & "Text: " & cmt.Scope.FormattedText & " -> "
        s = s & "Comments: " & cmt.Initial & cmt.Index & ":" & cmt.Range.Text & vbCr
    Set doc = Documents.Add
    doc.Range.Text = s
End Sub

Sub ExportComments()
Dim cmt As Comment
Dim newdoc As Document
Dim currDoc As Document
Set currDoc = ActiveDocument
Set newdoc = Documents.Add
currDoc.Activate
For Each cmt In currDoc.Comments
    With newdoc.Content
        cmt.Scope.Copy
        .InsertAfter "Text: "
        .Collapse wdCollapseEnd
        .Paste
        .InsertAfter " - > "
        cmt.Range.Copy
        .InsertAfter "Comments: " & cmt.Initial & cmt.Index & ":"
        .Collapse wdCollapseEnd

推荐文章

重情义的刺猬 · 產生 OpenAPI 文件 | Microsoft Learn

1 月前

刚分手的牙膏 · HOOVER

6 月前

强健的吐司 · 沈阳市科学技术局2022年工作总结和2023年工作安排-决策部署-沈阳市科学技术局

7 月前

没读研的小蝌蚪 · FamilyMart 全家便利商店-聯絡我們

10 月前

健壮的猴子 · 联易融科技：2021年经调整利润同比增长50.4%_中证网

10 月前

我可以用字体格式化单词宏的输出吗？

1 个回答