Заполнение формул в Word

@miki2343 · Регистрация: 04.05.2013

Author24 — интернет-сервис помощи студентам

Язык программирования Visual Basic Net.
Есть документ Word (версия с docx). В документе есть куча текста, формул, таблиц.
Как заполнять таблички - знаю.
Вопрос, как заменить определенный текст в документе и как заменить числа (или буквы) в формуле используя средства Vb.Net?

Формула любого вида (старый или новый формат).

P.s. задача, в принципе, следующая: есть програмка, которая производит расчет. Хочу при помощи кода автоматизировать вывод результатов расчета в конечный документ для пользователя. Для этого создам шаблон и в него вставлять рассчитанные значения

@densy · 15.01.2018, 13:21

Сообщение от miki2343

Для этого создам шаблон

а что если в шаблоне вместо значений подставить идентификационный набор символов и потом искать их и заменять на соответствующие им значения ?

@miki2343 · 15.01.2018, 17:43 **[ТС]**

Кстати, как вариант.
Еще, кто сможет предложить способы?

Добавлено через 3 часа 41 минуту
В принципе испытал замену в новом редакторе формул. Меняет только если формула представлена в текстовом формате. Но это ничего страшного. Можно и так оставить.

Вопрос теперь в другом

Visual Basic

     Dim Word As Word.Application
        Word = CreateObject("Word.Application")
        Word.Documents.Open("D:\test.dotx") 'открываем документ
        Word.Visible = True
 
        With Word.Selection.Find
            .Execute(Replace("мама", 0, 0))  'что ищем
            Word.Selection.Text = "заменено" 'на что меняем
        End With
 
        With Word.Selection.Find
            .Execute(Replace("папа", 0, 0))  'что ищем
            Word.Selection.Text = "заменено1" 'на что меняем
        End With

Этот код ошибочный, а именно он меняет только одно слово "мама" на "заменено1".
Как сделать, чтобы менял "мама" на "заменено", а "папа" на "заменено1". Причем это по всему документу а не в одном месте?

Понимаю, что надо прописать ReplaceAll, но проискав по инету, выдает все ошибки в коде.

@densy · 15.01.2018, 17:56

miki2343, зачем вам Visual Basic?

Добавлено через 15 секунд
нужен же Visual Basic .NET ?

@miki2343 · 15.01.2018, 18:09 **[ТС]**

Прошу прощения - неверный тег при оформлении этого поста

@densy · 15.01.2018, 18:10

VB.NET

Imports Microsoft.Office.Interop
 
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim oWord As Word.Application
        oWord = CreateObject("Word.Application")
        oWord.Visible = True
        oWord.Documents.Open("C:\temp\test.docx")
 
 
        With oWord.Selection.Find
            .Text = "папа"
            .Replacement.Text = "удалить:)"
            .Forward = True
            .Wrap = Word.WdFindWrap.wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        oWord.Selection.Find.Execute(Replace:=Word.WdReplace.wdReplaceAll)
    End Sub
End Class

@miki2343 · 15.01.2018, 18:29 **[ТС]**

Немножко Ваш код изменил, для удобства чтения в Vb.net.
Добавил вторую переменную.
Итог:

VB.NET

  Dim oWord As Word.Application
        oWord = CreateObject("Word.Application")
        oWord.Visible = True
        oWord.Documents.Open("D:\test.dotx")
 
 
        With oWord.Selection.Find
            .Text = "папа"
            .Replacement.Text = "удалить:)"
        End With
        oWord.Selection.Find.Execute(Replace:=Word.WdReplace.wdReplaceAll, MatchAllWordForms:=False, MatchSoundsLike:=False, Wrap:=Word.WdFindWrap.wdFindContinue, Forward:=True, Format:=False, MatchCase:=False, MatchWholeWord:=False, MatchWildcards:=False)
 
        With oWord.Selection.Find
            .Text = "мама"
            .Replacement.Text = "кря-кря"
        End With
        oWord.Selection.Find.Execute(Replace:=Word.WdReplace.wdReplaceAll, MatchAllWordForms:=False, MatchSoundsLike:=False, Wrap:=Word.WdFindWrap.wdFindContinue, Forward:=True, Format:=False, MatchCase:=False, MatchWholeWord:=False, MatchWildcards:=False)

@densy · 15.01.2018, 18:47

остается только сохранить результат

VB.NET

1
2
3

        oWord.ActiveDocument.Save()
        oWord.Quit()
        oWord = Nothing

