arguments 相关问题

Sub createPDFs() Dim wd As Word.Application Dim doc As Word.Document 'Ensure doc is Explicitly Declared as Word.Document Dim docPath As String Dim i As Integer ' Explicitly declare i as Integer ' Must Network Sharepoint site to computer to create a working path docPath = "C:\Users\obergmann\Project Sheet Generation/R&M_ProjectSheetTemplate.docx" Set wd = New Word.Application wd.Visible = True On Error GoTo ErrorHandler ' For loop to iteratively cycle through row numbers: For i = 8 To 10 ' Locate the template Set doc = wd.Documents.Open(docPath) ' Standard text replacements With wd.Selection.Find .Text = "<<Recommendation Number>>" .Replacement.Text = Cells(i, 1).Value .Execute Replace:=wdReplaceAll End With ' I have several more wd.Selection.Find after this ' Call the function to handle long text replacements Call ReplaceLongText(doc, i) ' Save the Word document Dim wordFileName As String wordFileName = ActiveWorkbook.Path & "\" & Cells(i, 2).Value & "_" & Cells(i, 1).Value & ".docx" doc.SaveAs2 fileName:=wordFileName, FileFormat:=wdFormatDocumentDefault ' export as pdf doc.ExportAsFixedFormat OutputFileName:=ActiveWorkbook.Path & "\" & Cells(i, 2).Value & "_" & Cells(i, 1).Value & ".pdf", _ ExportFormat:=wdExportFormatPDF Application.DisplayAlerts = False doc.Close SaveChanges:=False Next i wd.Quit Application.DisplayAlerts = True Exit Sub ErrorHandler: MsgBox "An error occurred: " & Err.description If Not doc Is Nothing Then doc.Close False If Not wd Is Nothing Then wd.Quit Application.DisplayAlerts = True End Sub Function SanitizeFileName(fileName As String) As String Dim invalidChars As String invalidChars = ":\/?*""<>|" Dim i As Integer For i = 1 To Len(invalidChars) fileName = Replace(fileName, Mid(invalidChars, i, 1), "_") Next i SanitizeFileName = fileName End Function `Then here is the next function: Sub ReplaceLongText(ByRef doc As Word.Document, Optional ByVal k As Integer) ' I think this is the line with issues Dim placeholders As Variant Dim columnIndices As Variant Dim description As String Dim chunkSize As Integer Dim startPos As Integer Dim chunk As String Dim j As Integer Dim rng As Range ' Create a range object ' Define placeholders and corresponding column indices placeholders = Array("<<Description>>", _ "<<Public Health & Safety - Compliance Driven Rationale>>", _ "<<Reliability & Resiliency Rationale>>", _ "<<Community Enrichment/Growth Rationale>>", _ "<<Financial Stewardship Rationale>>", _ "<<Efficiency, Modernization, & Environment Rationale>>", _ "<<Level of Service Rationale>>", _ "<<Additional Prioritization Notes>>", _ "<<Funding Source>>") columnIndices = Array(3, 12, 13, 14, 15, 16, 17, 18, 27) ' Corresponding Excel column numbers chunkSize = 255 ' Max characters per chunk ' Loop through all placeholders For j = LBound(placeholders) To UBound(placeholders) description = Cells(k, columnIndices(j)).Value startPos = 1 ' Set the range to search in the document Set rng = doc.Content With rng.Find .Text = placeholders(j) ' Set text to find .Forward = True .Wrap = wdFindStop ' Execute the search If .Execute Then ' Set range to the found text Set rng = doc.Range(rng.Start, rng.End) rng.Text = "" ' Clear only the placeholder text ' Insert text in chunks Do While startPos <= Len(description) chunk = Mid(description, startPos, chunkSize) rng.InsertAfter Text:=chunk startPos = startPos + chunkSize Loop End If End With Next j End Sub

excel vba arguments optional-parameters

回答 0 投票 0

VBA代码Excel-参数不可选。我该如何修复？我正在尝试在Excel中行迭代生成项目表。有些列有较长的描述，因此编写了一个附加的子功能来处理长文本字符串。我相信错误

excel vba arguments optional-parameters

回答 1 投票 0

关于python函数在stackoverflow上的位置和关键字参数之间的差异有很多解释，我的实用程序差异对我来说很明显。但是，我无法f ...

dict

python performance arguments

回答 1 投票 0

如何将参数作为指向C

开始，我所浏览的现有解决方案都没有参数作为数组，例如： void Inputcars（汽车 *汽车[]，int size）; 这是我当前拥有的代码。 /******************************

c parameters arguments dynamic-arrays function-call