Método ControlCollection.AddPlainTextContentControl (ContentControl, String)
Adicionar novo PlainTextContentControl que é baseado em um controle de conteúdo nativo no documento.
Namespace: Microsoft.Office.Tools.Word
Assembly: Microsoft.Office.Tools.Word (em Microsoft.Office.Tools.Word.dll)
Sintaxe
'Declaração
Function AddPlainTextContentControl ( _
contentControl As ContentControl, _
name As String _
) As PlainTextContentControl
PlainTextContentControl AddPlainTextContentControl(
ContentControl contentControl,
string name
)
Parâmetros
- contentControl
Tipo: Microsoft.Office.Interop.Word.ContentControl
Microsoft.Office.Interop.Word.ContentControl que é a base para o novo controle.
- name
Tipo: System.String
O nome do novo controle.
Valor de retorno
Tipo: Microsoft.Office.Tools.Word.PlainTextContentControl
PlainTextContentControl que foi adicionado ao documento.
Exceções
Exceção | Condição |
---|---|
ArgumentNullException | contentControl é nulluma referência nula (Nothing no Visual Basic). - ou - name é nulluma referência nula (Nothing no Visual Basic) ou tem comprimento zero. |
ControlNameAlreadyExistsException | Um controle com o mesmo nome já está em ControlCollection. |
ArgumentException | contentControl não é uma galeria do bloco de construção (ou seja, a propriedade de Type de contentControl não tem o valor Microsoft.Office.Interop.Word.WdContentControlType.wdContentControlText). |
Comentários
Use este método para adicionar novo PlainTextContentControl que é baseado em um controle de conteúdo nativo no documento em tempo de execução.Isso é útil quando você cria PlainTextContentControl em tempo de execução, e você deseja recriar o mesmo controle na próxima vez que o documento está aberto.Para obter mais informações, consulte Adicionar controles a documentos do Office em tempo de execução.
Exemplos
O exemplo de código cria um novo PlainTextContentControl para cada controle nativo de texto sem formatação que está no documento.
Esta é uma versão para personalização da nível.Para usar este código, cole na classe de ThisDocument em seu projeto, e chame o método de CreateTextControlsFromNativeControls do método de ThisDocument_Startup .
Private plainTextControls As New System.Collections.Generic.List _
(Of Microsoft.Office.Tools.Word.PlainTextContentControl)
Private Sub CreatePlainTextControlsFromNativeControls()
If Me.ContentControls.Count <= 0 Then
Return
End If
Dim count As Integer = 0
For Each nativeControl As Word.ContentControl In Me.ContentControls
If nativeControl.Type = Word.WdContentControlType.wdContentControlText Then
count += 1
Dim tempControl As Microsoft.Office.Tools.Word.PlainTextContentControl = _
Me.Controls.AddPlainTextContentControl(nativeControl, _
"VSTOPlainTextContentControl" + count.ToString())
plainTextControls.Add(tempControl)
End If
Next nativeControl
End Sub
private System.Collections.Generic.List<Microsoft.Office.Tools.Word.PlainTextContentControl> plainTextControls;
private void CreateTextControlsFromNativeControls()
{
if (this.ContentControls.Count <= 0)
return;
plainTextControls = new System.Collections.Generic.List
<Microsoft.Office.Tools.Word.PlainTextContentControl>();
int count = 0;
foreach (Word.ContentControl nativeControl in this.ContentControls)
{
if (nativeControl.Type == Word.WdContentControlType.wdContentControlText)
{
count++;
Microsoft.Office.Tools.Word.PlainTextContentControl tempControl =
this.Controls.AddPlainTextContentControl(nativeControl,
"VSTOPlainTextContentControl" + count.ToString());
plainTextControls.Add(tempControl);
}
}
}
Esta versão é para um suplemento ao nível que tem como alvo .NET Framework 4 ou .NET Framework 4.5.Para usar este código, cole na classe de ThisAddIn em seu projeto, e chame o método de CreateTextControlsFromNativeControls do método de ThisAddIn_Startup .
Private plainTextControls As New System.Collections.Generic.List _
(Of Microsoft.Office.Tools.Word.PlainTextContentControl)
Private Sub CreatePlainTextControlsFromNativeControls()
If Me.Application.ActiveDocument Is Nothing Then
Return
End If
Dim vstoDoc As Document = Globals.Factory.GetVstoObject(Me.Application.ActiveDocument)
If vstoDoc.ContentControls.Count <= 0 Then
Return
End If
Dim count As Integer = 0
For Each nativeControl As Word.ContentControl In vstoDoc.ContentControls
If nativeControl.Type = Word.WdContentControlType.wdContentControlText Then
count += 1
Dim tempControl As Microsoft.Office.Tools.Word.PlainTextContentControl = _
vstoDoc.Controls.AddPlainTextContentControl(nativeControl, _
"VSTOPlainTextContentControl" + count.ToString())
plainTextControls.Add(tempControl)
End If
Next nativeControl
End Sub
private System.Collections.Generic.List<Microsoft.Office.Tools.Word.PlainTextContentControl> plainTextControls;
private void CreateTextControlsFromNativeControls()
{
if (this.Application.ActiveDocument == null)
return;
Document vstoDoc = Globals.Factory.GetVstoObject(this.Application.ActiveDocument);
if (vstoDoc.ContentControls.Count <= 0)
return;
plainTextControls = new System.Collections.Generic.List
<Microsoft.Office.Tools.Word.PlainTextContentControl>();
int count = 0;
foreach (Word.ContentControl nativeControl in vstoDoc.ContentControls)
{
if (nativeControl.Type == Word.WdContentControlType.wdContentControlText)
{
count++;
Microsoft.Office.Tools.Word.PlainTextContentControl tempControl =
vstoDoc.Controls.AddPlainTextContentControl(nativeControl,
"VSTOPlainTextContentControl" + count.ToString());
plainTextControls.Add(tempControl);
}
}
}
O exemplo de código cria um novo PlainTextContentControl para cada controle nativo de texto sem formatação que o usuário adiciona ao documento.
Esta é uma versão para personalização da nível.Para usar este código, cole na classe de ThisDocument em seu projeto.Para C#, você também deve anexar um manipulador de eventos de ThisDocument_PlainTextContentControlAfterAdd ao evento de ContentControlAfterAdd da classe de ThisDocument .
Private Sub ThisDocument_PlainTextContentControlAfterAdd(ByVal NewContentControl As Word.ContentControl, _
ByVal InUndoRedo As Boolean) Handles Me.ContentControlAfterAdd
If NewContentControl.Type = Word.WdContentControlType.wdContentControlText Then
Me.Controls.AddPlainTextContentControl(NewContentControl, _
"PlainTextControl" + NewContentControl.ID)
End If
End Sub
void ThisDocument_PlainTextContentControlAfterAdd(Word.ContentControl NewContentControl, bool InUndoRedo)
{
if (NewContentControl.Type == Word.WdContentControlType.wdContentControlText)
{
this.Controls.AddPlainTextContentControl(NewContentControl,
"PlainTextControl" + NewContentControl.ID);
}
}
Esta versão é para um suplemento ao nível que tem como alvo .NET Framework 4 ou .NET Framework 4.5.Para usar este código, cole na classe de ThisAddIn em seu projeto.Além disso, você deve anexar um manipulador de eventos de ActiveDocument_PlainTextContentControlAfterAdd ao evento de ContentControlAfterAdd de documento ativo.
Private Sub ActiveDocument_PlainTextContentControlAfterAdd( _
ByVal NewContentControl As Word.ContentControl, _
ByVal InUndoRedo As Boolean)
Dim vstoDoc As Document = Globals.Factory.GetVstoObject(Me.Application.ActiveDocument)
If NewContentControl.Type = Word.WdContentControlType. _
wdContentControlText Then
vstoDoc.Controls.AddPlainTextContentControl(NewContentControl, _
"PlainTextControl" + NewContentControl.ID)
End If
End Sub
void ActiveDocument_PlainTextContentControlAfterAdd(
Word.ContentControl NewContentControl, bool InUndoRedo)
{
Document vstoDoc = Globals.Factory.GetVstoObject(this.Application.ActiveDocument);
if (NewContentControl.Type == Word.WdContentControlType.wdContentControlText)
{
vstoDoc.Controls.AddPlainTextContentControl(NewContentControl,
"PlainTextControl" + NewContentControl.ID);
}
}
Segurança do .NET Framework
- Confiança total para o chamador imediato. O membro não pode ser usado por código parcialmente confiável. Para obter mais informações, consulte Usando bibliotecas de código parcialmente confiáveis.
Consulte também
Referência
Sobrecargas AddPlainTextContentControl
Namespace Microsoft.Office.Tools.Word
Outros recursos
Adicionar controles a documentos do Office em tempo de execução
Como: adicionar controles de conteúdo para documentos do Word