Office: AutoText bereitstellen - wie?

Helfe beim Thema AutoText bereitstellen - wie? in Microsoft Word Hilfe um das Problem gemeinsam zu lösen; Hallo alle miteinander! Kann mir jemand sagen wie ich bei Aufruf eines Dokumentes AutoTexteinträge nutzen kann, die anderswo als in meiner eigenen... Dieses Thema im Forum "Microsoft Word Hilfe" wurde erstellt von normotoniker, 8. Juli 2010.

  1. AutoText bereitstellen - wie?


    Hallo alle miteinander!
    Kann mir jemand sagen wie ich bei Aufruf eines Dokumentes AutoTexteinträge nutzen kann, die anderswo als in meiner eigenen Normal.dot abgelegt sind?

    Es sollen im Netzwerk auch Andere das Dokument mit AutoText bearbeiten können, die nicht an meinem Arbeitsplatz sitzen und eben eine andere Normal.dot haben als ich.

    Übrigens:
    Gibts eigentlich eine Möglichkeit ca. 300 AutoTexte :-| en bloc anzulegen statt alle einzeln mit Alt-F3?

    Wäre schön wenn mir da jemand helfen könnte... :-?
    Markus
     
    normotoniker, 8. Juli 2010
    #1
  2. Hajo_Zi
    Hajo_Zi Erfahrener User
    Hallo Markus,

    lege Deine Dokumentenvorlage im Netz ab. Und mache Datei Neu Deine Dokumentenvorlage.

    Gruß Hajo
     
    Hajo_Zi, 8. Juli 2010
    #2
  3. Hajo_Zi
    Hajo_Zi Erfahrener User
    Hallo Markus,

    mal als Ansatz für Teil2
    Code:
    Option Explicit
    'Option Private Module
    
    Sub Bausteine_einlesen()
    '   Es darf muß Leerzeile zu Beginn sein
    '   Baustein darf kein verdeckten Text enthalten
    '   in der ersten Zeile muß der Textbaustein stehen
    '   als verdeckter Text
    '   MRR Matthias MS Office Forum
    '   abspeicherung der Textbausteine in der Dokumentenvorlage
    '   mit der Sie erstellt wurde. Der Textbaustein beginnt immer mit roten versteckten Text
    '   und endet am Ende der Tabelle
    '   angepaßt von Christian MS Office Forum
        Dim strBausteinName As String
        Dim rngTB As Range
        Dim iPos As Integer
        Dim tbl As Table
        If Environ("username") = "Klockmann" Or Environ("username") = "Ziplies" Then
            Selection.HomeKey unit:=wdStory
            Application.Options.ShowControlCharacters = True
            Selection.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdExtend
            Selection.MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend
            strBausteinName = Selection.Range.Text
            Selection.MoveDown unit:=wdParagraph
            With Selection.Find
              .ClearFormatting
              .Font.Hidden = True
              .Font.Color = wdColorRed
              .Execute
              Do While .Found = True
                Set rngTB = Selection.Range
                strBausteinName = Selection.Range.Text
                If InStr(1, Selection.Range.Text, Chr(13)) > 0 Then
                  strBausteinName = Left(strBausteinName, InStr(1, strBausteinName, Chr(13)) - 1)
                End If
                iPos = Selection.Information(wdFirstCharacterLineNumber)
                Selection.Collapse wdCollapseEnd
                If Selection.Information(wdFirstCharacterLineNumber) = iPos Then
                  Selection.MoveDown unit:=wdLine, Count:=1, Extend:=wdMove
                End If
                If Selection.Information(wdWithInTable) = True Then
                  Set tbl = Selection.Tables(1)
                  tbl.Select
                  rngTB.End = tbl.Range.End
                  ActiveDocument.AttachedTemplate.AutoTextEntries.Add _
                  Name:=strBausteinName, Range:=rngTB
                  Set tbl = Nothing
                End If
                Selection.Collapse wdCollapseEnd
                .Execute
              Loop
            End With
            Set rngTB = Nothing
            Application.Options.ShowControlCharacters = False
        Else
            MsgBox " Sie dürfen dieses Makro nicht ausführen"
        End If
    End Sub
    
    'Sub Bausteine_einlesen()
    '    Dim rngBausteinname As Range
    '    Dim blnEnd As Boolean
    ''   Veränderung Christian MS Office Forum
    ''   Anpassung an Windows 2000, Word 2000
    '    Application.Options.ShowControlCharacters = True
    ''   *****
    '    Selection.HomeKey Unit:=wdStory
    '    blnEnd = False
    '    Do
    '        Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
    '        Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    '        Set rngBausteinname = Selection.Range
    '        Selection.MoveDown Unit:=wdParagraph
    '        With Selection.Find
    '            .ClearFormatting
    '            .Font.Hidden = True
    '            If .Execute Then
    '                Selection.MoveUp Unit:=wdParagraph, Count:=2
    '                Do
    '                    Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend
    '                Loop Until Left(Selection.Range, Len(rngBausteinname.Text)) = _
    '                              rngBausteinname.Text
    '                Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
    '            Else
    '                Selection.EndKey Unit:=wdStory, Extend:=wdExtend
    '                Do
    '                    Selection.MoveLeft Unit:=wdCharacter, Extend:=wdExtend
    '                Loop Until Selection.Range.Information(wdWithInTable)
    '                blnEnd = True
    '            End If
    '        End With
    '        ActiveDocument.AttachedTemplate.AutoTextEntries.Add _
    '        Name:=rngBausteinname, Range:=Selection.Range
    '        Selection.Collapse wdCollapseEnd
    '        Selection.MoveDown wdParagraph
    '    Loop Until blnEnd
    '    Set rngBausteinname = Nothing
    ''   Veränderung Christian MS Office Forum
    ''   Anpassung an Windows 2000, Word 2000
    '    Application.Options.ShowControlCharacters = False
    '    End If
    'End Sub
    
    Der Code wurde mir auch nur erstellt.

    Gruß Hajo
     
    Hajo_Zi, 8. Juli 2010
    #3
  4. AutoText bereitstellen - wie?

    Das Problem ist (ist es eins?) daß ich die Datei als rtf-Format bereitstellen muß, und daß eine andere Software sie quasi zur Bearbeitung importiert.
    Ich dachte ich müßte per Verweis über Extras-Vorlagen/AddIns eine separate Dokumentvorlage bereitstellen, in der ich dann die AutoText Einträge definiere.
    Oder kann ich AutoText auch irgendwie direkt in meiner rtf-Datei verankern, damit ich die Einträge direkt dabei habe wo ich sie brauche?
     
    normotoniker, 9. Juli 2010
    #4