Добавлено через 13 минут
альтернативой может служить Latex формат документа word. тенденция его использования в сапрах и математических программах - растет и нет необходимости в дополнительных инструментах для формирования документов с графиками/формул к примеру в worde

@miki2343 · 15.01.2018, 19:10 **[ТС]**

Лучше так

А то шаблон испортим

VB.NET

1 2	oWord.ActiveDocument.SaveAs("d:\Test.docx") oWord = Nothing

А это если еще и док закрыть (правда тогда зачем его показывать вначале))

VB.NET

1
2
3

oWord.ActiveDocument.SaveAs("d:\Test.docx")
oWord.Documents.Close()
oWord.Quit()

Добавлено через 17 минут
Объединю ответ в конечный код, а то просто таких тем не мало...

Итак:
1. Добавляем в проект: Проект->Добавить ссылку-> в COM находим Microsoft Office 16 Object Library (циферка не суть). Тыкаем галочку и тыкаем ОК
2. Код:

VB.NET

Imports Microsoft.Office.Interop
Public Class Form1
 
 
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim oWord As Word.Application
        oWord = CreateObject("Word.Application")
        oWord.Visible = True
        oWord.Documents.Open("D:\test.dotx")
 
        'эта секция меняет слово "папа" на "удалить:)" ВО ВСЕМ ДОКУМЕНТЕ
        With oWord.Selection.Find
            .Text = "папа"
            .Replacement.Text = "удалить:)"
        End With
        oWord.Selection.Find.Execute(Replace:=Word.WdReplace.wdReplaceAll, MatchAllWordForms:=False, MatchSoundsLike:=False, Wrap:=Word.WdFindWrap.wdFindContinue, Forward:=True, Format:=False, MatchCase:=False, MatchWholeWord:=False, MatchWildcards:=False)
 
        'эта секция меняет слово "мама" на "кря-кря" ВО ВСЕМ ДОКУМЕНТЕ
        With oWord.Selection.Find
            .Text = "мама"
            .Replacement.Text = "кря-кря"
        End With
        oWord.Selection.Find.Execute(Replace:=Word.WdReplace.wdReplaceAll, MatchAllWordForms:=False, MatchSoundsLike:=False, Wrap:=Word.WdFindWrap.wdFindContinue, Forward:=True, Format:=False, MatchCase:=False, MatchWholeWord:=False, MatchWildcards:=False)
 
 
        'сохраняем документ с ДРУГИМ расширением, дабы не повредить шаблон
        oWord.ActiveDocument.SaveAs("d:\Test.docx")
        oWord = Nothing
 
      
    End Sub
 
End Class

@ovva · 15.01.2018, 19:21

densy, если вы добавили ссылку на Office.Interop, то нет никакой необходимости использовать CreateObject("Word.Application") (используется при т.н. поздней привязке).
Пример с организацией т.н. ранней привязкой:

VB.NET

Imports WRD = Microsoft.Office.Interop.Word
Public Class Form1
    Private wApp As WRD.Application
    Private wDoc As WRD.Document
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        wApp = New WRD.Application
        wDoc = wApp.Documents.Open(Path.Combine(Application.StartupPath, "tst.doc"))
        wApp.Visible = True
    End Sub
'…

@miki2343 · 15.01.2018, 19:34 **[ТС]**

Я ошибся. Неправильно указал ссылку
Надо
Microsoft Word 16.- Object Library

Office - не катит

@miki2343 · 25.02.2018, 08:43 **[ТС]**

Не хочется новую тему создавать.
А как удалить целую строку в документе?

@Юпатов Дмитрий · 25.02.2018, 23:39

Сообщение от miki2343

А то шаблон испортим

а чтоб шаблон не испортить, надо не ОТКРЫВАТЬ его, а СОЗДАВАТЬ НОВЫЙ ДОКУМЕНТ на основе имеющегося файла:

VB.NET

1	wDoc = wApp.Documents.Open(Path.Combine(Application.StartupPath, "tst.doc"))

меняем на

VB.NET

1	wDoc = wApp.Documents.Add(Path.Combine(Application.StartupPath, "tst.doc"))

ну а если метод add вызвать так: add() - будет создан документ на основе шаблона по-умолчанию (обычно это Normal.dot)

@forlife · 26.02.2018, 19:59

Сообщение от miki2343

Как заполнять таблички - знаю.

а можно поделиться знаниями?)))
как раз планирую решать такую задачу, не знаю с какой стороны подойти
планирую значения из DataGridView писать в docx-шаблон, в котором таблица плюс несколько текстовых строк

