WorkbookBase.GetWorkflowTemplates Méthode
Définition
Important
Certaines informations portent sur la préversion du produit qui est susceptible d’être en grande partie modifiée avant sa publication. Microsoft exclut toute garantie, expresse ou implicite, concernant les informations fournies ici.
Retourne la collection de modèles de flux de travail pour le classeur.
public:
Microsoft::Office::Core::WorkflowTemplates ^ GetWorkflowTemplates();
public Microsoft.Office.Core.WorkflowTemplates GetWorkflowTemplates ();
member this.GetWorkflowTemplates : unit -> Microsoft.Office.Core.WorkflowTemplates
Public Function GetWorkflowTemplates () As WorkflowTemplates
Retours
Collection Microsoft.Office.Core.WorkflowTemplates qui contient les modèles de flux de travail pour le classeur.
Exemples
L’exemple de code suivant affiche le nombre de modèles de flux de travail disponibles pour le classeur. S’il existe un ou plusieurs modèles de flux de travail, l’exemple affiche le nom et la description de chaque modèle.
Pour exécuter cet exemple de code, vous devez publier le classeur sur un site Office SharePoint Server.
Cet exemple concerne une personnalisation au niveau du document.
private void DisplayWorkflowTemplates()
{
Office.WorkflowTemplates workflowTemplates =
this.GetWorkflowTemplates();
MessageBox.Show("Number of workflow templates found: "
+ workflowTemplates.Count.ToString());
StringBuilder sb = new StringBuilder();
sb.Append("Workflow Template List\r\n");
foreach (Office.WorkflowTemplate template in workflowTemplates)
{
sb.Append("\r\n" + template.Name + " Template"
+ "\r\nDescription: " + template.Description);
}
if (workflowTemplates.Count > 0)
{
MessageBox.Show(sb.ToString());
}
}
Private Sub DisplayWorkflowTemplates()
Dim workflowTemplates As Office.WorkflowTemplates = _
Me.GetWorkflowTemplates()
MessageBox.Show("Number of workflow templates found: " _
+ workflowTemplates.Count.ToString())
Dim sb As StringBuilder = New StringBuilder()
sb.Append("Workflow Template List" + vbCrLf)
For Each template As Office.WorkflowTemplate In workflowTemplates
sb.Append(vbCrLf + template.Name + " Template" + vbCrLf _
+ "Description: " + template.Description)
Next
If workflowTemplates.Count > 0 Then
MessageBox.Show(sb.ToString())
End If
End Sub