MS Word bureautique - Remplir les Champs de Formulaire Texte Case à cocher Et des Champs de Formulaire Et de Fusion et Publipostage

Je vais envoyé deux exemples pour résoudre votre problème de l'automatisation. Le premier est l'aide de Publipostage et le deuxième est à l'aide de signets.

Le mot fichier ressemble à ceci:

À l'aide de Publipostage (Insertion - > Rapide de Pièces de rechange ->- > Publipostage -> champ de Fusion)
Prénom: «firstName»
Nom de famille: «nom»

=======

À l'aide de Signets( Insertion -> Signet)
Prénom: (<- le signet est ici, il n'est pas visible)
Nom de famille:

Et le code est le suivant:

1. À l'aide de signets

       Open("D:/Doc1.doc");
       if (oDoc.Bookmarks.Exists("bkmFirstName"))
       {
           object oBookMark = "bkmFirstName";
           oDoc.Bookmarks.get_Item(ref oBookMark).Range.Text = textBox1.Text;
       }
   
       if (oDoc.Bookmarks.Exists("bkmLastName"))
       {
           object oBookMark = "bkmLastName";
           oDoc.Bookmarks.get_Item(ref oBookMark).Range.Text = textBox2.Text;
       }
   
       SaveAs("D:/Test/Doc2.doc"); Quit();
       MessageBox.Show("The file is successfully saved!");

2. À L'Aide De Publipostage

       Open("D:/Doc1.doc");
       foreach (Field myMergeField in oDoc.Fields)
       {
           //iTotalFields++;
           Range rngFieldCode = myMergeField.Code;
           String fieldText = rngFieldCode.Text;
   
           //GET only MAILMERGE fields
           if (fieldText.StartsWith(" MERGEFIELD"))
           {
               Int32 endMerge = fieldText.IndexOf("\\");
               Int32 fieldNameLength = fieldText.Length - endMerge;
               String fieldName = fieldText.Substring(11, endMerge - 11);
   
               fieldName = fieldName.Trim();
               if (fieldName == "firstName")
               {
                   myMergeField.Select();
                   oWordApplic.Selection.TypeText("This Text Replaces the Field in the Template");
               }
           }
       }
       SaveAs("D:/Test/Doc2.doc"); Quit();
       MessageBox.Show("The file is successfully saved!");

J'ai également utilisé des méthodes d'assistance.

    ApplicationClass oWordApplic = new Microsoft.Office.Interop.Word.ApplicationClass();
private Microsoft.Office.Interop.Word.Document oDoc = new Document();
public void Open(string strFileName)
{
object fileName = strFileName;
object readOnly = false;
object isVisible = true;
object missing = System.Reflection.Missing.Value;
oDoc = oWordApplic.Documents.Open(ref fileName, ref missing, ref readOnly,
ref missing, ref missing, ref missing, ref missing, ref missing, ref missing,
ref missing, ref missing, ref isVisible, ref missing, ref missing, ref missing, ref missing);
oDoc.Activate();
}
public void SaveAs(string strFileName)
{
object missing = System.Reflection.Missing.Value;
object fileName = strFileName;
oDoc.SaveAs(ref fileName, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing,
ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing);
}
public void Quit()
{
object missing = System.Reflection.Missing.Value;
oWordApplic.Application.Quit(ref missing, ref missing, ref missing);
}

J'espère que cette mise en oeuvre donnera quelques idées pour résoudre votre problème.

OriginalL'auteur