Word 2010: Znajdź jedno słowo na końcu linii

0

Czy istnieje sposób na znalezienie jakichkolwiek linii w dokumencie programu Word, a następnie zakończenie pojedynczego nieszczęścia na końcu widocznej linii?

Ten przykład, jeśli jedna linia i chcę go znaleźć w całym dokumencie, ponieważ kończy się jednym słowem na ostatniej widocznej linii. enter image description here Czy istnieje również sposób na znalezienie określonego słowa „minim”, biorąc pod uwagę, że jest ono widoczne na końcu widocznej linii? I zignoruj ​​to, jeśli pojawi się na środku dowolnej linii?

Mike
źródło

Odpowiedzi:

0

Nie, to niemożliwe.

To, co widzisz jako „linię” w dokumencie, opiera się na ustawieniach marginesu dokumentu, a tekst dynamicznie zawija się do następnego wiersza na podstawie dostępnego miejsca. W wierszu tekstu nie ma znaku, który wymusza zawijanie, dlatego nie ma niczego, co można by przeszukać i znaleźć.

Jeśli chodzi o podziały wierszy, MS-Word zezwala tylko na wyszukiwanie wieloznaczne słów, po których następuje znak akapitu lub znak linii.

Rich Michaels
źródło
Z technicznego punktu widzenia zgadzam się z tobą (i masz rację), jeśli ktoś był skłonny spróbować tego za pomocą ustawień dokumentu wyświetlanych na ekranie, może to zrobić za pomocą klawisza zakończenia i przesunąć w lewo.
BlueGI
0

Zgadzam się z @rich, że nie jest to technicznie możliwe, ponieważ zależy od ustawień dokumentu dla marginesów i rozmiarów czcionek itp. I będzie się różnić między komputerami.

Jeśli jednak nie ma to dla ciebie znaczenia, możesz spróbować coś wymyślić za pomocą makra.

Zwróć uwagę, że będziesz musiał zbadać każdą linię (nie jest tu opisana) aż do końca dokumentu. A także uważaj na podkreślanie tylko interpunkcji i powtarzanie kroków dla pojedynczej linii, jeśli to konieczne.

Selection.HomeKey Unit:=wdStory
Selection.EndKey Unit:=wdLine
Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Copy
' here check for word - make sure to remove punctuation as needed
' continue to next line and repeat
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.EndKey Unit:=wdLine
Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Copy
' here check for word - make sure to remove punctuation as needed
' you will have to MoveLeft again if you did select punctuation
BlueGI
źródło
Próbowałem utworzyć makro i nagrałem, i kopiuje tekst powyżej do strony kodowej NewMacros, ale po kliknięciu przycisku pojawia się błąd „makro nie może działać”, aw Microsoft Visual Basic pojawia się błąd „Kompiluj błąd". Czy możesz mi powiedzieć, jaki jest właściwy sposób, aby go dodać?
Mike
Domyślam się, że gdzieś masz złe połączenie lub składnię. Spróbuj przejść przez kod za pomocą F8, który powinien wypaść na linii obrażania i dać ci lepszy pomysł. W przeciwnym razie zmień swoje oryginalne pytanie i opublikuj swój kod.
BlueGI