Word ContentControl InkPicture Control

Hello MicrosoftBart,

Thanks for your question.

The link below contains series of posts on alternative solutions on how to execute InkPicture via Macros, etc

https://www.whiteoaksecurity.com/blog/alternative-execution-macro-saga-inkpicture-part-1/

Note: This is a non-Microsoft website. The page appears to be providing accurate, safe information. Watch out for ads on the site that may advertise products frequently classified as a PUP (Potentially Unwanted Products). Thoroughly research any product advertised on the site before you decide to download and install it.'

I hope it helps.

Regards,
Yusuf

<br />

Hallo zusammen,

ich habe Mareike ein Beispiel über verknüpfte ContentControls geschickt (mit dem Word Content Control Toolkit), die das gewünschte wohl gut realisieren.

Hallo Daniel,

ich hab mir das mal angeschaut und ich denke ich hab des Rätsels Lösung.

Also ich sehe 3 ContentControl-Objekte auf dem Schirm mit einem Lorem-Ipsum Text, die ersten beiden (test1, test2) beinhalten am Ende einen Seitenumbruch, der letzte (test3) nicht. Nach diesem kommen noch Zeilenumbrüche. UNd das Document ist 3 Seiten lang.



Schaue ich mal mit einem Makro, dann sieht das anders aus:

Sub Show()

Dim CC As ContentControl

For Each CC In ActiveDocument.ContentControls

With CC

Debug.Print .Title, .Range.Start, .Range.End

.Range.Font.Hidden = False

End With

Next

End Sub

Ausgabe:

test1 1 638

Name 599 636

test2 641 1278

Name 1239 1276

test3 1281 1919

plz 1879 1916

Also es sind nicht 3 ContentControl sondern 6, wobei Name,Name,plz in dem Bereich von test1,test2,test3 liegen. Und dazwischen sind noch Steuerzeichen.

Lösche ich nun alle Texte wirklich aus dem Document:

Sub Del()

Dim CC As ContentControl

For Each CC In ActiveDocument.ContentControls

With CC

ActiveDocument.Range(.Range.Start, .Range.End).Delete

CC.Delete

End With

Next

End Sub

Dann sieht es am Ende so aus:



Und ist nur noch 1 Seite lang. Das sind dann die "Reste" die zwischen den Controls sind.

Wenn Du die Datei sauber aufbaust, dann bekommst Du die auch noch weg:

Sub Neu()

Dim Wd As Document

Dim CC As ContentControl

Dim i As Integer

Set Wd = Documents.Add

For i = 1 To 3

Set CC = Wd.ContentControls.Add(wdContentControlRichText)

With CC

.Title = "Control " & i

.Range.Text = .Title & vbCr

End With

Next

End Sub

Schauen wir uns die Positionen mal an:

Control 3 1 11

Control 2 14 24

Control 1 27 37

So wie es aussieht liegt das vbCr nicht als 1 Zeichen im ContentControl, sondern als 3 Zeichen im Document... warum auch immer Word das so macht. Wenn Du Sub Del oben ausführst, dann bleiben 3 Zeilenumbrüche über.

Also lösche ich einfach noch 3 Zeichen mehr, wenn verfügbar:

Sub Del_Neu()

Dim CC As ContentControl

Dim Last As Long

For Each CC In ActiveDocument.ContentControls

With CC

Debug.Print .Title, .Range.Start, .Range.End

Last = .Range.End + 3

If Last > ActiveDocument.Range.End Then Last = ActiveDocument.Range.End

ActiveDocument.Range(.Range.Start, Last).Delete

CC.Delete

End With

Next

End Sub

Alles klar?

Andreas.

Hi

(Anrede und Gruß sind ein probates Mittel um Antworten zu erhalten...)

Das geht mittels des ContentControl-Ereignisses "ContentControlOnExit" beim Verlassen des besagten ContentControls.

Klassen-Modul "Klasse1":

Public WithEvents oDoc As Document

Private Sub oDoc_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)

Dim cc As ContentControls, oCC As ContentControl

Dim bHidden As Boolean

Set cc = ActiveDocument.SelectContentControlsByTag(Tag:="tagV")

On Error GoTo CC_Err

If cc(1).Range.Text = "anonym" Then

  Debug.Print "gefunden"

  bHidden = True

Else

  bHidden = False

End If

For Each oCC In ActiveDocument.ContentControls

  If oCC.Tag = "tagRich" Then

    oCC.Range.FormattedText.Font.Hidden = bHidden

  End If

Next oCC

  ActiveWindow.View.ShowHiddenText = False

Exit Sub

CC_Err:

MsgBox "Kein ContentControl mit dem angegeben Tag gefunden!", vbCritical, "Fehler!"

End Sub

in einem normalen Modul wird das initialisiert:

Dim cc As New Klasse1

Sub AutoOpen()

Set cc.oDoc = ActiveDocument

End Sub

"tagRich" muss dann bei allen ContentControls verwendet werden, die ein/ausgeblendet werden sollen.

HTH

Wenn Du dieses Ereignis via WITHEVENTS ableiten kannst... ja. Allerdings sehe ich dieses Ereignis nicht im Objektmodell.

https://msdn.microsoft.com/de-de/vba/word-vba/articles/contentcontrol-object-word

Von daher: Woher weißt Du das es dieses gibt?

Andreas.