ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Программирование [игнор отключен] [закрыт для гостей] / VBA в Word
8 сообщений из 8, страница 1 из 1
VBA в Word
    #39635130
SAS2014
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SAS2014
Участник
Что надо написать в макросе чтобы данный код это запрет изменений определенного раздела в документе, по условию, например когда пользователь нажал на любое место в документе word

Код: vbnet
1.
ActiveDocument.Sections(2).ProtectedForForms = True
...
Рейтинг: 0 / 0
24.04.2018, 09:03
| Ответить | Цитировать | Написать  
VBA в Word
    #39635131
SAS2014
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SAS2014
Участник
в документ вставляется таблица, ее надо сразу защитить от изменений
сразу скажу, что шаблон "головной" хранится на сетевом ресурсе, а пользователь будет работать с копией
...
Рейтинг: 0 / 0
24.04.2018, 09:05
| Ответить | Цитировать | Написать  
VBA в Word
    #39635138
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
SAS2014в документ вставляется таблица, ее надо сразу защитить от измененийВставь картинкой...
...
Рейтинг: 0 / 0
24.04.2018, 09:30
| Ответить | Цитировать | Написать  
VBA в Word
    #39636554
SAS2014
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SAS2014
Участник
может кто поможет, с проблемой вообщем есть таблица в нее поступают данные и причем гарантировано в одну ячейку точно
вот как написать условия если в этой ячейки есть данные, (а там есть формула расчетов) то выполнить дальнейшее действия

код условия которое работает не верно
Код: vbnet
1.
2.
If Trim(Eeno3!A2.Value2) = "" Then
ActiveWindow.SelectedSheets.Visible = False




действия которое надо выполнить
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
Sheets("Eeno3").Select
Sheets("Eeno3").Visible = True
Set InputRng2 = Range("Eeno3!A1:Eeno3!B50")
For Each Rng2 In InputRng2
    '----------
    If Trim(Rng2.Value2) <> "" Then
    '----------
    If OutRng2 Is Nothing Then
    Set OutRng2 = Rng2
    Else
    Set OutRng2 = Application.Union(OutRng2, Rng2)
    End If
    End If
    
Next
If Not (OutRng2 Is Nothing) Then
Worksheets("Eeno3").Activate
OutRng2.Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
ActiveWindow.SelectedSheets.Visible = False
Set objWrdApp2 = CreateObject("Word.Application")
objWrdApp2.Visible = False
Set objWrdDoc2 = objWrdApp2.documents.Open("C:\TEMP\CREATE_USERS_K1.dotm")
objWrdDoc2.Bookmarks("k1").Range.Paste
Set islp_k1 = Range("Eeno1!B6")
objWrdDoc2.Bookmarks("islp_k1").Range.Text = ispl
objWrdApp2.Visible = True
    Sheets("Eeno3").Select
    ActiveWindow.SelectedSheets.Visible = False
End If


End If
...
Рейтинг: 0 / 0
26.04.2018, 09:00
| Ответить | Цитировать | Написать  
VBA в Word
    #39636555
SAS2014
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SAS2014
Участник
Eeno -- это Лист просто при копирование кодировка слетела
...
Рейтинг: 0 / 0
26.04.2018, 09:01
| Ответить | Цитировать | Написать  
VBA в Word
    #39636558
SAS2014
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SAS2014
Участник
пояснения кода выделяет все заполненные ячейки .... в диапазоне, далее выделяет и выполняет копирование как рисунок, потом этот рисунок вставляет в нужный фрагмент текста в word файле
...
Рейтинг: 0 / 0
26.04.2018, 09:03
| Ответить | Цитировать | Написать  
VBA в Word
    #39636561
SAS2014
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SAS2014
Участник
просто я только только начал изучать VBA
...
Рейтинг: 0 / 0
26.04.2018, 09:04
| Ответить | Цитировать | Написать  
VBA в Word
    #39636579
Leonid Kudryavtsev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Leonid Kudryavtsev
Участник
От меня ускользает, откуда в Word взялись Sheet'ы
...
Рейтинг: 0 / 0
26.04.2018, 09:38
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / VBA в Word
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]