Aktywne Wpisy
Ryneczek +3197
Plusują osoby, które nie mają żadnego tatuażu ani nie planują sobie w przyszłości takowego zrobić. Zobaczymy, czy jest nas chociaż z tuzin. Odnoszę wrażenie, że każdy jest pomazany; od kasjerki w Netto do listonosza czy kuriera, to jest jakaś plaga. Do pomazanych rąk czy karków coraz częściej dochodzą łydki i uda a nawet twarz. Co innego poddać się trendowi mody albo sobie zmienić kolor włosów - to wszystko cofniesz w jeden dzień.
Mega_Smieszek +42
Chcę wstawić pole "Quote" to dokumentu
Sub WstawPoleQuote()
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldQuote, Text:=Selection.Text, PreserveFormatting:=True
End Sub
I działa to poprawnie jak mam zaznaczony jedno słowo. Natomiast gdy jest zaznaczone więcej niż 1 słowo pole się wstawia ale jego zawartością jest tekst zaznaczenia z wykasowanymi spacjami.
Dlaczego i czy da się z tym coś zrobić?
https://learn.microsoft.com/en-us/office/vba/api/word.selection.formattedtext
zamiast Selection.Text?
Strzelam.
Okazuje się że trzeba dać cudzysłowy.
Zamiast Selection.Text
trzeba dać:
Chr(34) & Selection.Text & Chr(34)
Jakieś dziwactwo