Focus beim Aufzeichnen eines Makros setzen - Word Office 365

  • Word

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Uchi-Komi.

    Focus beim Aufzeichnen eines Makros setzen - Word Office 365

    Hallo, schönen Tag mit viel Auslauf ins Grüne Euch allen!

    Ich habe wieder mal eine Frage.

    Die Aufgabe besteht darin, ein Bild, das sich in der Zwischenablage befindet in den Word-Text einzufügen und dann einen Rahmen herum zu malen.Das sind meine Vorstellungen:
    1. Graphik in die Zwischenablage kopieren
    2. Entwicklertools/Makro aufzeichnen starten
    3. Textstelle wählen und Graphik einfügen
    4. Eingefügte Graphik mit Fokus markieren (geht nicht mehr im Modus „Makro aufzeichnen“ ☹. Das genau ist meine erste Hürde. Die Kontext-Taste führt auch nicht weiter. Mit Word 2010 funktionierte das alles noch problemlos.
    5. Rahmen definieren
    6. Weitere Befehle – Beschriftung drunter setzen
    7. Entwicklertools/Makro aufzeichnen beenden.
    Hat jemand eine Lösung oder eine Idee?

    Beste Grüße

    Guten Abend René,

    vielen Dank zu nächst.

    1. Ist das seit Word Office 365 der Fall?
    2. Wie macht man es dann unter Word Office 365 richtig?

    Oder anders: Wie "sage" ich dem Macro-Rekorder, dass er um das später fokussierte Bild einen Rahmen zeichnen soll?

    Bin morgen Vormittag wieder da.

    Mit besten Grüßen

    Uwe

    Ok, ich nutze »nur« Word 2019, aber da geht es z.B. so:

    Visual Basic-Quellcode

    1. Selection.PasteAndFormat (wdPasteDefault)
    3. Dim i As Long, j As Long
    4. With ActiveDocument.Range
    5. For i = 1 To .InlineShapes.Count
    6. With .InlineShapes(i)
    7. For j = 1 To .Borders.Count
    8. .Borders(j).LineStyle = wdLineStyleSingle
    9. .Borders(j).Color = wdColorAutomatic
    10. Next j
    11. End With
    12. Next i
    13. End With

    shamelessly stolen from this superuser-thread
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Euch vielen Dank!
    Der Code sieht professionell aus!
    Mals sehen, ob ich ihn verstehen muss wenn ich ihn benutze ;-).
    Aber es gibt ja viele Dinge die man nicht versteht und sie trotzdem nutzt.
    Ich probiere ihn aus und melde mich wieder!

    Es funktioniert und vielen Dank!

    Das ist nun der gemeinsamer arbeitete Code (VB.NET ?):

    VB.NET-Quellcode

    1. ​
    3. Sub Einfügen_Abbildung()
    5. 'Bild einfügen und Rahmen zeichnen, Urheber: VaporiZed - https://www.vb-paradise.de/
    7. Selection.PasteAndFormat (wdPasteDefault)
    9. Dim i As Long, j As Long
    10. With ActiveDocument.Range
    11. For i = 1 To .InlineShapes.Count
    12. With .InlineShapes(i)
    13. For j = 1 To .Borders.Count
    14. .Borders(j).LineStyle = wdLineStyleSingle
    15. .Borders(j).Color = wdColorAutomatic
    16. Next j
    17. End With
    18. Next i
    19. End With
    21. 'Absatz unter dem Bild einstellen
    23. Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    24. With Selection.ParagraphFormat
    25. .LeftIndent = CentimetersToPoints(0)
    26. .RightIndent = CentimetersToPoints(0)
    27. .SpaceBefore = 12
    28. .SpaceBeforeAuto = False
    29. .SpaceAfter = 6
    30. .SpaceAfterAuto = False
    31. .LineSpacingRule = wdLineSpaceSingle
    32. .Alignment = wdAlignParagraphLeft
    33. .WidowControl = True
    34. .KeepWithNext = False
    35. .KeepTogether = False
    36. .PageBreakBefore = False
    37. .NoLineNumber = False
    38. .Hyphenation = True
    39. .FirstLineIndent = CentimetersToPoints(0)
    40. .OutlineLevel = wdOutlineLevelBodyText
    41. .CharacterUnitLeftIndent = 0
    42. .CharacterUnitRightIndent = 0
    43. .CharacterUnitFirstLineIndent = 0
    44. .LineUnitBefore = 0
    45. .LineUnitAfter = 0
    46. .MirrorIndents = False
    47. .TextboxTightWrap = wdTightNone
    48. .CollapsedByDefault = False
    49. End With
    50. Selection.EndKey Unit:=wdLine
    51. Selection.TypeParagraph
    53. 'Einfügen Beschriftung
    55. Selection.InsertCaption Label:="Abbildung", TitleAutoText:= _
    56. "EinfügenBeschriftung2", Title:="", Position:=wdCaptionPositionAbove, _
    57. ExcludeLabel:=0
    58. Selection.TypeText Text:=": "
    60. End Sub

Facebook
Telefonspende