Przejdź do głównej zawartości

Jak zmienić cudzysłowy proste na cudzysłowy kręcone w programie Word?

Autorka: Amanda Li Ostatnia modyfikacja: 2025-04-02

Zwykle Microsoft Word automatycznie zmienia cudzysłowy proste Proste cytaty do kręconych (sprytnych lub typograficznych) cytatów Kręcone cytaty podczas pisania. Jeśli jednak ta funkcja jest wyłączona, w dokumencie mogą pojawić się zarówno pojedyncze, jak i podwójne cudzysłowy. Oto wskazówki, jak zmienić cudzysłowy proste na cudzysłowy i odwrotnie w programie Word.

Zmień proste cudzysłowy na kręcone za pomocą funkcji Znajdź i zamień

Zmień proste cudzysłowy na kręcone za pomocą VBA

Proste cytaty Strzałka Kręcone cytaty

Zalecane narzędzia zwiększające produktywność dla programu Word

Kutools dla Worda: Integracja sztucznej inteligencji 🤖ponad 100 zaawansowanych funkcji pozwala zaoszczędzić 50% czasu obsługi dokumentów.Darmowe pobieranie

Karta Office: wprowadza do programu Word (i innych narzędzi pakietu Office) karty przypominające przeglądarkę, upraszczając nawigację w wielu dokumentach.Darmowe pobieranie


Zmień cudzysłowy proste na cudzysłowy kręcone za pomocą funkcji Znajdź i zamień

Przed złożeniem wniosku Znajdowanie i zamienianie, powinieneś pójść do Opcje automatycznej korekty aby odznaczyć „Proste cudzysłowy” z „inteligentnymi cudzysłowami” pole wyboru.

Krok 1. Kliknij filet > Option > Proofing > Opcje automatycznej korekty > Autoformatowanie podczas pisaniai wybierz „Proste cudzysłowy” z „inteligentnymi cudzysłowami” pole wyboru. Zobacz zrzut ekranu

Menu Plik z wybranymi Opcjami Strzałka Okno Opcje programu Word z otwartą zakładką Sprawdzanie i klikniętymi opcjami Autokorekty
Strzałka
Sekcja Autoformatuj podczas pisania z „Cytatami prostymi” i zaznaczonym polem „Cytaty inteligentne”.

Krok 2. Kliknij Home > zastąpić Edycja grupę lub naciśnij Ctrl + H do wyświetlenia Znajdowanie i zamienianie i wprowadź " or '' in Znajdź co i wprowadź " or '' in Zastąp pudełko. Zobacz zrzut ekranu:

Okno dialogowe Znajdź i zamień

Krok 3. Kliknij Zamień wszystko.

Uwaga: Jeśli chcesz zamienić wszystkie cudzysłowy kręcone na cudzysłowy proste, wyczyść je „Proste cudzysłowy” z „inteligentnymi cudzysłowami” pole wyboru).


Zmień proste cudzysłowy na kręcone za pomocą VBA

Karta Office: zapewnia interfejsy z zakładkami w programach Word, Excel, PowerPoint...
Poruszaj się po dokumentach za pomocą karty Office
Usprawnij teraz swój przepływ pracy.      Dowiedz się więcej o karcie Office       Darmowe pobieranie

Aby zastąpić wszystkie proste cudzysłowy cudzysłowami kręconymi w programie Word 2010 przy użyciu języka VBA, kliknij filet> Option > Proofing i kliknij Autokorekta Opcje I wybierz opcję „Proste cudzysłowy” z „inteligentnymi cudzysłowami” najpierw zaznacz pole wyboru w następujący sposób. (Note: jeśli chcesz zastąpić wszystkie cudzysłowy w cudzysłowie prostym, wyczyść pole wyboru „cudzysłowy proste” z „cudzysłowami inteligentnymi”).

Krok 1: naciśnij "Alt-F11”, Aby otworzyć okno Microsoft Visual Basic for Application;

Krok 2: Kliknij Moduł na wstawka , skopiuj i wklej następujący kod VBA do pliku Moduł okno;

Krok 3: Następnie kliknij Uruchom Uruchom przycisk przycisk, aby zastosować VBA.

Poniższy VBA ma na celu zmianę cudzysłowów prostych na cudzysłowy kręcone:

Sub ChangeDoubleStraightQuotes()
'Update 20131107
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = """"
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord =False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Poniższy VBA ma na celu zmianę cudzysłowów kręconych na cudzysłowy proste:

Sub ReplaceSmartQuotes()
Dim vFindText As Variant
Dim vReplText As Variant
Dim i As Long
vFindText = Array("[^0145^0146]", "[^0147^0148]")
vReplText = Array("^039", "^034")
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = True
.MatchWildcards = True
For i = LBound(vFindText) To UBound(vFindText)
.Text = vFindText(i)
.Replacement.Text = vReplText(i)
.Execute Replace:=wdReplaceAll
Next i
End With
End Sub

Najlepsze narzędzia biurowe

Kutools dla Worda - Podnieś swoje doświadczenie ze słowami dzięki Over 100 Niezwykłe funkcje!

🤖 Funkcje AI Kutools: Asystent AI / Asystent w czasie rzeczywistym / Super Polish (Zachowaj format) / Super Tłumacz (Zachowaj format) / Redakcja AI / Korekta AI...

📘 Znajomość dokumentów: Podziel strony / Scal dokumenty / Eksportuj zaznaczenie w różnych formatach (PDF/TXT/DOC/HTML...) / Wsadowa konwersja do formatu PDF...

Edycja treści: Zbiorcze wyszukiwanie i zamienianie w wielu plikach / Zmień rozmiar wszystkich zdjęć / Transponuj wiersze i kolumny tabeli / Konwertuj tabelę na tekst...

🧹 Łatwe czyszczenie: Wymień Dodatkowe przestrzenie / Podziały sekcji / Pola tekstowe / Hiperłącza / Aby uzyskać więcej informacji na temat narzędzi do usuwania, przejdź do Usunąć Grupa...

Kreatywne wstawki: Wstawić Tysiące separatorów / Pola wyboru / Przyciski Radio / Kod QR / kod kreskowy / Wiele zdjęć / Odkryj więcej w wstawka Grupa...

🔍 Precyzyjne wybory: Punktowy Konkretne strony / Stoły / Kształty / Nagłówki akapitów / Ulepsz nawigację za pomocą jeszcze Wybierz cechy...

Ulepszenia gwiazd: Przejdź do dowolnej lokalizacji / Automatyczne wstawianie powtarzającego się tekstu / Przełączaj między oknami dokumentów / 11 Konwersja Tools...

🌍 Obsługuje ponad 40 języków: Używaj Kutools w swoim preferowanym języku – obsługiwany jest angielski, hiszpański, niemiecki, francuski, chiński i ponad 40 innych!

Karty Kutools i Kutools Plus na wstążce Word
???? Chcesz wypróbować te funkcje? Pobierz teraz Kutools dla Worda! 🚀
 

Najlepsze narzędzia biurowe

Kutools dla Worda - Ponad 100 narzędzi dla programu Word