想用vb打开pdf并且在pdf单页左上角加上文字,然后保存,怎么实现

想用VB打开pdf,并且在pdf特定页面上加上文字并保存,怎么实现,求源码

创建pdf文件,并添加文本

Imports Spire.Pdf
Imports Spire.Pdf.Graphics
Imports System.Drawing

Namespace CreatePDF_PDF

    Class Program

        Private Shared Sub Main(ByVal args As String())
            Dim document As PdfDocument = New PdfDocument()
            Dim unitCvtr As PdfUnitConvertor = New PdfUnitConvertor()
            Dim margins As PdfMargins = New PdfMargins()
            margins.Top = unitCvtr.ConvertUnits(2.54F, PdfGraphicsUnit.Centimeter, PdfGraphicsUnit.Point)
            margins.Bottom = margins.Top
            margins.Left = unitCvtr.ConvertUnits(3.17F, PdfGraphicsUnit.Centimeter, PdfGraphicsUnit.Point)
            margins.Right = margins.Left
            Dim page As PdfPageBase = document.Pages.Add(PdfPageSize.A4, margins)
            Dim font As PdfTrueTypeFont = New PdfTrueTypeFont(New Font("楷体", 11F), True)
            Dim pen As PdfPen = New PdfPen(Color.Black)
            Dim text As String =("插入文本测试 ")
            page.Canvas.DrawString(text, font, pen, 15, 13)
            Dim image As PdfImage = PdfImage.FromFile("image1.jpg")
            Dim width As Single = image.Width * 0.55F
            Dim height As Single = image.Height * 0.55F
            Dim y As Single =(page.Canvas.ClientSize.Width - width) / 3
            page.Canvas.DrawImage(image, y, 60, width, height)
            document.SaveToFile("PDF创建.pdf")
            System.Diagnostics.Process.Start("PDF创建.pdf")
        End Sub
    End Class
End Namespace

读取指定区域文本内容

Imports Spire.Pdf
Imports System.IO
Imports System.Text
Imports System.Drawing

Namespace ExtractText1_PDF

    Class Program

        Private Shared Sub Main(ByVal args As String())
            Dim pdf As PdfDocument = New PdfDocument()
            pdf.LoadFromFile("sample.pdf")
            Dim page As PdfPageBase = pdf.Pages(0)
            Dim text As String = page.ExtractText(New RectangleF(50, 50, 500, 170))
            Dim sb As StringBuilder = New StringBuilder()
            sb.AppendLine(text)
            File.WriteAllText("Extract.txt", sb.ToString())
            System.Diagnostics.Process.Start("Extract.txt")
        End Sub
    End Class
End Namespace

vb6吗?
要么用商业pdf控件
要么用python实现,用vb调用

保存肯定干不了,另存也许能行

需要用三方的pdf解析器,你有现成的pdf解析器还是随便什么都可以呢?

可以用控件解析器实现

vb6无法直接操作pdf

可以打开pdf,通过模拟鼠标键盘位置写上需要的内容,然后继续模拟点击保存,但是,最终仅限在自己电脑试用,不过可以实现批量加文字,就当是自己的小工具用肯定是没问题的

实现不了的,除非你找一个这样的插件去实现

在电脑桌面打开PDF编辑器,然后打开需要编辑的PDF文档

PDF文档打开后,鼠标双击文本框就可以编辑文字内容

如果想要添加新的文本框,则点击选择“添加”-“添加文本工具”即可,然后在空白处插入就行了

技巧2:如何在pdf文件上编辑图片?
想要编辑图片的话,则选择“编辑内容”-“仅图像”

这时候,选中图像单击鼠标右键就可以对图像进行编辑啦,分别有以下几种编辑方式

对图片进行实际性的编辑,例如打码涂鸦等,则选择“编辑图像”,然后直接打开第三方工具直接编辑。这取决于你的电脑都安装了哪些图像编辑工具,没有任何工具的话则会打开系统自带的图像编辑程序

没错,就是这个【默认程序】——图像编辑

编辑完成后,直接Ctrl+S保存就好啦!

操作比较简单,大家可以亲自尝试尝试哦

用python实现,用vb调用就可以实现你想要的功能了