Vraag : Hoe selecteer ik veelvoudige kaders/tekstvakjes in Word 2007

Ik heb een woorddoc. met talrijke tekstvakjes, elk met een kader.  (het kwam als RTF uit kristal rapporterend).  Ik wil een groep van ongeveer 20 van deze vakjes selecteren en hen verplaatsen Engelse massa naar een vlek hoger op de pagina.  Er zijn waarschijnlijk 400 tekstvakjes met individuele kaders in het document.  Op dit ogenblik, kan ik één ontworpen tekstvakje in een tijd slechts selecteren en ik kan dat bewegen maar anderzijds moet ik volgende doen.  Ik heb geprobeerd onderdrukkend verschuiving plus klik, onderdrukkend ctl plus verschuiving en telkens als het slechts selecteert.  Ik wil geen macro doen.  Is er geen eenvoudige manier om dit??????????? te doen?  DANK voor om het even welk helpt!!!!!!!!!!!!!!  Oh ja, als ik individueel de kaders schrap, de tekst springt tot de bovenkant van de pagina voorbij andere tekst boxes.

Antwoord : Hoe selecteer ik veelvoudige kaders/tekstvakjes in Word 2007

Hallo North_Side,

Ik ging diep in het probleem en stelde een macro samen die kaders in textboxes omzet.
Het is 100% geen algemeen begrip maar geeft aanvaardbare resultaten op dossiers u verstrekte.
U kunt deze macro in Normal.dot plaatsen en het zal altijd beschikbaar door Alt+F8 te drukken - 2click op macronaam zijn.
Het proces is eerder tijdrovend zodat voegde ik voortgangsrapport aan statusbar toe.
Gelieve te proberen. Ik nam ook macro in het document op u verstrekte.

Alex
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

'
'Procedure: Frames2TextBoxes
'Auteur    : Alexey Egorov, [email protected]
'Datum      : 11-juli-2010
'Doel   : Vervangt alle kaders in actief document met textboxes die positie houden.
'Onderwerp     : http://www.experts-exchange.com/Microsoft/Applications/Q_26319089.html
'
Sub Frames2TextBoxes ()
Schemerige aF () als Word.Frame, F als Word.Frame, t als Word.Shape, I zoals lang, n zoals lang
Schemerige stbar zoals Van Boole
Op Fout GoTo err_
Application.ScreenUpdating = Vals
stbar = Application.DisplayStatusBar
n = ActiveDocument.Frames.Count
ReDim aF (n)
Voor I = 1 aan n
    Vastgestelde aF (I) = ActiveDocument.Frames (I)
Daarna

Voor I = 1 aan n
    Application.StatusBar = Formaat (I, """ die "" #### omzetten ") & Formaat (n, """ van "" #### ")
    Vastgesteld F = aF (I)
    f.Range.Select
    Selection.CreateTextbox
    Vastgesteld t = Selection.ShapeRange (1)
    t.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
    t.RelativeVerticalPosition = wdRelativeVerticalPositionPage
    t.Width = f.Width
    t.Height = f.Height
    t.Left = f.HorizontalPosition
    t.Top = f.VerticalPosition
    
    Met t.TextFrame
        .MarginBottom = 0
        .MarginLeft = 0
        .MarginRight = 0
        .MarginTop = 0
    Eind met
    t.Line.Visible = msoFalse
Daarna
exit_here:
Application.ScreenUpdating = Waar
Application.DisplayStatusBar = stbar

Sub van de uitgang

err_:
vbCritical MsgBox Err.Description,
Hervat exit_here
Beëindig Sub
Andere oplossingen  
 
programming4us programming4us