Jump to content

Sky Slate Blueberry Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate
Photo

[AHK_L]Falt-und Lochmarken für Word-Dokument einfügen


  • Please log in to reply
2 replies to this topic
fredchf
  • Members
  • 111 posts
  • Last active: Oct 23 2019 07:56 PM
  • Joined: 02 Nov 2012
Hallo!
Ich will nun auch mal einen Beitrag im neuen Forum posten und hab heute Vormittag mal versucht das Einfügen von Falt-und Lochmarkierungen für geöffnete Word-Dokumente zu erleichtern.

try
wo := ComObjActive("Word.Application")
if !IsObject(wo)
{
MsgBox, Kein Word-Dokument geöffnet.`nAbbruch!
ExitApp
}
wobj := {}
Loop, % wo.documents.count
{
MsgBox, 3, , % "Offenes Dokument" A_Index ":`t""" wo.documents(A_Index).name """"
. "`n`nFalt-und Lochmarken setzen?"
IfMsgBox, no
continue
IfMsgBox, cancel
ExitApp
wobj := wo.documents(A_Index).Sections(1).Headers(1)
wobj.Shapes.AddTextbox(1	 ; Orientation
	 , "14,17323" ; Left
	 , "294,8031" ; Top
	 , "5,669291" ; Width
	 , "0,5669291") ; Height
wobj.Shapes.AddTextbox(1
	 , "14,17323"
	 , "420,9449"
	 , "11,33858"
	 , "0,5669291")
}


nnnik
  • Members
  • 1625 posts
  • Last active: Jan 24 2019 02:19 PM
  • Joined: 28 Jul 2012
Dann kann das Papierflierger Faltmakieren ja losgehen
aber irgendwie vermisse ich das Faltmakieren

Visit the new forum ahkscript.org.

http://ahkscript.org


fredchf
  • Members
  • 111 posts
  • Last active: Oct 23 2019 07:56 PM
  • Joined: 02 Nov 2012

Dann kann das Papierflierger Faltmakieren ja losgehen
aber irgendwie vermisse ich das Faltmakieren

Posted Image
Die Möglichkeiten, hier Code einzubinden sind aber ein deutlich schlechter als im alten Forum, ich will hoffen das sich daran noch etwas ändert.