update 20241225

Plugin_Printersettings/clsAllgFnkt.vb

@@ -0,0 +1,82 @@
+Imports Microsoft.Office.Interop.Word
+Public Class clsAllgFnkt
+
+    Dim p_WDapp As Microsoft.Office.Interop.Word.Application
+    Dim p_Passwort As String = "Australia"
+
+    Public Function FormularAktualisieren(app As Object)
+        p_WDapp = app
+        On Error GoTo ErrHandler
+
+        ' Variablen deklarieren
+        ' *********************
+        Dim m_book1 As Bookmark
+        Dim m_bookE As Bookmark
+        Dim m_bookP As Bookmark
+        Dim m_strName As String
+        Dim m_range As Range
+        Dim m_boolGeschuetzt As Boolean
+        Dim m_FormField As FormField
+
+        p_WDapp.Application.ScreenUpdating = False
+
+        ' Dokumentschutz aufheben
+        ' ***********************
+        If p_WDapp.ActiveDocument.ProtectionType <> WdProtectionType.wdNoProtection Then
+            p_WDapp.ActiveDocument.Unprotect(p_Passwort)
+            m_boolGeschuetzt = True
+        End If
+
+        ' Textmarken suchen und Texte kopieren
+        ' ************************************
+        For Each m_book1 In p_WDapp.ActiveDocument.Bookmarks
+            If Mid(m_book1, 1, 10) = "BkmFormPos" Then
+                p_WDapp.Selection.GoTo(Microsoft.Office.Interop.Word.WdGoToItem.wdGoToBookmark, , , m_book1)
+                p_WDapp.Selection.Copy()
+                For Each m_bookE In p_WDapp.ActiveDocument.Bookmarks
+                    If m_bookE.ToString <> m_strName Then
+                        If Mid(m_bookE, 1, 10) = "BkmFormEin" Then
+                            If Mid(m_bookE, 11, 2) = Mid(m_book1, 11, 2) Then
+                                m_strName = m_bookE.Name
+                                p_WDapp.Selection.GoTo(Microsoft.Office.Interop.Word.WdGoToItem.wdGoToBookmark, , , m_bookE)
+                                p_WDapp.Selection.MoveLeft(Microsoft.Office.Interop.Word.WdUnits.wdCharacter, 1, False)
+                                p_WDapp.Selection.Bookmarks.Add("BkmBeginn")
+                                p_WDapp.Selection.GoTo(Microsoft.Office.Interop.Word.WdGoToItem.wdGoToBookmark, , , m_bookE)
+                                p_WDapp.Selection.Paste()
+                                p_WDapp.Selection.Bookmarks.Add("BkmEnde")
+                                m_range = p_WDapp.ActiveDocument.Range(p_WDapp.ActiveDocument.Bookmarks("BkmBeginn").Start, p_WDapp.ActiveDocument.Bookmarks("BkmEnde").End)
+                                p_WDapp.Selection.GoTo(Microsoft.Office.Interop.Word.WdGoToItem.wdGoToBookmark, , , "BkmBeginn")
+                                m_range.Bookmarks.Add(m_strName)
+                                p_WDapp.Selection.GoTo(Microsoft.Office.Interop.Word.WdGoToItem.wdGoToBookmark, , , m_strName)
+                                p_WDapp.Selection.Fields.Unlink()
+                                For Each m_FormField In p_WDapp.Selection.FormFields
+                                    m_FormField.Enabled = False
+                                Next
+                            End If
+                        End If
+                    End If
+                Next m_bookE
+            End If
+        Next m_book1
+
+        ' Textmarke setzen bereits erstellt
+        ' *********************************
+        p_WDapp.Selection.HomeKey(Microsoft.Office.Interop.Word.WdUnits.wdStory)
+        p_WDapp.Selection.NextField()
+
+        ' Dokumentschutz einschalten
+        ' **************************
+        If m_boolGeschuetzt = True Then
+            p_WDapp.ActiveDocument.Protect(Microsoft.Office.Interop.Word.WdProtectionType.wdAllowOnlyFormFields, True, p_Passwort)
+        End If
+
+        p_WDapp.ActiveDocument.Fields.Update()
+
+        p_WDapp.Application.ScreenUpdating = True
+
+        Exit Function
+
+ErrHandler:
+        MsgBox(Err.Description, vbCritical + vbOKOnly, "IDV-Portefeuille Makros")
+    End Function
+End Class