Изменение классификации документа

@Rushanchik10 · Регистрация: 24.05.2020

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

Visual Studio
VB.net

Добрый день.

Не могу найти код и разобраться как изменить классификацию документа Word с Private на Public
Ниже код - создаю страницу Word.
а какую строку вставить чтоб поменять классификацю документа? во вложении скриншот чтоб понять о чем я говорю

Спасибо!

VB.NET

Imports Word = Microsoft.Office.Interop.Word
Public Class Form1
    Dim oWord As Word.Application
    Dim oDoc As Word.Document
    Dim oPara1 As Word.Paragraph
 
 oWord = CreateObject("Word.Application")
        oWord.Visible = True
        oDoc = oWord.Documents.Add
        With oDoc
            .Range.Font.Size = 12
            .Range.Font.Name = "Times New Roman"
            .Range.Font.Bold = True
            .Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
        End With
 
End Class

@ovva · 05.06.2020, 20:02

Честно говоря, не понял, о какой квалификации идет речь, но предложенный код несколько странен. Попробуем привести его в рабочее состояние.

VB.NET

Imports WRD = Microsoft.Office.Interop.Word
Public Class Form2
    Private oWord As WRD.Application
    Private oDoc As WRD.Document
    'Private oPara1 As WRD.Paragraph
    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        oWord = New WRD.Application
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        oWord.Visible = True
        oDoc = oWord.Documents.Add
        With oDoc.Range
            .Font.Size = 12
            .Font.Name = "Times New Roman"
            .Font.Bold = True
            .ParagraphFormat.Alignment = WRD.WdParagraphAlignment.wdAlignParagraphCenter
            .Text = "Test Word"
        End With
        oDoc.SaveAs(IO.Path.Combine(Application.StartupPath, "tst.doc"))
    End Sub
End Class

@Rushanchik10 · 05.06.2020, 21:30 **[ТС]**

Да, все верно , код тут не полностью. я его вырезал из проги своей. Код твой работает , но так же не меняет вот эту чертову приватность.. Это офис 365 - корпаративный. может только там есть такие приватности. я гуглил ничего не нашел. Предложенной тобой код так же не меняет этот класс приватности...

Uswer · 05.06.2020, 21:58

Один из способов понять, что это за зверь такой "Protect", это реинженеринг. То есть включаешь запись макроса, меняешь эту самую приватность, останавливаешь запись макроса и смотришь, что там в макросе происходит. Затем делаешь по аналогии в своей проге. MS Office в этом плане просто подарок, а вот офис 365 неизвестность. Подразумеваю, что данный параметр устанавливает ту или иную степень шифрования содержимого документа, чем выше степень защиты, тем большее кол-во внутренних объектов будут зашифрованы.

@Rushanchik10 · 05.06.2020, 22:23 **[ТС]**

Uswer, спасибо . Но это первое, что я сделал. И там как ты думаешь ? ))) пустота ))) от слова совсем - саб и энд саб ) и сё ) мистика.

Добавлено через 9 минут
хотя вот что

Visual Basic

Sub Macro2()
'
' Macro2 Macro
'
'
    ActiveDocument.Shapes.Range(Array("MSIPCM75ff4bdc93294049f9aa5e54")). _
        Select
    ActiveDocument.Shapes.Range(Array("MSIPCM75ff4bdc93294049f9aa5e54")). _
        Select
    ActiveDocument.Shapes.Range(Array("MSIPCM75ff4bdc93294049f9aa5e54")). _
        Select
    ActiveDocument.Shapes.Range(Array("MSIPCM75ff4bdc93294049f9aa5e54")). _
        Select
    ActiveDocument.Shapes.Range(Array("MSIPCM75ff4bdc93294049f9aa5e54")). _
        Select
End Sub

@Rushanchik10 · 05.06.2020, 22:35 **[ТС]**

и вот что, когда я меняю Private->internal сначала на Public, а потом обртано на Private->internal

Visual Basic

