0

我正在用 DocVariable 字段自动替换文本字符串。唯一的问题是，当这些字符串（以后我将其称为 TAGS）时，当 TAG 位于“TextBox”控件中时。

我使用两个模块用 DOCVARIABLES 替换标签

***TAG 示例： “DEPARTMENT_NAME” 字符串文本

DOCVARIABLE 示例： {DOCVARIABLE "Department_Name" * MERGEFORMAT} ***

模块 1

Public Function PopulateDocuments() As Boolean

Dim Department_Name As String
Department_Name = "Department_Name"
ReplaceWithDocVar "DEPARTMENT_NAME", "Department_Name"
End Function

模块 2

Public Function ReplaceWithDocVar(strFind As String, strVarName As String) As Boolean
Dim oStory As Range
Dim TextColor As Range
Dim strDocName As String
Dim orgDocName As String
Dim orgPath As String
Dim intPos As Integer
Dim docpath As String
Dim docname As String
Application.DisplayAlerts = False
    For Each oStory In ActiveDocument.StoryRanges
        With oStory.Find

            Do While .Execute(FindText:=strFind, MatchCase:=True, MatchWholeWord:=True)
                
                oStory.Text = ""
                'oStory.Text = wdBlue

                oStory.Fields.Add Range:=oStory, _
                                  Type:=wdFieldDocVariable, _
                                  Text:=Chr(34) & strVarName & Chr(34), _
                                  PreserveFormatting:=True

                oStory.Collapse 0

            Loop
        End With
        If oStory.StoryType <> wdMainTextStory Then
            While Not (oStory.NextStoryRange Is Nothing)
                Set oStory = oStory.NextStoryRange
                With oStory.Find

                    Do While .Execute(FindText:=strFind, MatchCase:=True, MatchWholeWord:=True)

                        oStory.Text = ""
                        'oStory.Text = wdBlue
                        oStory.Fields.Add Range:=oStory, _
                                          Type:=wdFieldDocVariable, _
                                          Text:=Chr(34) & strVarName & Chr(34), _
                                          PreserveFormatting:=True
                        'oStory.Font.ColorIndex = wdBlue
                        oStory.Collapse 0

                    Loop
                End With
            Wend
        End If
    Next oStory
    Set oStory = Nothing
lbl_Exit:
    Exit Function
End Function

注意：我不是这段代码的作者，但它运行得很好。

替换我可以找到的那些 TAG 时，我没有看到任何错误消息。除文本框中的标签外，所有标签都正确替换为 DOCVARIABLES。

4

1 回答 1

0

文本框是文档中的形状。您必须在文档中搜索 Shapes，然后确定 Shape 是否为带有文本内容的 TextBox。在任何情况下，对文本框的搜索以及对其文本内容的检查都必须与通过当前代码的文档故事范围进行的其他搜索分开。

这是一些用于搜索文本框的示例代码。根据您的项目的需要对其进行调整。

Dim shp As Word.Shape
Dim rng As Word.Range
For Each shp In ActiveDocument.Shapes
    If shp.Type = msoTextBox Then
        If shp.TextFrame.HasText Then
            Set rng = shp.TextFrame.TextRange
            With rng.Find
                'add your find and replace criteria here
            End With
        End If
    End If
Next
于 2021-01-30T14:18:01.217 回答