Beiträge von a6000000

  • FOLDING in Scite mit space, yaml lexer fuer *.txt oder andere files verwenden

    um beliebige text-bloecke zu falten benutz ich den *.yaml lexer fuer *.txt , mit anderen muesste es auch gehen, die Methode ist nicht im Sinne der Erfinder aber funktioiert.

    1. yaml.properties sichern z.B. yaml_properties0000.txt

    2. yaml.properties editieren zu:
    # _filebegin Define SciTE settings for YAML files: short yaml.properties
    # saved original as yaml0000.properties.0000
    # I use *.yaml only for *.txt folding with leading spaces qq66yy

    # associate YAML file patter with the YAML lexer
    file.patterns.yaml=*.txt
    lexer.$(file.patterns.yaml)=yaml
    # nur diese oberen zwei! Zeilen sind noetig! fileende_

    3. Scite neu starten, in einer test textdatei folding mit fuehrenden whitespace probieren

  • welcher autoit word.au3 befehl speichert Bilder mit im word-document.doc ( anstatt LINKs )

    welcher autoit word.au3 befehl speichert Bilder mit im word-document.doc ( anstatt LINKs ) , die im folder-Dateien vom html-document.html waren ? (mit maus - klicks und Tastatur gehts so: ^a!abvvj )

    hallo
    habe ein html document mit Bildern im Ordner /__I_M_G__-Dateien/ erstellt ,
    um es dann mit Word zu oeffnen ,
    und als Word.doc , mit ins file integrierten Bildern zu speichern.

    Frage: wie heisst der Autoit-befehl um das geoeffnete Html-document dann als Word.doc mit Bildern ( statt LINKs ) in einem file zu speichern
    mit mouse-klicks geht es so:

    HTML.html document (mit bilder-ordner) in word oeffnen
    $oWordApp = _WordCreate ( "__I_M_G__" & '.html', 0 ,1 ,1 )
    $oDoc = _WordDocOpen ( "__I_M_G__" & '.html' )

    - alles markieren ^a
    - bearbeiten - verknuepfungen !bv
    - verknuepfungen_aufheben !v
    - Ja == OK !j
    - == ^a!abvvj

    wie geht das mit autoit , ohne send - befehle
    ( weil die tastatur_comands wohl sprach-und-versions-abhaengig sind , also zB. in word 2007 deutsch anders als in OfficeXP english oder ungarisch )
    sondern mit document_objekt_model
    .. ob peethebee das drauf hat ??

  • welcher word befehl speichert bild-dateien ordner mit beim doc

    welcher word befehl speichert bild-dateien ordner ( wenn ein html file mit word geoeffnet wird ) mit beim word.doc

    hallo , habe mit Autoit ein html - file mit bilder folder "wrd_bild-dateien" generiert und mit word geoffnet:

    [autoit][/autoit][autoit][/autoit][autoit]

    If $i <= $imaxqq Then
    $lasti = $i
    $htmstrg4WORDdoc &= '<p align="right"><font face="Arial"><br /><br />' & @CRLF
    $htmstrg4WORDdoc &= '<img width=505 height=378 src="' & $i2htmFilNamqq & $patHTM_Dateien & '/' & $ImgNewNam & $i & '.' & $EXTENSION & '" ><br /><!--qqimagqq-->' & @CRLF
    $htmstrg4WORDdoc &= $ImgNewNam & $i & '<!--qqbldqq-->' & @CRLF
    $htmstrg4WORDdoc &= '<br/><br/></p>' & @CRLF
    EndIf
    ...

    [/autoit][autoit][/autoit][autoit]

    Local $finalWORDdocHTM
    $finalWORDdocHTM = @ScriptDir & '\DOCS\' & $i2htmFilNamqq & ".html"
    $oWordApp = _WordCreate ( $finalWORDdocHTM , 0 ,1 ,1 )
    ;// ...
    Sleep (466)
    ;// ...
    $oDoc = _WordDocOpen ($oWordApp , $finalWORDdocHTM)
    ;$oDoc.Range.insertAfter ("This is some text to insert.")
    ; Create a range of the entire document
    ;$oDoc.ActivePane.View.wdPrintView
    WinActivate ( $i2htmFilNamqq & '.html')
    WinWaitActive ( $i2htmFilNamqq & '.html')
    sleep (266 )
    Send ("!ao")

    [/autoit][autoit][/autoit][autoit][/autoit]

    so , nu wird das mit word geoeffnete HTM - file -> unter word format gespeichert , aber danach beim kopieren auf usb - stick wird der Bilder-Dateien Ordner nicht mit auf den stick kopiert , sondern das word-doc verweisst auf den ersten bilder-dateien folder.


    welche autoit - syntax speichert word .doc inclusive Bilder-Dateien Ordner , in ein anderes drive ?

  • wie bilder in word insert und scalieren

    so damit sollte es leicht gehen - wenn ich nur wuesste wie ich das in autoit einbau..

    ZITAT:: http://www.office-loesung.de/ftopic90751_0_0_asc.php

    [autoit]


    wordmacro::
    AW: Makro um Bilder zu verkleinern
    Nach oben

    Hallo Franz,

    wenn ich das richtig verstehe, meinst Du, das Bild auf 8 cm zu zoomen, jedoch mit unverändertem Seitenverhältnis. Das geht dann etwa so:
    Code: Sub Test()

    Dim Breite As Single

    With Selection.InlineShapes(1)
    If .LockAspectRatio = msoFalse Then
    .LockAspectRatio = msoTrue
    End If
    .Width = CentimetersToPoints(8)
    Breite = .ScaleWidth
    .ScaleHeight = Breite
    End With

    End Sub

    Für eine Shape so:
    Code: Sub Test2()
    'Shape
    Dim Breite As Single

    With Selection.ShapeRange(1)
    If .LockAspectRatio = msoFalse Then
    .LockAspectRatio = msoTrue
    End If
    .Width = CentimetersToPoints(8)
    End With

    End Sub

    Falls noch weitere Rückfragen sind, wäre es freundlich, wenn Du sagst, ob Shape oder InlineShape, damit man nicht immer doppelte Arbeit hat.
    _________________
    Sei doch so nett und gib eine Rückmeldung, ob es klappt!
    Gruß, Lisa

    [/autoit][autoit][/autoit][autoit][/autoit]

  • wie bilder in word insert und scalieren

    habe wordmacros zum bilder scalieren gefunden , die muesste man doch in autoit nachbilden koennen?
    - oder soll ich das wordmacro mit autoit aufrufen?

    [autoit]


    ; *******************************************************
    ; Example 1 - Create a word window with a new blank document,
    ; then add some pictures to the document.
    ; *******************************************************
    ;
    #include <Word.au3>

    [/autoit][autoit][/autoit][autoit]

    $sPath = @WindowsDir & "\"
    $search = FileFindFirstFile($sPath & "*.bmp")

    [/autoit][autoit][/autoit][autoit]

    ; Check if the search was successful
    If $search = -1 Then
    MsgBox(0, "Error", "No images found")
    Exit
    EndIf

    [/autoit][autoit][/autoit][autoit]

    $oWordApp = _WordCreate ()
    $oDoc = _WordDocGetCollection ($oWordApp, 0)

    [/autoit][autoit][/autoit][autoit]

    While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
    $oShape = _WordDocAddPicture ($oDoc, $sPath & $file, 0, 1)
    If Not @error Then $oShape.Range.InsertAfter (@CRLF)
    WEnd

    [/autoit][autoit][/autoit][autoit]

    ; Close the search handle
    FileClose($search)

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    ;//............................................................................
    ;// http://www.ms-office-forum.net/forum/showthread.php?p=1099643
    ;// wordmacro

    [/autoit][autoit][/autoit][autoit]

    Option Explicit

    [/autoit][autoit][/autoit][autoit]

    Sub InsertPicture()

    Dim sPath As String
    Dim sBildPfad As String
    Dim lRes As Long

    'Hier den Pfad eingeben von wo aus die Bilder geöffnet werden sollen
    sBildPfad = "C:\Dokumente und Einstellungen\mihinte\Desktop\cair"

    'aktuellen PicturePfad merken
    sPath = Options.DefaultFilePath(Path:=wdPicturesPath)

    'Bildpfad ändern
    Options.DefaultFilePath(Path:=wdPicturesPath) = sBildPfad

    'Dialog öffnen
    lRes = Application.Dialogs(wdDialogInsertPicture).Show

    'Pfad zurücksetzten
    Options.DefaultFilePath(Path:=wdPicturesPath) = sPath

    If lRes <> 0 And ActiveDocument.InlineShapes.Count > 0 Then
    'wenn bild eingefügt wurde, dann Bildgrösse anpassen
    Call BildGroesse(ActiveDocument.InlineShapes(ActiveDocument.InlineShapes.Count))
    End If

    End Sub

    [/autoit][autoit][/autoit][autoit]

    Sub BildGroesse(oPic As InlineShape)
    Dim iScale As Single
    Dim iBreite As Single

    [/autoit][autoit][/autoit][autoit]

    iBreite = 188 'Bildgrösse in Pixel

    [/autoit][autoit][/autoit][autoit]

    oPic.LockAspectRatio = msoTrue
    ' Skalierungsfaktor in Pixel für Breite festlegen
    iScale = (iBreite / oPic.Width) * 100
    oPic.ScaleWidth = iScale
    oPic.ScaleHeight = iScale
    End Sub
    EndIf


    ;//............................................................................
    ;// http://www.ms-office-forum.net/forum/showthread.php?p=1099643
    ;// wordmacro

    [/autoit][autoit][/autoit][autoit]

    Sub InsertPicture()

    Dim sPath As String
    Dim sBildPfad As String
    Dim lRes As Long
    Dim MyShape As InlineShape


    'Hier den Pfad eingeben von wo aus die Bilder geöffnet werden sollen
    sBildPfad = "C:\Dokumente und Einstellungen\mihinte\Desktop\cair"

    'aktuellen PicturePfad merken
    sPath = Options.DefaultFilePath(Path:=wdPicturesPath)

    'Bildpfad ändern
    Options.DefaultFilePath(Path:=wdPicturesPath) = sBildPfad

    'Dialog öffnen
    lRes = Application.Dialogs(wdDialogInsertPicture).Show

    'Pfad zurücksetzten
    Options.DefaultFilePath(Path:=wdPicturesPath) = sPath

    If lRes <> 0 And ActiveDocument.InlineShapes.Count > 0 Then
    'wenn bild eingefügt wurde, dann Bildgrösse anpassen
    For Each MyShape In ActiveDocument.InlineShapes
    Call BildGroesse(MyShape)
    Next
    End If
    End Sub

    [/autoit][autoit][/autoit][autoit]

    Sub BildGroesse(oPic As InlineShape)
    Dim iScale As Single
    Dim iBreite As Single

    [/autoit][autoit][/autoit][autoit]

    iBreite = 188 'Bildgrösse in Pixel

    [/autoit][autoit][/autoit][autoit]

    oPic.LockAspectRatio = msoTrue
    ' Skalierungsfaktor in Pixel für Breite festlegen
    iScale = (iBreite / oPic.Width) * 100
    oPic.ScaleWidth = iScale
    oPic.ScaleHeight = iScale
    End Sub

    [/autoit][autoit][/autoit][autoit]

    ;//...............................................................
    ;//http://www.office-loesung.de/ftopic90751_0_0_asc.php

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    ' Meine Lösung für mein Problem Rolling Eyes
    Rolling Eyes

    [/autoit][autoit][/autoit][autoit]

    TMRange.InlineShapes.AddPicture picture, False, True

    [/autoit][autoit][/autoit][autoit]

    'TMRange.InlineShapes(1).LockAspectRatio = msoTrue ' ignored in word 2003/07
    ' Also selber schreiben:
    Dim iScale0 As Single
    Dim oldHeight0 As Integer
    Dim oldWidth0 As Integer
    oldHeight0 = TMRange.InlineShapes(1).Height 'backup alte hoehe
    oldWidth0 = TMRange.InlineShapes(1).Width 'backup alte breite

    [/autoit][autoit][/autoit][autoit]

    TMRange.InlineShapes(1).Width = 250 ' 250 Pixel fest vorgegeben

    [/autoit][autoit][/autoit][autoit]

    'Berechnung des Skalierungsfaktors
    iScale0 = TMRange.InlineShapes(1).Width / oldWidth0

    [/autoit][autoit][/autoit][autoit]

    'Skalierung der Hoehe anhand der alten Breite und des errechneten iScale
    TMRange.InlineShapes(1).Height = oldHeight0 * iScale0

    [/autoit][autoit][/autoit][autoit]

    ' Das gleiche für Word 2003 in einer Zeile, was in Word 2007 nicht mehr geht
    ' TMRange.InlineShapes(1).ScaleWidth = TMRange.InlineShapes(1).ScaleHeight

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    objWord.ActiveDocument.Bookmarks.Add Name:=TMName, Range:=TMRange
    End If Rolling Eyes Rolling Eyes

    ;//...........................................................................

    [/autoit][autoit][/autoit][autoit]

    links
    open office Bilder Skalieren: http://www.ooowiki.de/AutorenCaf%C3%A9

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]

  • wie bilder in word insert und scalieren

    wie bilder in word insert und scalieren
    hi , muesste bilder beim einfuegen auf max 10cm hoehe skalieren ,
    mit

    [autoit][/autoit][autoit][/autoit][autoit]

    _WordDocFindReplace($oDoc, $qlastfil, "", 0, $oRange) ;// qq66yy Runs the specified find and replace operation.
    With $oRange
    ; Insert a new line, updating the range.
    .insertAfter (@CR)
    .insertAfter (@CR)
    ; Collapse Einsturz the range to the end point
    .Collapse ($wdCollapseEnd)
    EndWith
    ; Add the specified picture to the range
    sleep(66)
    $sPicPath = $qqGDirectory & "\" & $pimgnamqq & "."& $qexten
    _WordDocAddPicture($oDoc, $sPicPath, 0, 1, $oRange)
    sleep(66)
    $oDoc.Range.InsertAfter($pimgnamqq & @CRLF )

    [/autoit]


    fueg ich bilder , 2 pro seite in word ein
    nun finde ich nicht wie ich die bilder auf 10 cm hight max scaliere (width is dann 13.3 cm aber wenn ein bild im portrait format dabei ist soll es einfach auf 10 cm hight scaliert werden

  • bitte: wo markier ich denn ein (mein) thema als geloest ?

    bitte: wo markier ich denn ein (mein) thema als geloest ?

    Zitat

    editieren ist dieser Button am ende deines Posts (rechts unten).
    Sieht etwa so aus:
    [Blockierte Grafik: http://1.2.3.11/bmi/www.autoit.de/wcf/icon/editS.png] Bearbeiten

    alles klar? ^^ Dann kannst du oben von offen auf gelöst umstellen.


    [Blockierte Grafik: http://1.2.3.10/bmi/www.autoit.de/wcf/icon/membersM.png]

    ..schade ich sehe oben kein "offen" kein "geloest" nicht ..

  • Bilder in dir DEL > RENAME Bild 1, Bild 2 > in Word je 2 Bilder 10x15 pro Seite mit "Bild 1" , "Bild 2"

    JA ,
    das ist meine Grafic-User-Bedien-Oberflaeche wie eben heute 'ne fernbedienung so aussehn kann , meine iPhone oberflaeche als GUI gefaellt mir eben
    ( die grafic is mit 3DSMAX und Photoshop eingespielt) ,

    aber GUI-intern-programmieren => keine ahnung , ich hab's nur von @progandy und von anderen abgeschrieben , siehe


    [15 = code = OK] [ gelöst ] pls help: GUI transparent menu image , -NO buttons

    [ gelöst ] pls help: GUI transparent menu image , -NO buttons

    da muesstest du microsoft Cpp MFC lesen , message-loops and events.. glaub ich

  • Aut2Exe v3 => wo ist die passphrase option?

    Aut2Exe v3 => wo ist die passphrase option?

    mein window ( LINKS ) nach aufruf von Aut2Exe sieht kleiner aus als das in der Hilfe ( RECHTS ) ,
    und mir fehlt der Passphrase Dialog , muss ich was anderes installieren ,
    oder wie kriege das grosse Aut2Exe Window?

    [Blockierte Grafik: http://a6000000.a6.ohost.de/i2w/compile_hlp_big9.png]
    http://a6000000.a6.ohost.de/i2w/compile_hlp_big9.png


    habe autoit-v3-setup.exe 06.12.2007 ver. 3.2.10.0 6.881.224 Bytes
    , brauch ich noch was dazu?

  • Bilder in dir DEL > RENAME Bild 1, Bild 2 > in Word je 2 Bilder 10x15 pro Seite mit "Bild 1" , "Bild 2"

    peethebee

    danke dir , mit der hilfe in den foren-beitraegen habe ich nun fertig ,
    haette aber auch gern jemand gefunden der das fuer mich macht , es gab lange kopfschmerzen 8-)

    so sieht der test auf meinem desktop aus , ein GUI aufrufen , images umbenennen und an ein word.doc senden , und fuers auge in coverflow zeigen

    http://a6000000.a6.ohost.de/i2w/i2w.jpg

    [Blockierte Grafik: http://a6000000.a6.ohost.de/i2w/i2w.jpg]

    PS: bei der einbindung von files beim compilieren habe ich nur ein kleinen dialog ohne password-abfrage , dazu mach ich aber ein neuen thread auf , oder wo steht zum compilieren und files einbinden und password fuer die exe was? [EDIT]geloest => .. is veraltet , siehe compiler help thread..[EDIT]

  • Word.au3 _WordDocAddPicture Range.InsertAfter, welche reihenfolge?

    Word.au3 _WordDocAddPicture Range.InsertAfter, welche reihenfolge?

    irgendwie kommt nicht die erwartete reihenfolge bei raus

    ich erwarte bild1 bild 2 bild 3
    aber ins word.doc wird bild 2 VOR! bild 1
    und bild 3 VOR! bild 2 eingefuegt ,
    das ergibt: bild 3 bild 2 bild 1

    habe extra die while-schleife aus dem HELP - Beispiel _WordDocAddPicture.au3 aufgeloest , dort is die reihenfolge schon invers.

    F1: wie ist denn der trick fuer eine aufsteigende reihenfolge , oder wo steht was ueber Range.InsertAfter , und andere Range options ?
    F2: wie fuege ich einen manuellen SeitenUmbruch in Word ein , gibt es sowas wie @CRLF fuer seitenumbruch?

  • pls help: GUI transparent menu image , -NO buttons

    OK OK! closed!

    DANKE , es funzt 8-)

  • pls help: GUI transparent menu image , -NO buttons

    HEYYAA

    @progandy
    ; so jetzt hab ich es 50/50 , fast super , ABER:
    ; LINE 45::
    ;$n=GUICtrlCreatePic("AMMenuTrans3006.gif",0,0, 180,215)
    ; mit mein background image geht mouse - move nit und ohne background img geht mousemove , aber es sieht nit so aus :(
    ..es koennt alles so einfach sein - isses aba nit ..
    ; wie sollte denn das img eingebunden werden?

    @progandy

    Zitat


    ..
    Du setzt also das Bild auf GUISetState($bild,$GUI_DISABLE)
    ..

  • pls help: GUI transparent menu image , -NO buttons

    dein code sieht schon sehr entgegenkommend aus

    nochmal es braucht am bild sich nix veraendern

    [Blockierte Grafik: http://a6000000.bplaced.net/AM/AMMenuTrans3003.jpg%3C/a%3E] [Blockierte Grafik: http://a6000000.bplaced.net/AM/AMMenuTrans3003.jpg] 


    egal auf welchen bereich man klickt , dann isses weg und entweder passiert nix= exit oda A.exe oda B.exe


    so schnell hab ich dein code noch nit gelesen ,


    heyy sieht aba guuuut aus



    warum rundest du die ecken nit einfach mit transparentem gif ab??


    EDIT: habe es gefunden , [ _GUICreateRoundRect($gui, 50,50) ], sieht elegant aus 8-)