精华内容
下载资源
问答
  • 对2004-2012年所有的二级VB卷子进行了解答批注,内容很详细,请用火狐浏览器打开PDF,这样批注才能显示正常
  • 恢复Excel批注框到默认位置

    千次阅读 2017-11-04 11:01:26
    方法:用VBA 按Alt+F11,打开VBA编辑器,...Sub 恢复批注到默认位置() Dim Cmt As Comment For Each Cmt In ActiveSheet.Comments With Cmt .Shape.Top = .Parent.Top - 7.5 .Shape.Left = .Parent.Left + .Paren

    方法:用VBA

    按Alt+F11,打开VBA编辑器,在代码窗口中粘贴下面的代码后运行即可。

    Sub 恢复批注到默认位置()

    Dim Cmt As Comment

    For Each Cmt In ActiveSheet.Comments

    With Cmt

    .Shape.Top = .Parent.Top - 7.5

    .Shape.Left = .Parent.Left + .Parent.Width + 11.25

    End With

    Next

    End Sub

    展开全文
  • 原创 计算机等级考试 2004-2012程序题批注解答 详细步骤批注,请用火狐浏览器打开PDF文档,部分PDF工具可能批注显示不全
  • 原创 详细的计算机等级考试(二级VB) 试卷答案、解题过程全解析,全批注
  • 批注内容可以是对某段文字或内容的注释,也可以是对文段中心思想的概括提要,或者是对文章内容的评判、疑问,以及在阅读时给自己或他人起到提示作用。本篇文章中将介绍如何在C#中操作Word批注,主要包含以下要点: ...

    批注内容可以是对某段文字或内容的注释,也可以是对文段中心思想的概括提要,或者是对文章内容的评判、疑问,以及在阅读时给自己或他人起到提示作用。本篇文章中将介绍如何在C#中操作Word批注,主要包含以下要点:

    • 插入Word批注
    • 修改Word批注
    • 删除Word批注

    使用工具Free Spire.Doc for .NET 6.3(最新社区版)

    注:编辑代码前注意添加引用Sprie.Doc.dll(dll文件可在安装路径下的Bin文件夹中获取)

    1.插入Word批注

    C#

    using Spire.Doc;
    using Spire.Doc.Documents;
    using Spire.Doc.Fields;
    
    namespace InsertComment_Word
    {
        class Program
        {
            static void Main(string[] args)
            { 
                //实例化一个Document类对象,并加载Word文档
                Document document = new Document();
                document.LoadFromFile("sample.docx");
    
                //获取第一段第一节
                Section section = document.Sections[0];
                Paragraph paragraph = section.Paragraphs[0];
    
                //添加文本到批注
                string str = "This paragraph describes the origin and the purpose of WEF";
                Comment comment = paragraph.AppendComment(str);
                //添加批注作者
                comment.Format.Author = "E-iceblue";
              
                //保存并打开文档
                document.SaveToFile("Comments.docx", FileFormat.Docx2010);
                System.Diagnostics.Process.Start("Comments.docx");
            }
        }
    }

    VB.NET

    Imports Spire.Doc
    Imports Spire.Doc.Documents
    Imports Spire.Doc.Fields
    
    Namespace InsertComment_Word
        
        Class Program
            
            Private Shared Sub Main(ByVal args() As String)
                '实例化一个Document类对象,并加载Word文档
                Dim document As Document = New Document
                document.LoadFromFile("sample.docx")
                '获取第一段第一节
                Dim section As Section = document.Sections(0)
                Dim paragraph As Paragraph = section.Paragraphs(0)
                '添加文本到批注
                Dim str As String = "This paragraph describes the origin and the purpose of WEF"
                Dim comment As Comment = paragraph.AppendComment(str)
                '添加批注作者
                comment.Format.Author = "E-iceblue"
                '保存并打开文档
                document.SaveToFile("Comments.docx", FileFormat.Docx2010)
                System.Diagnostics.Process.Start("Comments.docx")
            End Sub
        End Class
    End Namespace

     

    测试结果:

    2.修改、删除批注

    测试文档:

    C#

    using Spire.Doc;
    
    namespace ReplaceAndRemoveComment_Word
    {
        class Program
        {
            static void Main(string[] args)
            {
                //初始化Document类实例,加载带有批注的Word文档
                Document document = new Document();
                document.LoadFromFile("test.docx");
    
                //修改第一个批注内容
                document.Comments[0].Body.Paragraphs[0].Replace("This paragraph describes the origin and the purpose of WEF", "What is the WEF ?", false, false);
    
                //移除第二个批注
                document.Comments.RemoveAt(1);
    
                //保存并打开文档
                document.SaveToFile("RemoveAndReplace.docx", FileFormat.Docx);
                System.Diagnostics.Process.Start("RemoveAndReplace.docx");
            }
        }
    }

     

    VB.NET

    Imports Spire.Doc
    
    Namespace ReplaceAndRemoveComment_Word
        
        Class Program
            
            Private Shared Sub Main(ByVal args() As String)
                '初始化Document类实例,加载带有批注的Word文档
                Dim document As Document = New Document
                document.LoadFromFile("test.docx")
                '修改第一个批注内容
                document.Comments(0).Body.Paragraphs(0).Replace("This paragraph describes the origin and the purpose of WEF", "What is the WEF ?", false, false)
                '移除第二个批注
                document.Comments.RemoveAt(1)
                '保存并打开文档
                document.SaveToFile("RemoveAndReplace.docx", FileFormat.Docx)
                System.Diagnostics.Process.Start("RemoveAndReplace.docx")
            End Sub
        End Class
    End Namespace

     

    测试结果:

    以上是本次关于操作Word批注的全部内容。感谢浏览!

    转载于:https://www.cnblogs.com/Yesi/p/8779294.html

    展开全文
  • 在前面的文章C# 如何插入、修改、删除Word批注一文中介绍了如何操作Word批注的一些方法,在本篇文章中继续介绍操作Word批注的方法。分以下三种情况来介绍: 1. 插入图片到Word批注 2. 读取Word批注 3. 回复Word批注 ...

    在前面的文章C# 如何插入、修改、删除Word批注一文中介绍了如何操作Word批注的一些方法,在本篇文章中继续介绍操作Word批注的方法。分以下三种情况来介绍:

    1. 插入图片到Word批注

    2. 读取Word批注

    3. 回复Word批注

    所需工具

     PS:下载安装Free Spire.Doc 后,注意在你的程序中添加引用Spire.Doc.dll(dll文件可以在安装路径下的Bin文件夹中获取)

     

    示例代码

    1. 插入图片到Word批注

    步骤 1:添加using指令

    using Spire.Doc;
    using Spire.Doc.Documents;
    using Spire.Doc.Fields;
    using System.Drawing;

    步骤 2:创建文档,加载测试文件

    Document doc = new Document();
    doc.LoadFromFile("testfile.docx");

    步骤 3 :获取段落

    Paragraph paragraph = doc.Sections[0].Paragraphs[2];

    步骤 4 :添加文本、图片到批注

    Comment comment = paragraph.AppendComment("探索黑科技,小米为发烧而生!");
    comment.Format.Author
    = "Administor";
    DocPicture docPicture = new DocPicture(doc); Image img = Image.FromFile("mi.png"); docPicture.LoadImage(img); //插入图片到批注 comment.Body.AddParagraph().ChildObjects.Add(docPicture);

    步骤 5 :保存文件

    doc.SaveToFile("result.docx", FileFormat.Docx2013);
    System.Diagnostics.Process.Start("result.docx");

     

    测试结果:

    C#全部代码:

    using Spire.Doc;
    using Spire.Doc.Documents;
    using Spire.Doc.Fields;
    using System.Drawing;
    
    namespace InsertImgToComment_Doc
    {
        class Program
        {
            static void Main(string[] args)
            {
                //实例化Document类,加载文档
                Document doc = new Document();
                doc.LoadFromFile("testfile.docx");
    
                //获取需要添加批注的段落
                Paragraph paragraph = doc.Sections[0].Paragraphs[2];
    
                //添加文本批注内容、批注作者
                Comment comment = paragraph.AppendComment("探索黑科技,小米为发烧而生!");
                comment.Format.Author = "Administor";
               
                //实例化DocPicture类,加载图片
                DocPicture docPicture = new DocPicture(doc);
                Image img = Image.FromFile("mi.png");
                docPicture.LoadImage(img);
                //插入图片到批注
                comment.Body.AddParagraph().ChildObjects.Add(docPicture);
    
                //保存文件并打开文档
                doc.SaveToFile("result.docx", FileFormat.Docx2013);
                System.Diagnostics.Process.Start("result.docx");
            }
        }
    }
    View Code

    VB.NET代码:

    Imports Spire.Doc
    Imports Spire.Doc.Documents
    Imports Spire.Doc.Fields
    Imports System.Drawing
    
    Namespace InsertImgToComment_Doc
        Class Program
            Private Shared Sub Main(ByVal args As String())
                Dim doc As Document = New Document()
                doc.LoadFromFile("testfile.docx")
                Dim paragraph As Paragraph = doc.Sections(0).Paragraphs(2)
                Dim comment As Comment = paragraph.AppendComment("探索黑科技,小米为发烧而生!")
                comment.Format.Author = "Administor"
                Dim docPicture As DocPicture = New DocPicture(doc)
                Dim img As Image = Image.FromFile("mi.png")
                docPicture.LoadImage(img)
                comment.Body.AddParagraph().ChildObjects.Add(docPicture)
                doc.SaveToFile("result.docx", FileFormat.Docx2013)
                System.Diagnostics.Process.Start("result.docx")
            End Sub
        End Class
    End Namespace
    View Code

     

    2.读取Word批注

    步骤 1 :添加using指令

    using System.Text;
    using System.IO;
    using Spire.Doc;
    using Spire.Doc.Documents;
    using Spire.Doc.Fields;

    步骤 2 :创建实例,加载文档

    Document doc = new Document();
    doc.LoadFromFile("test.docx");

    步骤 3 :将批注内容写入Txt文档

    //实例化StringBuilder类
    StringBuilder SB = new StringBuilder();
    //遍历所有word批注,将批注内容写入Txt文档
    foreach (Comment comment in doc.Comments)
    {
        foreach (Paragraph p in comment.Body.Paragraphs)
        {
            SB.AppendLine(p.Text);
        }
    }
    File.WriteAllText("CommentExtraction.txt", SB.ToString());
    System.Diagnostics.Process.Start("CommentExtraction.txt");

    C# 全部代码:

    using System.Text;
    using System.IO;
    using Spire.Doc;
    using Spire.Doc.Documents;
    using Spire.Doc.Fields;
    
    namespace ExtractComments
    {
        class Program
        {
            static void Main(string[] args)
            {
                //创建实例,加载文档
                Document doc = new Document();
                doc.LoadFromFile("test.docx");
    
                //实例化StringBuilder类
                StringBuilder SB = new StringBuilder();
                //遍历所有word批注,将批注内容写入Txt文档
                foreach (Comment comment in doc.Comments)
                {
                    foreach (Paragraph p in comment.Body.Paragraphs)
                    {
                        SB.AppendLine(p.Text);
                    }
                }
                File.WriteAllText("CommentExtraction.txt", SB.ToString());
                System.Diagnostics.Process.Start("CommentExtraction.txt");
            }
        }
    }
    View Code

    VB.NET 代码

    Imports System.Text
    Imports System.IO
    Imports Spire.Doc
    Imports Spire.Doc.Documents
    Imports Spire.Doc.Fields
    
    Namespace ExtractComments
        Class Program
            Private Shared Sub Main(ByVal args As String())
                Dim doc As Document = New Document()
                doc.LoadFromFile("test.docx")
                Dim SB As StringBuilder = New StringBuilder()
    
                For Each comment As Comment In doc.Comments
    
                    For Each p As Paragraph In comment.Body.Paragraphs
                        SB.AppendLine(p.Text)
                    Next
                Next
    
                File.WriteAllText("CommentExtraction.txt", SB.ToString())
                System.Diagnostics.Process.Start("CommentExtraction.txt")
            End Sub
        End Class
    End Namespace
    View Code

     

    3. 回复Word批注内容

    步骤 1 :添加using指令 

    using Spire.Doc;
    using Spire.Doc.Fields;

    步骤 2 :创建实例

    Document doc = new Document();
    doc.LoadFromFile("test.docx");

    步骤 3 :获取批注

    Comment comment = doc.Comments[0];

    步骤 4 :回复批注

    Comment replyComment = new Comment(doc);
    replyComment.Format.Author = "Adam";
    replyComment.Body.AddParagraph().AppendText("这条批注内容请再丰富一下,内容有些单调");
    comment.ReplyToComment(replyComment);

    步骤 5 :保存文件

    doc.SaveToFile("ReplyToComment.docx", FileFormat.Docx2013);
    System.Diagnostics.Process.Start("ReplyToComment.docx");

     

    测试结果:

    C# 全部代码:

    using Spire.Doc;
    using Spire.Doc.Fields;
    
    namespace ReplyComment_Doc
    {
        class Program
        {
            static void Main(string[] args)
            {
                //实例化Document类,加载文件
                Document doc = new Document();
                doc.LoadFromFile("test.docx");
    
                //获取第一个批注
                Comment comment = doc.Comments[0];
    
                //实例化Comment类,添加批注回复作者以及回复内容
                Comment replyComment = new Comment(doc);
                replyComment.Format.Author = "Adam";
                replyComment.Body.AddParagraph().AppendText("这条批注内容请再丰富一下,内容有些单调");
                comment.ReplyToComment(replyComment);
    
                //保存文件并打开
                doc.SaveToFile("ReplyToComment.docx", FileFormat.Docx2013);
                System.Diagnostics.Process.Start("ReplyToComment.docx");
            }
        }
    }
    View Code

    VB.NET 代码:

    Imports Spire.Doc
    Imports Spire.Doc.Fields
    
    Namespace ReplyComment_Doc
        Class Program
            Private Shared Sub Main(ByVal args As String())
                Dim doc As Document = New Document()
                doc.LoadFromFile("test.docx")
                Dim comment As Comment = doc.Comments(0)
                Dim replyComment As Comment = New Comment(doc)
                replyComment.Format.Author = "Adam"
                replyComment.Body.AddParagraph().AppendText("这条批注内容请再丰富一下,内容有些单调")
                comment.ReplyToComment(replyComment)
                doc.SaveToFile("ReplyToComment.docx", FileFormat.Docx2013)
                System.Diagnostics.Process.Start("ReplyToComment.docx")
            End Sub
        End Class
    End Namespace
    View Code

    以上为本次关于操作Word批注的全部内容。

    (本文完)

    如需转载,请注明出处。

    展开全文
  • 文档中有VB代码,代码不用用任何更改即可使用,不用安装任何插件,在任何版本Excel中均适用,包括X64和X86版本。不同Excel高级工具,只能用于X86的版本,X64均用不了,而且插入图片之前必须排好序,不然再排序,图片...
  • C# 调用VB库读取Excel中批注

    千次阅读 2011-03-09 13:40:00
    C# 调用VB库读取Excel中批注

    C#读取Excel批注,没找到简单的方法,VB读取Excel的方法很简单。用VB写了一个库很简单,如下

     

     

    需要在Vb项目中添加引用,解决方案资源管理器-->添加引用-->COM-->MicroSoft Excel……

     

    生成VBClass.dll库后,拷贝在C#工程下,并添加引用。

     

    using VBClass;

     

     public VBClass.ReadExcel      pz;

      pz         = new VBClass.ReadExcel();
      pz.ReadExcel(fileName);        //fileName为Excel的全路径

     

    string    pzExcel    = pz.Command(i+2, j+1); //参数传入的Excel的行、列。

      //vb库中行列和C#程序读入Excel行列的起始位置有些不同,需要适当调整。

    展开全文
  • 批注导出工具.xlsm

    2021-05-24 16:30:44
    通过vb脚本,提取excel、word文档中的批注信息,操作简单
  • 指定单元格的内容,根据自定义函数,变成批注
  • 初学者,不要见笑.VS2012版本,从EXCEL中导出图像
  • Sub 批量插入批注() On Error Resume Next '批注来源列名 Dim targetColumnName As String '批注来源列号 Dim offsetColumn As Integer '计数 Dim count As Integer targetColumnName = InputBox("直接...
  • [VB6] 批量注释

    2019-09-30 18:31:59
    VB6.0中有两个功能:设置注释块和释放注释块 视图->工具栏->编辑,工具条里提供,设置注释块和解除注释块 转载于:https://www.cnblogs.com/charlesathome/p/3139295.html...
  • excel vba 插入批注

    2013-06-25 14:35:04
    应用vba技术,在excel批注中插入图片
  • EXcel vba 获取批注信息

    2018-06-14 18:07:00
    Public Function pizhu(i As Range) pizhu = i.Cells.Comment.Text End Function EXcel VBA获取批注信息 转载于:https://www.cnblogs.com/landv/p/9184353.html
  • VB读取Excel的图片

    热门讨论 2009-01-14 16:02:27
    VB读取Excel的图片,读取EXCEl中的CHart图
  • VB仿360加速球动画效果,使用UpdateLayeredWindow刷新内容,利用GDI加载Png,从而实现360加速球动画效果。Png图片资源是自己制作的,不喜勿喷~ 加载球体光晕动画(逐帧加载Png),时间匆忙,部分代码来自网络~注释...
  • 自己写的VB小程序,对图像的简单处理。包括图像的放大缩小,任意角度的旋转等操作。
  • 朋友在后台提了这样一个问题,能不能根据名称一键将图片批量插入到单元格的批注中去,酱紫的话,当鼠标划过单元格,Excel就会自动显示图片了,很酷很实用…… 比如下面动态图所展示的这样: 哎呦,不错哦~~ 实现...
  • 本篇文章中将介绍如何在C#/VB中操作Word批注,主要包含以下要点: 插入Word批注 修改Word批注 删除Word批注使用工具:Free Spire.Doc for .NET 6.3(最新社区版)注:编辑代码前注意添加引用Sprie.Doc.dll(d...
  • C# 给Excel单元格添加文本及图片批注

    千次阅读 2016-09-30 17:08:24
    C# 给Excel单元格添加文本及图片批注 批注分为两种,文本批注和图片批注,常被用在一些报表中来注释一些额外的信息,这样有助于阅读的人更好的理解数据。那么如何添加批注呢?MicrosoftExcel给我们提供了内置的插入...
  • VBA设置批注大小

    千次阅读 2012-12-07 09:03:50
    向各老师请教,我想将A1单元格的批注,宽度设为200,高度自动适合文本内容. 先谢过各位老师了! For Each c In ActiveSheet.Comments  c.Shape.Width = 200  c.Shape.TextFrame.AutoSize = True Next c 参考: ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 675
精华内容 270
关键字:

vb批注