2

Есть файл формата .doc/.docx. В этом файле есть метки, например:

...

[FirstName][MiddleName][LastName]

...

[Date]

Нужно заменить метки, значениями. Значения приходят в функцию со стороны js.

Использую c#.

Любые предложения.

8
  • Ищите библиотеку для работы с doc-файлами. Честно говоря. выбор невелик (в nuget по сути всего одна). Уточните, речь именно о doc, не о docx? 21 ноя 2016 в 13:16
  • Может быть любой. Тот, с которым проще будет решить эту задачу. 21 ноя 2016 в 13:18
  • Что значит любой? txt тоже может быть? 21 ноя 2016 в 13:20
  • нет .doc, либо .docx 21 ноя 2016 в 13:21
  • С библиотеками для docx дело обстоит намного лучше. Ищите по ключевым словам OpenXml, ClosedXml. Или вот, например. 21 ноя 2016 в 13:26

3 ответа 3

3

Вариант через Open XML SDK 2.5 для .docx. Требуется ссылка на сборку WindowsBase и сам SDK. Microsoft Office не требуется для работы. Проблема только в одном - InnerText элемента Paragraph менять напрямую нельзя, только через элементы Run, в которых и хранится сам текст, то есть при замене в данном случае теряется форматирование текста, которое хранится в RunProperties. Разбираться в коде и классах SDK проще всего через рефлектор файлов в код ссылка.

Желтым метки выделил для демонстрации, для работы это не необходимо.

using System;
using System.Collections.Generic;
using System.IO;
using System.Linq;
using System.Text.RegularExpressions;
using DocumentFormat.OpenXml.Packaging;
using DocumentFormat.OpenXml.Wordprocessing;
using Paragraph = DocumentFormat.OpenXml.Wordprocessing.Paragraph;
using Run = DocumentFormat.OpenXml.Wordprocessing.Run;
using Text = DocumentFormat.OpenXml.Wordprocessing.Text;

namespace TestC
{
    class Program
    {
        static void Main(string[] args)
        {
            string initialPath = @"C:\Users\User\Documents\TestDocument.docx";
            string resultPath = @"C:\Users\User\Documents\TestDocument_result.docx";
            File.Copy(initialPath, resultPath, overwrite: true);

            Dictionary<string, string> marks = new Dictionary<string, string>()
            {
                { "FirstName","Иван"},
                { "LastName","Иванов"},
                { "Date",DateTime.Now.ToLongDateString()},
                { "Initials","Иван И. И."},
                { "DateIssued",DateTime.Now.AddDays(5).ToLongDateString()}
            };

            using (WordprocessingDocument document = WordprocessingDocument.Open(resultPath, true)) {
                Body documentBody = document.MainDocumentPart.Document.Body;
                List<Paragraph> paragraphsWithMarks = documentBody.Descendants<Paragraph>().Where(x => Regex.IsMatch(x.InnerText, @".*\[\w+\].*")).ToList();
                foreach (Paragraph paragraph in paragraphsWithMarks) {
                    foreach (Match markMatch in Regex.Matches(paragraph.InnerText, @"\[\w+\]", RegexOptions.Compiled)) {

                        string paragraphMarkValue = markMatch.Value.Trim(new[] { '[', ']' });
                        string markValueFromCollection;
                        if (marks.TryGetValue(paragraphMarkValue, out markValueFromCollection)) {
                            string editedParagraphText = paragraph.InnerText.Replace(markMatch.Value, markValueFromCollection);
                            paragraph.RemoveAllChildren<Run>();
                            paragraph.AppendChild<Run>(new Run(new Text(editedParagraphText)));
                        }
                    }
                }
            }
        }
    }
}

До:

Документ до

После:

Документ после

6
  • При замене теряется форматирование только замененного текста? 22 ноя 2016 в 7:55
  • @endovitskiiy Всего параграфа, где он содержится. Но там часть стилей идут на весь параграф (стиль Заголовок 1), к примеру, и указываются в ParagraphProperties у Paragraph. Они не теряются. Потеряются такие вещи как наклон, курсив, которые могут указываться в RunProperties на область текста (Run) внутри Paragraph. Там с этим не все так просто, конечно... 22 ноя 2016 в 8:01
  • У меня в документе нет наклонов/курсивов - никакого форматирования. Только текст и таблицы и отступы. Отступы потеряются (у параграфа)? 22 ноя 2016 в 8:05
  • @endovitsky, сейчас попробовал - не потерялись. Отступы и интервал 22 ноя 2016 в 8:21
  • 2
    Ну...OpenXML я бы назвал, наверно, более правильным подходом чем работа с процессом Microsoft Word через COM Interop. 22 ноя 2016 в 8:29
2

Вместо меток лучше использовать DocVariable Добавление переменной

тогда используя Microsoft.Office.Interop.Word можно написать примерно следующее:

using Word = Microsoft.Office.Interop.Word;

//

Word._Application application;     
Word._Document sdoc = null;

Object missingObj = System.Reflection.Missing.Value;
Object trueObj = true;
Object falseObj = false;

application = new Word.Application();

Object templatePathObj = @"e:\temp\template.docx";

try
{
    sdoc = application.Documents.Add(ref  templatePathObj, ref missingObj, ref missingObj, ref missingObj);
}
catch (Exception error)
{               
    application.Quit(ref missingObj, ref  missingObj, ref missingObj);
    application = null;
    throw error;
}

object variable2 = "Здесь будет значение для переменной";

if (sdoc.Variables.Count == 0)
{                   
    Word.Variable var2 = sdoc.Variables.Add("SomeField", ref variable2);
}
else
{ 
    sdoc.Variables["SomeField"].Value = variable2.ToString;
}

sdoc.Fields.Update();
application.Visible = true;
7
0

Если Microsoft Office и сборки Word Interop есть на компьютере, то можно применить функцию Interop. Этот метод будет работать только если длина строки значения замены < 256 символов и строка замены не содержит перевод строки. Если строки замены длинные или есть переводы строк, надо искать/заменять по каждому появлению метки. Стиль метки будет применен к строке замены.

<!-- language: c# -->
using Word = Microsoft.Office.Interop.Word;
...
Word.Application word = new Word.Application();
word.Visible = true;
Word.Document wordDocument = word.Documents.Open(имяВходногоФайлаСМетками);
...
var find = word.Selection.Find;
find.Text = строкаМетки;
find.Replacement.Text = значениеДляЗамены;
find.Execute(FindText: Type.Missing, 
             MatchCase: true, 
             MatchWholeWord: true, 
             MatchWildcards: false,
             MatchSoundsLike: Type.Missing, 
             MatchAllWordForms: false, 
             Forward: true, 
             Wrap: Word.WdFindWrap.wdFindContinue,
             Format: false, 
             ReplaceWith: Type.Missing, 
             Replace: Word.WdReplace.wdReplaceAll);
wordDocument.Save()

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.