Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Программирование [игнор отключен] [закрыт для гостей] / VBA в Word / 8 сообщений из 8, страница 1 из 1
24.04.2018, 09:03
    #39635130
SAS2014
SAS2014
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA в Word
Что надо написать в макросе чтобы данный код это запрет изменений определенного раздела в документе, по условию, например когда пользователь нажал на любое место в документе word

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

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


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