Sub Macro4()
'
' Macro4 Macro
'
'
    ActiveDocument.Shapes.Range(Array("MSIPCMcae84648bf5e3e3097a5dbb2")). _
        Select
    ActiveDocument.Shapes.Range(Array("MSIPCMcae84648bf5e3e3097a5dbb2")). _
        Select
    ActiveDocument.Shapes.Range(Array("MSIPCMcae84648bf5e3e3097a5dbb2")). _
        Select
    ActiveDocument.Shapes.Range(Array("MSIPCMcae84648bf5e3e3097a5dbb2")). _
        Select
    ActiveDocument.Shapes.Range(Array("MSIPCMcae84648bf5e3e3097a5dbb2")). _
        Select
    ActiveDocument.Shapes.Range(Array("MSIPCMcae84648bf5e3e3097a5dbb2")). _
        Select
    ActiveDocument.Shapes.Range(Array("MSIPCMcae84648bf5e3e3097a5dbb2")). _
        Select
    ActiveDocument.Shapes.Range(Array("MSIPCMcae84648bf5e3e3097a5dbb2")). _
        Select
    ActiveDocument.Shapes.Range(Array("MSIPCMcae84648bf5e3e3097a5dbb2")). _
        Select
    ActiveDocument.Shapes.Range(Array("MSIPCMcae84648bf5e3e3097a5dbb2")). _
        Select
    ActiveDocument.Shapes.Range(Array("MSIPCMcae84648bf5e3e3097a5dbb2")). _
        Select
    ActiveDocument.Shapes.Range(Array("MSIPCMcae84648bf5e3e3097a5dbb2")). _
        Select
    ActiveDocument.Shapes.Range(Array("MSIPCMcae84648bf5e3e3097a5dbb2")). _
        Select
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.HeaderFooter.Shapes.Range(Array( _
        "MSIPCMcae84648bf5e3e3097a5dbb2")).Select
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.HeaderFooter.Shapes.Range(Array( _
        "MSIPCMcae84648bf5e3e3097a5dbb2")).Select
End Sub

@ViterAlex · 05.06.2020, 22:59

Я тоже не понимаю, что это за кнопка. Возможно, это какое-то расширение

vova_p · 05.06.2020, 23:45

Рушан, подскажите, а офис 365 работает с документами из облака? Я никогда с этим ПО не сталкивался, но поиск в сети даёт ссылки на информацию о защите документов и ссылок в них при сетевом доступе. Может это и есть режим сетевой доступности документа?

@Rushanchik10 · 06.06.2020, 06:39 **[ТС]**

vova_p, из облака ВанДрайв? Да, работает... эта классификация у меня есть и в Эксель и даже в оутлук... и в поверпоинт. Во всем офисе.

@Rushanchik10 · 11.06.2020, 18:39 **[ТС]**

ViterAlex, Нашел я это расширение.
Назывется оно : microsoft azure information protection

Если его отключить в расширениях, то кнопочка исчезает.

Возобновляю вопрос с учетом выше сказанного:

Как я понял, библиотека находится в папке C:\Program Files (x86)\Microsoft Azure Information Protection\adxloader.MSIP.Office.WordAddin.dll (по скринтшоту)

при добавлении в Visual Studio появляется ошибка (скриншот приложил)

Как мне подружиться с ним? получится?

Dll приложил, если вдруг поможет )))

@Rushanchik10 2 / 2 / 0 Регистрация: 24.05.2020 Сообщений: 59
	05.06.2020, 21:30 [ТС]	3
	Да, все верно , код тут не полностью. я его вырезал из проги своей. Код твой работает , но так же не меняет вот эту чертову приватность.. Это офис 365 - корпаративный. может только там есть такие приватности. я гуглил ничего не нашел. Предложенной тобой код так же не меняет этот класс приватности... Миниатюры 0

Uswer 1976 / 1410 / 365 Регистрация: 26.06.2017 Сообщений: 4,009
	05.06.2020, 21:58	4
	Один из способов понять, что это за зверь такой "Protect", это реинженеринг. То есть включаешь запись макроса, меняешь эту самую приватность, останавливаешь запись макроса и смотришь, что там в макросе происходит. Затем делаешь по аналогии в своей проге. MS Office в этом плане просто подарок, а вот офис 365 неизвестность. Подразумеваю, что данный параметр устанавливает ту или иную степень шифрования содержимого документа, чем выше степень защиты, тем большее кол-во внутренних объектов будут зашифрованы. 1

@ViterAlex 8940 / 4852 / 1886 Регистрация: 11.02.2013 Сообщений: 10,246
	05.06.2020, 22:59	7
	Я тоже не понимаю, что это за кнопка. Возможно, это какое-то расширение 0

vova_p 5 / 4 / 1 Регистрация: 19.05.2019 Сообщений: 39
	05.06.2020, 23:45	8
	Рушан, подскажите, а офис 365 работает с документами из облака? Я никогда с этим ПО не сталкивался, но поиск в сети даёт ссылки на информацию о защите документов и ссылок в них при сетевом доступе. Может это и есть режим сетевой доступности документа? 0

@Rushanchik10 2 / 2 / 0 Регистрация: 24.05.2020 Сообщений: 59
	06.06.2020, 06:39 [ТС]	9
	vova_p, из облака ВанДрайв? Да, работает... эта классификация у меня есть и в Эксель и даже в оутлук... и в поверпоинт. Во всем офисе. 0

	11.06.2020, 18:39