![]() However that doesn't work for page 18, so I haven't found out yet what the rule is. I tried moving the Anchor so that it is not inside the table, but the Anchor.SetRange method does nothing.Īfter trying several more ploys, I can report some success by tweaking the left and top settings by the difference in the target and the actual positions, In the case of, I have based the amount to move on the width of the table. ![]() I have tried setting the top and left values in code, but they are already set to the required values in spite of the fact that the shape is in the wrong place, so that is ineffective. I suspect that testing could have overlooked this exact circumstance and we are therefore looking at a bug. The fact that the text runs right-to-left make it even more unusua. What we are trying to do is quite unusual. Sub CopyRectangles() Dim sh As Shape Dim sh1 As Shape Dim rng As Range Dim p As Integer Set sh = GetRectangleOnPage(1) sh.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage sh.RelativeVerticalPosition = wdRelativeVerticalPositionPage sh.Select Selection.Copy For p = 2 To (wdActiveEndPageNumber) DoEvents Selection.GoTo wdGoToPage, wdGoToAbsolute, p Selection.Paste Set sh1 = GetRectangleOnPage(p) If p = 7 Then Stop End If Debug.Print "Page: "
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |