xhyxsl

hi big_daddy! Please help me!

hi big_daddy! #include <Word.au3> Const $wdStyleHeading1 = -2 $file_name = @ScriptDir & "\index.doc" $oWordApp = _WordCreate ($file_name, 0, 1) $oDoc = _WordDocGetCollection ($oWordApp, 0) xhyxsl_WordContents($oWordApp,$oDoc,2,8) Func xhyxsl_WordContents($o_WordApp,$o_Doc,$C_Head,$C_Tail) $x = 0 For $i In $o_Doc.Paragraphs $x += 1 For $n = $C_Head To $C_Tail If $x > $C_Tail Then If $i.Range = $o_Doc.Paragraphs($n).Range Then $i.Range.Select $o_WordApp.Selection.Style = $o_Doc.Styles($wdStyleHeading1) $C_Head += 1 EndIf EndIf Next Next EndFunc $i.Range = $o_Doc.Paragraphs($n).Range ;;;==============>>> ??? ;;; vba to au3;;;; ;Examples Sub Contents() Dim i As Paragraph, n As Byte, a As Byte, b As Byte, x As Long, DelRange As Range a = 2 b = 8 x = 0 For Each i In Activedocument.Paragraphs x = x + 1 For n = a To b If x > b Then If i.Range = Activedocument.Paragraphs(n).Range Then i.Range.Select Selection.Style = Activedocument.Styles(wdStyleHeading1) a = a + 1 End If End If Next Next

Thanks, big_dadd ! Word Doc Comparison.zip =====>>>> http://www.autoitscript.com/forum/index.ph...7646&hl=Doc

Word Doc Comparison.zip downloads ??? Thanks, big_dadd ! Word Doc Comparison.zip =====>>>> http://www.autoitscript.com/forum/index.ph...7646&hl=Doc

Thanks!!!

$aTmp = DllCall("user32.dll", "int", "SendMessageTimeout", "hwnd", $hWndTarget, "int", 0x4A , "int", 0, "ptr", DllStructGetPtr($COPYDATA), "int", $iFuFlags, "int", $iTimeout, "long_ptr", 0) Error: "long_ptr", "int_ptr" and "short_ptr" DllCall() types have been deprecated. Use "long*", "int*" and "short*" instead.

#include <Word.au3> $oWordApp = _WordCreate ("", 0, 1) $oSel = _WordDocGetCollection ($oWordApp, 2) ;$oSel <<=>> $objSelection = $oWordApp.Selection !!!! ; Func _WordDocGetCollection(ByRef $o_object, $v_index = -1) If Not IsObj($o_object) Then __WordErrorNotify("Error", "_WordDocGetCollection", "$_WordStatus_InvalidDataType") SetError($_WordStatus_InvalidDataType, 1) Return 0 EndIf ; If Not __WordIsObjType($o_object, "application") Then __WordErrorNotify("Error", "_WordDocGetCollection", "$_WordStatus_InvalidObjectType") SetError($_WordStatus_InvalidObjectType, 1) Return 0 EndIf ; If IsNumber($v_index) Then Select Case $v_index = -1 SetError($_WordStatus_Success) SetExtended($o_object.Documents.Count) Return $o_object.Documents Case $v_index = 0 SetError($_WordStatus_Success) SetExtended($o_object.Documents.Count) Return $o_object.ActiveDocument Case $v_index > 0 And $v_index <= $o_object.Documents.Count And $v_index < 2 SetError($_WordStatus_Success) SetExtended($o_object.Documents.Count) Return $o_object.Documents ($v_index) Case $v_index = 2 SetError($_WordStatus_Success) SetExtended($o_object.Selection) Return $o_object.Selection Case $v_index < -1 __WordErrorNotify("Error", "_WordDocGetCollection", "$_WordStatus_InvalidValue") SetError($_WordStatus_InvalidValue, 2) Return 0 Case Else __WordErrorNotify("Warning", "_WordDocGetCollection", "$_WordStatus_NoMatch") SetError($_WordStatus_NoMatch, 2) Return 0 EndSelect Else For $o_doc In $o_object.Documents If $o_doc.Name = $v_index Then SetError($_WordStatus_Success) SetExtended($o_object.Documents.Count) Return $o_doc EndIf Next __WordErrorNotify("Warning", "_WordDocGetCollection", "$_WordStatus_NoMatch") SetError($_WordStatus_NoMatch, 2) Return 0 EndIf EndFunc ;==>_WordDocGetCollection

My Word2003 is Chinese version, maybe that's why you didn't understand some parts. Word_ParagraphFormat($objSelection,0);;;;;;;;;;;First, I set "0" and it runs correctly $objSelection.TypeParagraph Word_ParagraphFormat($objSelection,1);;;;;;;;;;;Second, I change it to "1" and it also runs correctly("1" means the distant between paragraphes is one line) $objSelection.TypeParagraph Word_ParagraphFormat($objSelection,0);;;;;;;;;;;But when I try to change it back to "0", it oddly sets "15.6 pound" . ;("pound" and "line" are two different measurements in Chinese version) I just want you to help me find out which script that I used is incorrectly. Or you can help me make an English version script. That would be great help,thanks.

