Advertisement
Guest User

Untitled

a guest
Jun 27th, 2017
53
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
C# 4.48 KB | None | 0 0
  1. using System;
  2. using System.Collections.Generic;
  3. using System.Linq;
  4. using System.Text;
  5. using word = Word;
  6. using System.Drawing;
  7.  
  8. namespace PreencherWord
  9. {
  10.     class WordFill
  11.     {
  12.         public void PreencherPorReplace(string CaminhoDocMatriz, string declarante, string rgdcl, string cpfdcl, string interessado, string rgint, string cpfint, string end, string numero, string bairro, string cidade)
  13.         {
  14.             object missing = System.Reflection.Missing.Value;
  15.             word.Application oApp = new Word.Application();
  16.             object template = CaminhoDocMatriz;
  17.             word.Document oDoc = oApp.Documents.Add(ref template, ref missing, ref missing, ref missing);
  18.  
  19.             word.Range oRng = oDoc.Range(ref missing, ref missing);
  20.             object FindText = "@declarante";
  21.             object ReplaceWith = declarante;
  22.             object MatchWholeWord = true;
  23.             object Forward = false;
  24.             oRng.Find.Execute(ref FindText, ref missing, ref MatchWholeWord, ref missing, ref missing, ref missing, ref Forward, ref missing, ref missing, ref ReplaceWith, ref missing, ref missing, ref missing, ref missing, ref missing);
  25.            
  26.  
  27.             oRng = oDoc.Range(ref missing, ref missing);
  28.             FindText = "@rgdcl";
  29.             ReplaceWith = rgdcl;            
  30.             oRng.Find.Execute(ref FindText, ref missing, ref MatchWholeWord, ref missing, ref missing, ref missing, ref Forward, ref missing, ref missing, ref ReplaceWith, ref missing, ref missing, ref missing, ref missing, ref missing);
  31.  
  32.             oRng = oDoc.Range(ref missing, ref missing);
  33.             FindText = "@cpfdcl";
  34.             ReplaceWith = cpfdcl;
  35.             oRng.Find.Execute(ref FindText, ref missing, ref MatchWholeWord, ref missing, ref missing, ref missing, ref Forward, ref missing, ref missing, ref ReplaceWith, ref missing, ref missing, ref missing, ref missing, ref missing);
  36.  
  37.             oRng = oDoc.Range(ref missing, ref missing);
  38.             FindText = "@interessado";
  39.             ReplaceWith = interessado;
  40.             oRng.Find.Execute(ref FindText, ref missing, ref MatchWholeWord, ref missing, ref missing, ref missing, ref Forward, ref missing, ref missing, ref ReplaceWith, ref missing, ref missing, ref missing, ref missing, ref missing);
  41.  
  42.             oRng = oDoc.Range(ref missing, ref missing);
  43.             FindText= "@rgint";
  44.             ReplaceWith = rgint;
  45.             oRng.Find.Execute(ref FindText, ref missing, ref MatchWholeWord, ref missing, ref missing, ref missing, ref Forward, ref missing, ref missing, ref ReplaceWith, ref missing, ref missing, ref missing, ref missing, ref missing);
  46.  
  47.             oRng = oDoc.Range(ref missing, ref missing);
  48.             FindText = "@cpfint";
  49.             ReplaceWith = cpfint;
  50.             oRng.Find.Execute(ref FindText, ref missing, ref MatchWholeWord, ref missing, ref missing, ref missing, ref Forward, ref missing, ref missing, ref ReplaceWith, ref missing, ref missing, ref missing, ref missing, ref missing);
  51.  
  52.             oRng = oDoc.Range(ref missing, ref missing);
  53.             FindText = "@end";
  54.             ReplaceWith = end;
  55.             oRng.Find.Execute(ref FindText, ref missing, ref MatchWholeWord, ref missing, ref missing, ref missing, ref Forward, ref missing, ref missing, ref ReplaceWith, ref missing, ref missing, ref missing, ref missing, ref missing);
  56.  
  57.             oRng = oDoc.Range(ref missing, ref missing);
  58.             FindText = "@numero";
  59.             ReplaceWith = numero;
  60.             oRng.Find.Execute(ref FindText, ref missing, ref MatchWholeWord, ref missing, ref missing, ref missing, ref Forward, ref missing, ref missing, ref ReplaceWith, ref missing, ref missing, ref missing, ref missing, ref missing);
  61.  
  62.             oRng = oDoc.Range(ref missing, ref missing);
  63.             FindText = "@bairro";
  64.             ReplaceWith = bairro;
  65.             oRng.Find.Execute(ref FindText, ref missing, ref MatchWholeWord, ref missing, ref missing, ref missing, ref Forward, ref missing, ref missing, ref ReplaceWith, ref missing, ref missing, ref missing, ref missing, ref missing);
  66.  
  67.             oRng = oDoc.Range(ref missing, ref missing);
  68.             FindText = "@cidade";
  69.             ReplaceWith = cidade;
  70.             oRng.Find.Execute(ref FindText, ref missing, ref MatchWholeWord, ref missing, ref missing, ref missing, ref Forward, ref missing, ref missing, ref ReplaceWith, ref missing, ref missing, ref missing, ref missing, ref missing);
  71.             oApp.Visible = true;
  72.  
  73.             }
  74.     }
  75. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement