Tag: pdf的一代

如何find并使用iText中的文本replace为PDF文件: 我有一个pdf格式，结构如下 Hello firstname, Mr. firstname you are currently working at the designation post and your current package is salary. Thanks. Excel database ————————————– + firstname + salary + designation + |———–|———-|————–| | Alin | 3,00,000 | Manager | | Roy | 2,75,000 | Php Developer| +———–+———-+————–+ 这里关键字的名字，指定和工资从excel数据库中提取并dynamic变化。假设用户selectalin然后以pdf格式名义被Alin取代，工资和指定分别被replace为300,000和Manager。我的问题是，我是新的iText我无法find如何search和replace这些关键字的方式。任何帮助表示赞赏。

EXCEL VBA：创build一个简单的循环来重复每一行的处理: 我知道这似乎是一个非常简单的问题，但我尝试了不同的方法来创build一个循环，将做我在找什么：基本上我有一个Excel列表（4列）（未知的行数），我想input数据。然后将这些数据镜像到第二张纸上，其中包含用于创build多个PDF文件的“打印devise”。问题是：我尝试了4天，现在创build一个循环，并没有取得任何成就！如果你能帮助我，这是数据input： SCREENSHOT Public Sub InputData() Dim strCap As String strCap = Sheets("INPUT").Cells(4, 3).Value Label1.Caption = strCap Dim strCap2 As String strCap2 = Sheets("INPUT").Cells(4, 5).Value Label2.Caption = strCap2 If Sheets("INPUT").Cells(4, 4) = "OE" Then Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\OE_Logo.jpg") Else Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\SF_Logo.jpg") End If If Sheets("INPUT").Cells(4, 6) = "OE" Then […]

自动检测文件夹中新添加的文件，并在默认打印机上打印: 由于从我的WIN7电脑打印文档中的兼容性问题，我的老板的打印机（LX 300+）安装在联网的（本地）PC上运行WIN XP，我想创build一个应用程序，将在该PC上创build一个文件夹winxp）并且每次在该文件夹上添加一个新文件（word，excel，pdf）时都会打印（比如dropbox除了打印而不是上传）。我做了我的研究，我已经得到了打印脚本（word，excel，pdf），还有一个创build目录/文件夹的脚本。我现在需要的是：一个附加（或者其他方式）到文件夹中的Python脚本（我不知道它如何与Dropbox一起工作），它将检测该文件夹中新添加的文件，并使用默认打印机自动在默认打印机上打印设置。我正在使用Python 3.3。

更快速地打印excel报告到pdf: 我试图在Excel中打印报告，我需要它能够快速打印。就目前而言，这需要永远的经历。每个报告每天大约有一到两千行数据。这是报告的vba。任何我可以改变，使印刷到PDFfunction发生在更less的时间？ Sub TestRun() Dim rSheet As Worksheet Dim sSheet As Worksheet Dim mSheet As Worksheet Dim rRow As Long Dim sRow As Long Dim iRow As Long Dim nRow As Long Dim mRow As Long Set mSheet = ThisWorkbook.Worksheets("Report") Set rSheet = ThisWorkbook.Worksheets("Received") Set sSheet = ThisWorkbook.Worksheets("Shipped") rRow = rSheet.Cells(Rows.Count, 1).End(xlUp).Row […]

VBA – 从Excel中保存Word文档作为pdf – 找不到命名的参数: 我想让一个Excel脚本创build一个文档文件，并将其保存为PDF文件。创build文档没有问题，但find正确的代码将其保存为PDF文件似乎是一个问题。我search了互联网，有许多手册和相同的问题的答案都归结于相同的代码： ActiveDocument.ExportAsFixedFormat OutputFileName:= _ ActiveDocument.Path & "\" & ActiveDocument.Name & ".pdf", ExportFormat:= _ wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _ wdExportOptimizeForPrint, Range:=wdExportAllDocument, _ Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _ CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _ BitmapMissingFonts:=True, UseISO19005_1:=False 不知何故，似乎并没有为我做的伎俩，因为它给了我错误“命名的参数未find”。这是我的脚本（我省略了不相关的行，我确定path和文件名被正确存储）。 'Dim Word formfield values Dim objWord As Object Dim strDocName As String, strDocName1 As String, strDocName2 As String Dim strMyPath As String […]