@miki2343 · 26.02.2018, 20:07 **[ТС]**

Заполнение таблицы Word документа - здесь есть как добавлять строки. А так полно информации по работе с Word таблицами.
Но, на мой взгляд, выше описанный способ очень неплох, т.к. создаете шаблон, а потом просто меняете в нем определенные вещи.

Или спросите более точно тогда, думаю или я или другие более грамотные ответят

@forlife · 26.02.2018, 20:10

Сообщение от miki2343

Но, на мой взгляд, выше описанный способ очень неплох, т.к. создаете шаблон, а потом просто меняете в нем определенные вещи.

с заменой всё ясно
вопрос скорее как добавлять новые строки в таблицу

@Юпатов Дмитрий · 27.02.2018, 10:19

Сообщение от forlife

вопрос скорее как добавлять новые строки в таблицу

Visual Basic

1	ThisDocument.Tables(1).Rows.add

это из VBA - вставляет новую строку в конец первой таблицы в документе.
https://msdn.microsoft.com/en-... ethod-word

@miki2343 0 / 0 / 0 Регистрация: 04.05.2013 Сообщений: 49
	15.01.2018, 19:34 [ТС]	11
	Я ошибся. Неправильно указал ссылку Надо Microsoft Word 16.- Object Library Office - не катит 0

@miki2343 0 / 0 / 0 Регистрация: 04.05.2013 Сообщений: 49
	25.02.2018, 08:43 [ТС]	12
	Не хочется новую тему создавать. А как удалить целую строку в документе? 0

@forlife 15 / 13 / 6 Регистрация: 13.03.2013 Сообщений: 130
	26.02.2018, 19:59	14
	Сообщение от miki2343 Как заполнять таблички - знаю. а можно поделиться знаниями?))) как раз планирую решать такую задачу, не знаю с какой стороны подойти планирую значения из DataGridView писать в docx-шаблон, в котором таблица плюс несколько текстовых строк 0

@miki2343 0 / 0 / 0 Регистрация: 04.05.2013 Сообщений: 49
		1
	Заполнение формул в Word 14.01.2018, 21:32. Показов 3220. Ответов 16 Метки нет (Все метки) Язык программирования Visual Basic Net. Есть документ Word (версия с docx). В документе есть куча текста, формул, таблиц. Как заполнять таблички - знаю. Вопрос, как заменить определенный текст в документе и как заменить числа (или буквы) в формуле используя средства Vb.Net? Формула любого вида (старый или новый формат). P.s. задача, в принципе, следующая: есть програмка, которая производит расчет. Хочу при помощи кода автоматизировать вывод результатов расчета в конечный документ для пользователя. Для этого создам шаблон и в него вставлять рассчитанные значения 0

@densy 99 / 94 / 23 Регистрация: 30.08.2015 Сообщений: 457
	15.01.2018, 13:21	2
	Сообщение от miki2343 Для этого создам шаблон а что если в шаблоне вместо значений подставить идентификационный набор символов и потом искать их и заменять на соответствующие им значения ? 0

@densy 99 / 94 / 23 Регистрация: 30.08.2015 Сообщений: 457
	15.01.2018, 17:56	4
	miki2343, зачем вам Visual Basic? Добавлено через 15 секунд нужен же Visual Basic .NET ? 0

@miki2343 0 / 0 / 0 Регистрация: 04.05.2013 Сообщений: 49
	15.01.2018, 18:09 [ТС]	5
	Прошу прощения - неверный тег при оформлении этого поста 0

@miki2343 0 / 0 / 0 Регистрация: 04.05.2013 Сообщений: 49
	26.02.2018, 20:07 [ТС]	15
	Заполнение таблицы Word документа - здесь есть как добавлять строки. А так полно информации по работе с Word таблицами. Но, на мой взгляд, выше описанный способ очень неплох, т.к. создаете шаблон, а потом просто меняете в нем определенные вещи. Или спросите более точно тогда, думаю или я или другие более грамотные ответят 0

@forlife 15 / 13 / 6 Регистрация: 13.03.2013 Сообщений: 130
	26.02.2018, 20:10	16
	Сообщение от miki2343 Но, на мой взгляд, выше описанный способ очень неплох, т.к. создаете шаблон, а потом просто меняете в нем определенные вещи. с заменой всё ясно вопрос скорее как добавлять новые строки в таблицу 0

Заполнение формул в Word

Решение