optional-parameters 相关问题

可选参数是调用者可以在对函数或方法的调用中包含但可以包含的参数。省略时,使用默认值。在大多数情况下使用默认值时,可选参数很有用,但有时仍需要指定。




<code>Sub ReplaceLongText(ByRef doc As Word.Document, Optional ByVal k As Integer) </code>

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

回答 0 投票 0


C#4.0,可选参数和参数不起作用

如何创建一个具有可选参数和参数在一起的方法? 静态void main(string [] args) { testOptional(“ A”,C:“ D”,“ E”); //这不会构建 TestOptional(“ A”,C:“ D”)...

回答 4 投票 0

为什么reduce的回调函数有四个参数?

在研究reduce方法时我不太清楚为什么传入的回调需要第三个和第四个参数,索引和数组。在 MDN 的示例中: [0, 1, 2, 3, 4].reduce(函数(

回答 3 投票 0

如何将具有所有可选字段的类转换为不具有可选字段的类

我有一个包含很多字段的类,从 JSON 反序列化时所有这些字段都是可选的。 有没有办法将其转换为匹配所有非可选类型的类。 我的选修课 @

回答 1 投票 0

Java:如何将具有所有可选字段的类转换为不具有可选字段的类

我有一个包含很多字段的类,从 JSON 反序列化时所有这些字段都是可选的。 有没有办法将其转换为匹配所有非可选类型的类。 我的选修课 @

回答 1 投票 0

C 支持可选的空参数吗?

在Python中,我习惯了这样的事情 def send_command(命令,修饰符=无): 然后修饰符参数是可选的,并且可以将不存在参数与有参数区分开来...

回答 6 投票 0

Java中有多个可选参数

我试图在我的方法中添加可选参数。我找到了布尔...测试,它有效。但每当我尝试第二个时,它就不起作用。 是否可以放置两个或更多...

回答 6 投票 0

显式实现带有可选参数的接口的警告

我正在使用可选参数来看看它们如何与接口一起工作,我遇到了一个奇怪的警告。 我的设置是以下代码: 公共接口 ITestInterface { ...

回答 3 投票 0

如何使用 reitit clojure 定义可选查询参数

我使用以下代码创建了一个API: [“/环境/:环境名称/节点” {:swagger {:标签[“节点”]} :parameters {:path {:env-name ::vt-vali/name}}} [“&q...

回答 3 投票 0

格式化可选的日期时间

这是我的功能: 私有静态字符串 strTimeStampMsg(string strMsg, DateTime? dtTimestamp = null) { if (strMsg == null || strMsg.Length == 0) { 返回字符串。空; } 字符串

回答 1 投票 0

c# 格式化可选日期时间

这是我的功能: 私有静态字符串 strTimeStampMsg(string strMsg, DateTime? dtTimestamp = null) { if (strMsg == null || strMsg.Length == 0) { 返回字符串。空; } 字符串

回答 1 投票 0

使用可选的构面图参数编写自定义 ggplot 函数

我正在尝试创建一个使用 ggplot facet_wrap 的自定义函数,用户可以在其中选择提供标签。我已将facet_grid参数包装在if/else子句中,具体取决于...

回答 1 投票 0

getopt 命令行中“:b:”中的第一个冒号是什么意思?

在我的操作系统中显示 bash 和 getopt 版本: bash --version |grep [r]elease GNU bash,版本 5.2.15(1)-release (x86_64-pc-linux-gnu) getopt --版本 来自 util-linux 2.38.1 的 getopt 在 getopt 的手册中...

回答 1 投票 0

检查方法内部是否传递了某些可选参数

如何检查可选参数是否传递给方法? public void ExampleMethod(int 必需,字符串可选str = "默认字符串", int 可选 int = 10) { if(可选int是p...

回答 11 投票 0

在php中调用预先填充参数的方法

我创建了一个带有预填充参数的方法(用于标准行为)。但当预填充的参数位于方法的中间或开始但位于方法的末尾时,我无法调用该方法。 我...

回答 1 投票 0

如何在FastAPI中只提供多个可选参数之一?

API 应提供一个端点,用户可以在其中提供 guid、路径或代码。 url 方案应如下所示: api/位置?code={str}&guid={str}&path={str}

回答 2 投票 0

最新问题
© www.soinside.com 2019 - 2025. All rights reserved.