Thema:

AutoText bereitstellen - wie?

Die Seite wird geladen...
  1. AutoText bereitstellen - wie? - Similar Threads - AutoText bereitstellen

  2. Verwenden von Schnellbausteinen und AutoText in Word

    in Microsoft Word Tutorials
    Verwenden von Schnellbausteinen und AutoText in Word: Verwenden von Schnellbausteinen und AutoText in Word Word für Microsoft 365 Word 2019 Word 2016 Word 2013 Word 2010 Word 2007 Mehr......
  3. AutoText immer am Ende des Dokuments einfügen - ohne Makro - Word 2010

    in Microsoft Word Hilfe
    AutoText immer am Ende des Dokuments einfügen - ohne Makro - Word 2010: Hallo :) gibt es eine Möglichkeit, einen AutoText bzw. alle AutoTexte immer am ende des Dokuments einzufügen? Momentan gehe ich für jede einzelne Seite (AutoText023 ist eine ganze Seite) wie...
  4. Autotext - gedruckt von - und - Seriendrucksteuertabelle -

    in Microsoft Word Hilfe
    Autotext - gedruckt von - und - Seriendrucksteuertabelle -: Hallo Leute, ich habe ein Wordformular erstellt, mit dem ich regelmäßig einen Serienbrief drucke und für den die Daten in einer Excel Tabelle stehen. Nun hätte ich gern zwei Sachen: 1. Ich...
  5. AutoTexte abspeichern

    in Microsoft Word Hilfe
    AutoTexte abspeichern: Wenn ich in Word 2003 AutoTexte anlege, möchte ich diese auch für die Kollegen "verfügbar" machen - wie geht das?
  6. AutoText Einträge von meinem Arbeitsplatz nicht nutzbar

    in Microsoft Word Hilfe
    AutoText Einträge von meinem Arbeitsplatz nicht nutzbar: Hallo liebe potentielle Helfer, ich habe folgendes Problem: Ich möchte von meinem Arbeitsplatz aus eine Word-Datei bearbeiten, die auf einem Server liegt, und die mit einer ebenfalls zentral...
  7. Auswahlliste oder AutoText für alle nutzbar

    in Microsoft Word Hilfe
    Auswahlliste oder AutoText für alle nutzbar: Hallo miteinander, ich habe folgendes Problem: Eine Patientenverwaltungssoftware öffnet und bedient Word mit Patientendaten in einem Entlassungsbrief. Solche Briefe sollen von mehreren...
  8. Formatvorlage mit AutoText: funktioniert nur beim Ersteller

    in Microsoft Word Hilfe
    Formatvorlage mit AutoText: funktioniert nur beim Ersteller: Hallo zusammen, ich verwende Word 2002. Ich habe für meinen Arbeitgeber eine Formatvorlage für ein Standardarbeitszeugnis erstellt, in dem die Bewertungsfloskeln ("zu unserer vollsten...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden