Здравствуйте! Сегодня: Вс, 25 Авг 2019, Ваш IP: 34.238.194.166 Войти через loginza
 
Вход | Регистрация | Забыли пароль?
Мой Kbyte.Ru
> Список форумов Kbyte.Ru - - Общие вопросы программирования
+ Создать новую тему Страница: 1
Тема: Работа с документом\шаблоном Word · +  +  дата добавления: 10.03.2015 / 08:57
Автор темы:
email333333
email333333
тем: 16 / ответов: 30 / благодарностей: 0 / репутация: 2
ответов: 30
создал(а) тем: 16


Здравствуйте.
Есть документ MS Word.
В содержимом есть такие строчки /studentname/, /studentgroup/,/studentcourse/
Как можно реализовать следующее:
В текстбокс 1,2 и 3 вводятся значения для studentname,stundentgroup и studentcourse соответственно.
При нажатии на кнопку "записать" они записываются в этот документ.
Технологии: Visual Basic .NET
 
Ответ # 1 # · +  +  дата добавления: 10.03.2015 / 10:42
Автор ответа:
Алексей Немиро
Алексей Немиро
тем: 534 / ответов: 5130 / благодарностей: 325 / репутация: 211
Чашка Kbyte.Ru>>
Url: aleksey.nemiro.ru
Icq: 261779681
Skype: alekseynemiro
ответов: 5130
создал(а) тем: 534


Относительно недавно была похожая тема:
http://kbyte.ru/ru/Forums/Show.aspx?id=17037
 
Ответ # 2 # · +  +  дата добавления: 10.03.2015 / 10:59
Автор ответа:
email333333
email333333
тем: 16 / ответов: 30 / благодарностей: 0 / репутация: 2
ответов: 30
создал(а) тем: 16


Спасибо
 
Ответ # 3 # · +  +  дата добавления: 10.03.2015 / 21:20
Автор ответа:
email333333
email333333
тем: 16 / ответов: 30 / благодарностей: 0 / репутация: 2
ответов: 30
создал(а) тем: 16


А как правильно использовать метод по вышеуказанной ссылке, если мне нужно несколько значений заменить а не одно.
Т.е изменить значение %username%,%usertype% и %userid% в документе word?
 
Ответ # 4 # · +  +  дата добавления: 11.03.2015 / 12:15
Автор ответа:
Алексей Немиро
Алексей Немиро
тем: 534 / ответов: 5130 / благодарностей: 325 / репутация: 211
Чашка Kbyte.Ru>>
Url: aleksey.nemiro.ru
Icq: 261779681
Skype: alekseynemiro
ответов: 5130
создал(а) тем: 534


Просто менять параметры поиска и замены:
With FindObject
  .ClearFormatting()
  .Text = "{Datе}" 'найти в документе строку {Date}
  .Replacement.ClearFormatting()
  .Replacement.Text = Now.ToShortDateString() 'заменить на текущую дату
  .Execute(Replace:=Word.WdReplace.wdReplaceAll)

  .Text = "{Marker}" 'найти в документе строку {Marker}
  .Replacement.Text = "123" 'заменить на 123
  .Execute(Replace:=Word.WdReplace.wdReplaceAll)
  'и т.д.
End With
Лучше сделать для этого отдельный метод, чтобы не писать одинаковый код.
 
Страница: 1 + Создать новую тему