funkcja MS Word, aby dołączyć zakres do dokumentu

Question

Załóżmy, że chcemy dodać jakiś tekst na końcu dokumentu i od razu dostęp go jako Range obiektu, dzięki czemu można ustawić pewne właściwości nim bez wpływając powyższy tekst . Idealnie, metoda zwraca obiekt Range, który byłby idealny do tego, ale tak nie jest.

To mnie denerwuje, że Słowo musi wiedzieć doskonale, jaki zakres określa wynik wywołania InsertAfter, ale na pierwszy rzut oka muszę go obliczyć "po fakcie" od długości wstawionego tekstu, lub w niektórych inny sposób.

Więc wymyśliłem proste podejście do pracy. W pseudo-kodzie (w rzeczywistości jest to Delphi kod ale mam nadzieję, że nie zniechęci odpowiedzi VBA), co mogę zrobić, to ten

ARange := Document.Range 
ARange.Text := 'AAA' 

AEnd := ARange.End - 1  // AEnd is an integer 
ARange.SetRange(AEnd, AEnd) 
ARange.Text := 'XXX' 
ARange.Bold := True 

i wydaje się, że mogę kontynuować w nieskończoność, dodając bloki tekstu do końca dokumentu przez powtórzenie drugiego bloku kodu.

Linia

ARange.SetRange(AEnd, AEnd) 

jak rozumiem, wydaje się skonstruować nową serię na końcu istniejącego (w przeciwieństwie do wywoływania Collapse na istniejącej gamy), i działa dobrze dla prostych przypadków testowych Próbowałem. Ale zastanawiam się, czy nie mam gdzieś jakiejś sztuczki. Czy istnieje bardziej bezpośredni sposób dołączenia zakresu do dokumentu i uzyskania odniesienia do niego?

PS: Powinienem był być nieco jaśniejszy, próbuję to zrobić bez użycia obiektu Selection (z różnych powodów, w tym z faktu, że można mieć tylko jedną z nich w danej chwili).

Answer 1

Istnieje wiele sposobów na uzyskanie zakresu na końcu dokumentu. Odkryłeś jednego, ale jak mówisz, jest to trochę okrężne. Moje preferencje:

Word.Range rngEndOfDoc = Document.Content; 
//Content returns a Range object and is a property, not a method like Range() 
rngEndOfDoc.Collapse(Word.WdCollapseDirection.wdCollapseEnd); 
rngEndOfDoc.Text = "Text at the end of the document"; 

Collapsing zakres jest koncepcyjnie jak naciśnięcie w prawo (lub w lewo) klawisz strzałki, gdy masz wybór. Tak więc rngEndOfDoc staje się "punktem", a nie zawiera całą treść głównej części dokumentu.

FWIW Nigdy nie mogę wymyślić sytuacji, w której użyłbym do tego EndKey (emulacja działań użytkownika) i zmieniam tylko wybór, gdy chcę zostawić użytkownika na końcu dokumentu, aby mógł on zacznij pisać w tej lokalizacji.

Answer 2

Pomyśl o Document.Range jako związku wszystkich możliwych zakresów w dokumencie głównym (tj. Oprócz nagłówków, stopek, rzeczy pływających itp.). Zawsze zaczyna się przed pierwszą postacią i kończy po ostatniej postaci (która, jak się okazuje, jest zawsze ukrytym znaczkiem akapitu). Nie jest możliwe zdefiniowanie innego zakresu, który jest po bieżącym Document.Range lub, konceptualnie "dołącz" cokolwiek po Document.Range, ponieważ nie ma "po" Document.Range (zawsze dociera do końca).

Tak więc, aby rozszerzyć dokument o nowy tekst lub inne wstawiane obiekty, należy wstawić je na końcu Document.Range - w rzeczywistości tuż przed końcem, ponieważ ostatni, ukryty znak akapitu musi nadal być ostateczną postacią dokumentu. To właśnie robisz w swoim pseudokod. w VBA, pusta zakres na końcu dokumentu można się odwoływać z

Document.Range(Document.Range.End-1, Document.Range.End-1) 

Próbując zdefiniować go w Document.Range.End faktycznie podnosi błąd, gdyż wskazuje po tej ostatniej (ukryty) charakter - i to jest z Dokumentu - dlatego potrzebujemy "-1".

Po uzyskaniu tego zakresu możemy wypełnić go materiałem - rozwijając go i logicznie, Document.Range.Na przykład, aby dodać tekst na koniec bieżącego dokumentu, można by napisać

ActiveDocument.Range(ActiveDocument.Range.End-1, ActiveDocument.Range.End-1).Text = "New Text" 

Zauważ, że ta sama „ostateczne” pusty zakres można dojechać z:

Document.Bookmarks("\EndOfDoc").Range 

Answer 3

następujące prace dla mnie w Word 15 (Office 365) przy użyciu biblioteki typów Word 2010 (używam wczesnego wiązania, ale powinno działać tak samo z późnym wiązaniem). Word to TWordApplication, a aRange to WordRange.

Word.Selection.EndKey(wdStory, wdMove); 
aRange := Word.Selection.Range; 
aRange.Text := 'This is new text added at the end.'; 

Answer 4

Dziękując za trzy godne podziwu odpowiedzi od innych, pomyślałem, że dodam moją własną . Poniżej przedstawiono dwie wersje funkcji, które zacząłem, pragnąc, aby Word dostarczył natywnie , zwracając dołączony zakres.

Pierwsza wersja wykorzystuje obiekty MS Word w MS Word Type Library importowej jednostki, która tradycyjnie pochodzi z Delphi (np Word2000.Pas jeden) i wykorzystuje „wczesne wiązanie” automatyzację natomiast druga wersja robi to samo z późnym wiązaniem.

function AppendRange(InputRange : Range) : Range; 
var 
    Direction : OleVariant; 
begin 
    Result := InputRange; 
    Direction := wdCollapseEnd; 
    Result.Collapse(Direction); 
end; 

function AppendRangeLB(InputRange : OleVariant) : OleVariant; 
begin 
    Result := InputRange; 
    Result.Collapse(wdCollapseEnd); 
end; 

Użycie to np.

AppendedRange := AppendRange(ExistingRange); 
AppendedRange.Text := 'YYY';