Pytanie : Jak I wybierać wieloskładnikowy rama/tekst pudełko w Słowo 2007

I mieć słowo doc z mnogi tekst pudełko, rama z rama.  (ono przychodzić jako rtf z krystaliczny reportaż).  I chcieć grupa wokoło 20 te pudełko i en masa punkt wysoki na the strona.  Tam  być prawdopodobnie 400 tekst pudełko z indywidualny rama w the dokument.  Teraz, I móc tylko jeden obramiać tekst pudełko na raz i I móc pudełko ale wtedy I potrzebować the następny.  I próbować w dół zmianowy plus stuknięcie, w dół ctl plus przesunięcie i w dół ono tylko wybierać jeden.  I chcieć macro.  Być tam  prosty sposób nie????????????  DZIĘKI dla żadny pomagać!!!!!!!!!!!!!!  Oh tak, jeżeli I pojedynczo kasować the rama, the tekst skakać do the wierzchołek the strona za inny tekst boxes.

Odpowiedź : Jak I wybierać wieloskładnikowy rama/tekst pudełko w Słowo 2007

Cześć North_Side,

I pójść głęboko w the problem i komponować macro ten konwertyta rama textboxes.
Ono być 100% cecha ogólna ale dawać dopuszczalny rezultat na kartoteka ty provided.
Ty móc ten macro w Normal.dot i ono być zawsze dostępny Alt+F8 - 2click na makro- imię.
The proces być raczej czasochłonny więc I dodawać sprawozdanie z realizacji status bar.
Zadawalać próba. I także wkładać macro w the dokument ty provided.

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:

'---------------------------------------------------------------------------------------
'Procedura: Frames2TextBoxes
'Autor    : Alexey Egorov, [email protected]
'Data      : 11-Jul-2010
'Purpose   : Zamieniać wszystkie rama w aktywny dokument z textboxes pozycja.
'Temat     : http://www.experts-exchange.com/Microsoft/Applications/Q_26319089.html
'---------------------------------------------------------------------------------------
Okręt podwodny Frames2TextBoxes ()
Ciemnawy aF () Jako Word.Frame, f Jako Word.Frame, t Jako Word.Shape, i Długo, n Długo
Ciemnawy stbar Boolowski
Na Błąd Rozpoczynający err_
Application.ScreenUpdating = Fałszywy
stbar = Application.DisplayStatusBar
n = ActiveDocument.Frames.Count
ReDim aF (n)
Dla i = (1) N
    Set aF (i) = ActiveDocument.Frames (i)
Następnie

Dla i = (1) N
    Application.StatusBar = Format (i, """ "" ####") & Format (n, """ "" ####")
    Set f = aF (i)
    f.Range.Select
    Selection.CreateTextbox
    Set 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
    
    Z t.TextFrame
        .MarginBottom = (0)
        .MarginLeft = (0)
        .MarginRight = (0)
        .MarginTop = (0)
    Końcówka Z
    t.Line.Visible = msoFalse
Następnie
exit_here:
Application.ScreenUpdating = Prawdziwy
Application.DisplayStatusBar = stbar

Wyjście Okręt podwodny

err_:
MsgBox Err.Description, vbCritical
Życiorys exit_here
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us