Thema Datum  Von Nutzer Rating
Antwort
27.06.2018 12:26:27 Phil
NotSolved
Blau Laufzeitfehler 5174
 27.06.2018 15:30:42 Gast46768
*****
Solved

Ansicht des Beitrags:
Von:
Gast46768		 Datum:
27.06.2018 15:30:42		 Views:
509		 Rating:
     
Antwort:
 Nein
Thema:
Laufzeitfehler 5174

Hallo,

versuchs mal so:

Option Explicit

Private Sub Logo_einfuegen(Verz As String, aDok As String)
Dim objDocument As Word.Document

Set objDocument = Documents.Open(FileName:=aDok)
LogoBO = ThisDocument.Path & "\Logo_BochumMVZ_18.jpg"
   
'MVZ Labor Bochum MLB GmbH löschen'
    With Selection.Find
        .ClearFormatting
        .Text = "MVZ Labor Bochum MLB GmbH"
        .Replacement.ClearFormatting
        .Replacement.Text = ""
        .Execute Replace:=wdReplaceAll, Forward:=True, _
        Wrap:=wdFindContinue
    End With
 
 
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "MVZ Labor Bochum MLB GmbH"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
     
     
    Call objDocument.InlineShapes.AddPicture(FileName:=LogoBO, LinkToFile:=False, SaveWithDocument:=True)
     
    With objDocument.InlineShapes(1)
        .ScaleHeight = 50
        .ScaleWidth = 50
    End With
     
   Call objDocument.Close(SaveChanges:=True)

   Set objDocument = Nothing
   
End Sub

Gruß,

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.06.2018 12:26:27 Phil
NotSolved
Blau Laufzeitfehler 5174
 27.06.2018 15:30:42 Gast46768
*****
Solved