Collapse column

Beiträge anzeigen

Diese Sektion erlaubt es dir alle Beiträge dieses Mitglieds zu sehen. Beachte, dass du nur solche Beiträge sehen kannst, zu denen du auch Zugriffsrechte hast.


Nachrichten - Oelle74

Seiten: [1]
1
Word / Antw:Office 365: Eigenes Add-In deaktiviert sich bei Start
« am: Juli 30, 2019, 07:37:48 Vormittag »
Hallo,
super danke, jetzt hat es geklappt!
lG
Oelle

2
Word / Office 365: Eigenes Add-In deaktiviert sich bei Start
« am: Juli 29, 2019, 07:28:04 Vormittag »
Hallo,
ich habe mir einen eigenen Menü-Eintrag in einer .dotm-Datei erstellt und diese als Add-In geladen. Bei Word 365 (Version 18xx) funktionierte dies problemlos.
Bei Word 365 (Version 1902) wird das Add-In geladen und meine Menüeinträge angezeigt. Sobald ich Word aber beende und neu starte ist es deaktiviert (der Haken ist beim Add-In ist entfernt).
Was kann ich machen?

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
  <ribbon startFromScratch="false">
    <tabs>
      <tab id="customTab" label="Check-Boxen">
        <group id="customGroup" label="Check-Boxen erstellen">
<box id="customGroupSub"  boxStyle="horizontal">
<button id="NR" label="No remarks" image="done64" size="large" onAction="No_Remarks"/>
<button id="DS" label="Solved during the audit" image="solved64" size="large" onAction="Deviation_Solved"/>
<button id="DD" label="See Axx" image="close64" size="large" onAction="Deficiencies_Detected"/>                                
      </box> 
</group>

  <group id="customGroup2" label="Check-Boxen ändern">
      <box id="customGroup2Sub"  boxStyle="horizontal">
<button id="CR" label="ChangeTo No remarks" image= "smiley64" size="large" onAction="ChangeTo_No_Remarks" />
<button id="CS" label="ChangeTo Solved during the audit" image= "change_solved" size="large" onAction="ChangeTo_Solved" />
<button id="CD" label="ChangeTo See Axx" image= "mad64" size="large" onAction="ChangeTo_Deficiencies" />
</box>  
</group>

    <group id="customGroup3" label="Nummerierung">
<box id="customGroup3Sub"  boxStyle="horizontal">
<button id="TN" label="Check-Boxen nummerieren" image= "calc64" size="large" onAction="TablesNummerieren" />
</box>
  </group>

          <group id="customGroup4" label="Check-Boxen exportieren">
<box id="customGroup4Sub"  boxStyle="horizontal">
<button id="TENM" label="Nicht markierte Check-Boxen exportieren" image= "copy_nm" size="large" onAction="TablesExportieren" />
            <button id="TEM" label="Markierte Check-Boxen exportieren" image= "copy_m" size="large" onAction="TablesExportierenMarked" />
            <button id="TEA" label="Alle Check-Boxen exportieren" image= "copy_all" size="large" onAction="TablesExportierenAll" />
</box>
    </group>

           <group id="customGroup5" label="Bericht exportieren">
<box id="customGroup5Sub"  boxStyle="horizontal">
<button id="BGE" label="Nicht markierte Berichts-Teile exportieren" image= "contract" size="large" onAction="AllesRausAusserHighlightedText" />
             <button id="BGM" label="Markierte Berichts-Teile exportieren" image= "icons8-copy-64" size="large" onAction="HighlightedTextCopy" />
             <button id="MWY" label="Markierungen löschen (außer gelb)" image= "marker-yell" size="large" onAction="MarkierungenLöschenNotYellow" />
             <button id="MWE" label="Markierungen löschen" image= "highlighter" size="large" onAction="MarkierungenLöschen" />
    </box>
    </group>
    </tab>
   </tabs>
  </ribbon>
</customUI>

Danke!

(siehe auch https://www.ms-office-forum.net/forum/showthread.php?t=361397)

3
Word / Antw: VBA: Markierten Text kopieren
« am: Juni 12, 2019, 11:29:23 Vormittag »
Ich habe folgenden Code, doch leider wird weder die Formatierung noch Tabellen mitkopiert:

Sub CopyHighlightedTextColor()

    Dim rng As Range
    Dim AText
    Dim NameA
    Dim NameB

    NameA = ActiveDocument.Name
    Documents.Add
    NameB = ActiveDocument.Name
    Documents(NameA).Activate
   
    ActiveDocument.Range(0, 0).Select

    Set rng = Selection.Range

    With rng.Find

        .ClearFormatting
        .Highlight = True

        While .Execute(Forward:=True, Format:=True)
            'Note: 'rng' is now the range containing the matched content
            AText = rng.Text '= "" 'rng.FormattedText.HighlightColorIndex
            Documents(NameB).Activate
            Selection.TypeText Text:=AText
            Documents(NameA).Activate
        Wend

    End With

End Sub

4
Word / VBA: Markierten Text kopieren
« am: Juni 12, 2019, 08:50:12 Vormittag »
Hallo,
ich würde gerne mit einem VBA Makro den gesamtem markierten Text in einem Word-Dokument kopieren und in ein anderes Word-Dokument schreiben.
Dabei sollen sämtliche Formatierungen (fett, kursiv, Überschriften, Aufzählungen, etc.) erhalten bleiben. Auch sollen Tabellen, deren Text markiert ist, als Tabelle kopiert werden.
Hat jemand eine Idee?
Danke!

siehe auch: http://www.vba-forum.de/Forum/View.aspx?ziel=51653-Word_VBA:_Markierten_Text_kopieren

Seiten: [1]