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

相关文章推荐

痴情的雪糕 · 【坚果M7】价格_图片_评测_怎么样-什么值得买· 5 月前 ·

朝气蓬勃的足球 · 哥布林女王游戏_皇后哥布林游戏_游戏王 ...· 1 年前 ·

冲动的木耳 · 北京科技大学校友会· 1 年前 ·

性感的枇杷 · 翻译软件Bob安装教程_普通网友的博客-CS ...· 1 年前 ·

低调的风衣 · 不要挑战我的耐性 - 买个爹地宠妈咪 - 包子漫画· 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

推荐文章

痴情的雪糕 · 【坚果M7】价格_图片_评测_怎么样-什么值得买

5 月前

朝气蓬勃的足球 · 哥布林女王游戏_皇后哥布林游戏_游戏王哥布林 - 抖音

1 年前

冲动的木耳 · 北京科技大学校友会

1 年前

性感的枇杷 · 翻译软件Bob安装教程_普通网友的博客-CSDN博客

1 年前

低调的风衣 · 不要挑战我的耐性 - 买个爹地宠妈咪 - 包子漫画

1 年前

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

1 个回答