修改pdf属性 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

想把标题和作者内容都去掉。有什么办法?

此主题相关图片如下：qq截图20170503164222.png

Dim doc As org.apache.pdfbox.pdmodel.PDDocument = Nothing
Try
    doc = org.apache.pdfbox.pdmodel.PDDocument.load("g:\test2.pdf")
    Dim info = doc.getDocumentInformation()
    info.setAuthor("作者")
    info.setKeywords("关键字")
    info.setSubject("主题")
    info.setTitle("标题")
    info.setCreator("制作系统")
    doc.save("g:\test5.pdf")
catch ex As exception
    msgbox(ex.message)
Finally
    If doc IsNot Nothing Then
        doc.close()
    End If
End Try

老师，能帮我把这段代码注释一下么。这样好理解点。

此主题相关图片如下：bd.png

在搜索里面发现还是没改。

但属性有改了。是怎么回事？

此主题相关图片如下：22.png

此主题相关图片如下：qq图片20170503180129.png

在自定义里面，有一个company，它的值是bdcom。想把这个值也改为company。

多问一句。

上面的是在ft实现的。

有没有方法在vs实现，比如上面的dll和代码怎么在vs里面弄？

如果我用3楼，itextsharp.dll在vs里直接用。下面代码是不是也放入到vs内。新建项目应该选择哪一个？

图片点击可在新窗口打开查看此主题相关图片如下：新建项目.png

能备注一下每行大概是啥意思不。

Dim reader As New iTextSharp.text.pdf.PdfReader("G:\test2.pdf")
Dim document As New iTextSharp.text.Document(reader.GetPageSizeWithRotation(1))
Dim n As Integer = reader.NumberOfPages
Dim baos As New IO.FileStream("g:\test8.pdf", IO.FileMode.Create, IO.FileAccess.Write)
Dim copy As New iTextSharp.text.pdf.PdfCopy(document, baos)
copy.ViewerPreferences = iTextSharp.text.pdf.PdfWriter.HideToolbar Or iTextSharp.text.pdf.PdfWriter.HideMenubar Or iTextSharp.text.pdf.PdfWriter.HideWindowUI
'往pdf中写入内容
document.Open()
For i As Integer = 1 To n
Dim page As iTextSharp.text.pdf.PdfImportedPage = copy.GetImportedPage(reader, i)
copy.AddPage(page)
Next
document.addTitle("测试")
document.addSubject("测试")
document.addKeywords("测试")
document.addAuthor("测试")
document.addCreator("测试")
document.addHeader("测试", "测试")

document.Close()
reader.Close()

主题：修改pdf属性