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

相关文章推荐

淡定的跑步鞋 · vue前端缓存问题解决方案_vue ...· 1 年前 ·

豪情万千的楼梯 · 【VUE】h5app复制文本兼容iOS与an ...· 1 年前 ·

酷酷的牛腩 · 查询文件_对象存储-阿里云帮助中心· 1 年前 ·

月球上的啄木鸟 · Spring-boot-手把手教你使用AOP ...· 1 年前 ·

纯真的猕猴桃 · vue ...· 1 年前 ·

腾讯云

备案控制台

开发者社区

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

推荐文章

淡定的跑步鞋 · vue前端缓存问题解决方案_vue _amap_data.tilekeys 缓存较大-CSDN博客

1 年前

豪情万千的楼梯 · 【VUE】h5app复制文本兼容iOS与android的解决方案_51CTO博客_vue点击复制文本

1 年前

酷酷的牛腩 · 查询文件_对象存储-阿里云帮助中心

1 年前

月球上的啄木鸟 · Spring-boot-手把手教你使用AOP进行加密解密签名验证 - 简书

1 年前

纯真的猕猴桃 · vue 打印vue-print-nb_51CTO博客_vue-print-nb

1 年前

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

1 个回答