Excuse me man, I have to bother you again. I got a problem about "PageSetup". #include <Word.au3> Const $wdOrientPortrait = 0 Const $wdOrientLandscape = 1 Const $wdPrinterDefaultBin = 0 Const $wdPrinterUpperBin = 1 Const $wdPrinterOnlyBin = 1 Const $wdPrinterLowerBin = 2 Const $wdPrinterMiddleBin = 3 Const $wdPrinterManualFeed = 4 Const $wdPrinterEnvelopeFeed = 5 Const $wdPrinterManualEnvelopeFeed = 6 Const $wdPrinterAutomaticSheetFeed = 7 Const $wdPrinterTractorFeed = 8 Const $wdPrinterSmallFormatBin = 9 Const $wdPrinterLargeFormatBin = 10 Const $wdPrinterLargeCapacityBin = 11 Const $wdPrinterPaperCassette = 14 Const $wdPrinterFormSource = 15 Const $wdSectionContinuous = 0 Const $wdSectionNewColumn = 1 Const $wdSectionNewPage = 2 Const $wdSectionEvenPage = 3 Const $wdSectionOddPage = 4 Const $wdAlignVerticalTop = 0 Const $wdAlignVerticalCenter = 1 Const $wdAlignVerticalJustify = 2 Const $wdAlignVerticalBottom = 3 Const $wdGutterPosLeft = 0 Const $wdGutterPosTop = 1 Const $wdGutterPosRight = 2 Const $wdLayoutModeDefault = 0 Const $wdLayoutModeGrid = 1 Const $wdLayoutModeLineGrid = 2 Const $wdLayoutModeGenko = 3 Const $wdLineSpaceExactly = 4 Const $wdAlignParagraphJustify = 3 Const $wdOutlineLevelBodyText = 10 Const $wdBaselineAlignAuto = 4 Const $wdStyleNormal = -1;(&HFFFFFFFF) $oWordApp = _WordCreate ("", 0, 1) $oDoc = _WordDocGetCollection($oWordApp, 0) $objSelection = $oWordApp.Selection Word_ParagraphFormat($objSelection,0);;;;;;;;;;;correct $objSelection.TypeParagraph Word_ParagraphFormat($objSelection,1);;;;;;;;;;;correct $objSelection.TypeParagraph Word_ParagraphFormat($objSelection,0);;;;;;;;;;;Why does the result change to 15.6 pound which the correct one should be 0 ??? Func Word_ParagraphFormat($obj,$s_Line) With $obj.ParagraphFormat .LeftIndent = CentimetersToPoints(0) .RightIndent = CentimetersToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = $wdLineSpaceExactly .LineSpacing = 28 .Alignment = $wdAlignParagraphJustify .WidowControl = False .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = -1 .FirstLineIndent = CentimetersToPoints(0) .OutlineLevel = $wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = $s_Line .LineUnitAfter = 0 .AutoAdjustRightIndent = -1 .DisableLineHeightGrid = False .FarEastLineBreakControl = -1 .WordWrap = -1 .HangingPunctuation = -1 .HalfWidthPunctuationOnTopOfLine = False .AddSpaceBetweenFarEastAndAlpha = -1 .AddSpaceBetweenFarEastAndDigit = -1 .BaseLineAlignment = $wdBaselineAlignAuto EndWith EndFunc Func CentimetersToPoints($i_Cent) Return ($i_Cent * 28.35) EndFunc ;==>CentimetersToPoints

Thanks!!! #include <Word.au3> $oWordApp = _WordCreate ("", 0, 1) $oDoc = _WordDocGetCollection ($oWordApp, 0) $my_Text = "Microsoft W o r d Included in the beta version as of v3.2.3.9" _WordDocParagraphFormat($oDoc,$my_Text,255,26,18) $objSelection = $oWordApp.Selection _WordDocFind($objSelection,$my_Text);;;look up string $objSelection.Font.Spacing = -2.5;;;;adjust the distance between words to 2.5 _WordDocFind($objSelection,"v3.2.3.9") $objSelection.Font.Color = 0 Func _WordDocParagraphFormat($s_oDoc,$s_Text,$s_Color,$s_Size,$s_Number) With $oDoc.Range .ParagraphFormat.Alignment = 1 .ParagraphFormat.LineSpacing = 36 .InsertAfter ($s_Text) .Font.Name = "Arial" .Font.Color = $s_Color .Font.Size = $s_Size .SetRange (0, $s_Number) .TwoLinesInOne = 1 EndWith EndFunc Func _WordDocFind($s_objSelection,$s_Text) With $s_objSelection.Find .Text = $s_Text .Execute EndWith EndFunc I made two other scripts above. I'm begging you to help me design a more perfect UDF.

Thanks!!! What a great answer you've given! You really do me a big favor,I just want to thank you again. Please check the scripts below: #include <Word.au3> _WordErrorHandlerRegister() $oWordApp = _WordCreate() $oDoc = _WordDocGetCollection($oWordApp, 0) $myShape = $oDoc.Shapes.AddLine(90, 145, 500, 145) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; With $myShape .Line.Weight = 1.8 .Line.DashStyle = 1 .Line.Style = 1 .Line.Transparency = 0 .Line.Visible = -1 .Line.ForeColor.RGB = 255 .Line.BackColor.RGB = 1677215 .Line.BeginArrowheadLength = 2 .Line.BeginArrowheadWidth = 2 .Line.BeginArrowheadStyle = 1 .Line.EndArrowheadLength = 1 .Line.EndArrowheadWidth = 2 .Line.EndArrowheadStyle = 1 EndWith The above scripts are followed your suggestion and I made it when I run it. Now I just want you to give me your advise about my adaptation. (For instance,Is there any mistakes in it?) I would really appreciate about that. (Please forgive me, I'm poor in English)

$objWord = ObjCreate("Word.Application") $objWord.Visible = 1 $objDoc = $objWord.Documents.Add.Range() $objSelection = $objWord.Selection ;$objSelection.InsertBreak.Type=7 With $objSelection.Paragraphs(1) .Borders(-3).LineStyle = 1 .Borders(-3).LineWidth = 18 .Borders(-3).LineStyle.RGB = 255;;;;???????? EndWith