使用Excel分页符创build多个PDF: 我有一个工作簿已经打破了我想如何分页（从使用小计），但很明显，所有进入一个PDF – 这意味着发送出去，我不得不手动分裂它并重新将每个人的名单保存在100多名员工中。如果电子表格中的员工在每个单元格中存在唯一的值，是否有任何方法可以将他们分组，以每个员工的个人PDF格式导出？所以，基本上我的分页符正好是我想要的 – 但是如果从B2：B61中有60个单元格（全部已经订购/分组在一起）中为员工说明了“John Smith”，那么将这60行放在一个PDF页面那么如果从B62：B87的下一个25个单元格为员工说出“Jane Smith”，则使用当前分页符打开一个PDF文件。是这样的可能吗？也许使用VBA？谢谢！编辑：这里是一个数据的样本 – 我在C列中使用Excel的小计，这是如何获得分页，我想他们在每个组中的变化。我只是使用打印>>保存到PDF来使我的PDF。一切都运行良好，除了分页符在组中的每一个变化 – 我想以某种方式Excel根据列D中的内容吐出单独的PDF。这里是电子表格。（即使Dropbox似乎删除了当前的分页符，这只是每次C列发生变化）

VBA从pdf复制数据: 我有大量的PDF文件，我想将文件中的所有数据复制到电子表格中的一列。这是我一直的代码。它所做的只是打开pdf，使用control-a，然后使用control-c来复制，然后激活工作簿，find一个打开的列，并用control-v Sendkey粘贴数据。它工作正常，但它只粘贴从最后一个文件的最后数据（我有一个范围与path名打开，并从所有复制数据，但实际上只是粘贴最后一个）。 Sub StartAdobe1() Dim AdobeApp As String Dim AdobeFile As String Dim StartAdobe Dim fname As Variant Dim iRow As Integer Dim Filename As String For Each fname In Range("path") AdobeApp = "C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe" StartAdobe = Shell("" & AdobeApp & " " & fname & "", 1) Application.Wait Now […]

将Excel文件保存为PDF格式，然后通过Outlook作为附件发送，但在邮件中没有签名: 我有一些Excel VBA代码，将活动工作表保存为PDF，然后将该PDF文件附加到Outlook新邮件一切工作正常，除了在Outlook中的签名时，代码启动Outlook和新邮件它不显示签名，尽pipe它在HTML中，我可以已经手动插入。所以任何调整的代码将不胜感激。 Sub Send_To_Pdf() Dim PdfPath As String Dim BoDy As String BoDy = Msg = "Dear Mr. " & vbCrLf & vbCrLf & "Good Day" & vbCrLf & vbCrLf & "Kindly find the attahched PO to be delivered to " & Cells(10, 12) PdfPath = Save_as_pdf EnvoiMail Right(PdfPath, InStr(1, StrReverse(PdfPath), "\") – 1), […]

将创build多个PDF的VBA更改为单个PDF: 下面的代码非常适合从工作表3创build名为“发布”的工作表的PDF，而忽略任何隐藏的工作表。它为每个这些工作表创build一个单独的PDF。这是链接到一个形状，用户单击，然后提示select一个文件夹来保存所有的PDF文件。我试图改变下面的代码做完全相同的事情，除了在工作表3和“发布”之间为每个可见的工作表创build一个PDF。我已经按摩了一段时间的代码，想知道是否有人知道最好的方法来完成这个？ Sub SaveAllPDF() Dim i As Integer Dim Fname As String Dim TabCount As Long TabCount = Sheets("Post").Index 'Set the TabCount to the last cell you want to PDF Dim dialog As FileDialog Dim path As String Set dialog = Application.FileDialog(msoFileDialogFolderPicker) dialog.AllowMultiSelect = False If dialog.Show = -1 Then path = […]

Laravel Excel纸张尺寸设置: 我使用Maatwebsite / Laravel-Excel包生成一些付款账单。我生成的Excel，然后将其导出为PDF（大 – >下载（'pdf'）方法），以便用户可以下载并打印它没有任何麻烦。这可能不是最优雅的方式，但我发现这种方式非常简单，易于实现。我需要生成半字母纸尺寸的PDF，以匹配已经预先印有标识和特定位置的纸张的纸张。我无法在文档中find如何更改纸张大小或PDF导出选项。谢谢。